Hi,
Is there a way to persuade the above to return the full path name?
Alternatively, is there another REXX invocable routine that will return the
full path name?
Thanks
Steve
JCL:
// EXEC PGM=IRXJCL,
// PARM='REXXTEST'
//SYSEXEC DD DSN=SA.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//UFSOUT DD PATH='/userhome/sa/space dir',
// PATHOPTS=(ORDONLY)
//
REXX:
/*rexx: get the path name from the UFSOUT DD */
xrc = bpxwdyn("INFO DD(UFSOUT) INRTPATH(dir)")
if xrc \=0 then do
say "Error obtaining the pathname from JCL DD UFSOUT;",
"correct JCL DD(UFSOUT)"
exit(xrc)
end
say 'pathname='dir
exit(0)
Result:
pathname=/userhome/sa/space
--
This e-mail message has been scanned and cleared by Google Message Security
and the UNICOM Global security systems. This message is for the named
person's use only. If you receive this message in error, please delete it
and notify the sender.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
