The index values %%$JCLCURF and %%$JCLCURL can be used to access the JCL cards of the current JCL statement by combining %%$JCL with the index as in the following REXX sample:
Fig.JV.5.2 Example 2 of REXX call
/* REXX */
INIT = CTJRXX("INIT")
REC_NUM = CTJRXX("RESOLVE","%%$JCLCURF")
LAST = CTJRXX("RESOLVE","%%$JCLCURL")
DO WHILE REC_NUM <= LAST
TEMP = CTJRXX("RESOLVE","%%$JCL"REC_NUM)
SAY TEMP
REC_NUM = REC_NUM + 1
END
RETURN
Parent Topic |