CA-GSS Statements and Commands › GSS Extended Functions › IO Functions › Number, String, and Variable Functions › System Information Functions › RDJFCB()

RDJFCB()

This function requests the RDJFCB service of the operating system and obtains a copy of the job file control block (JFCB).

Syntax

jfcb = RDJFCB(ddname)

Parameters

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 want to read.

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