Previous Topic: QUEUES()

Next Topic: REDIRECT()

RDJFCB()

Use RDJFCB() to request the operating system's RDJFCB service and obtain a copy of the job file control block (JFCB).

Syntax

The RDJFCB() function has this syntax:

jfcb = RDJFCB(ddname)

Arguments

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.

Return Codes

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 */