Use RDJFCB() to request the operating system's RDJFCB service and obtain a copy of the job file control block (JFCB).
The RDJFCB() function has this syntax:
jfcb = RDJFCB(ddname)
The RDJFCB() function takes these arguments:
|
jfcb |
176-byte job file control block, if the function is successful. Otherwise, error text is returned. |
|
ddname |
DDname of the file whose JFCB you wish to read. |
The RDJFCB() function produces these return codes:
101 ARG 1 MISSING OR INVALID
120 DDNAME not found
Example
jfcb = rdjfcb('SYSUT1') /* Obtain copy of the Job File
Control Block */
dsname = substr(jfcb,1,44) /* Extract the file's dsname */
dsname = strip(dsname) /* Remove trailing blanks */
| Copyright © 2011 CA. All rights reserved. | Tell Technical Publications how we can improve this information |