In the following example, REXX user exit is initiated and then the jobname is retrieved with the RESOLVE function. When the jobname is K68 the following message is printed out: INFORMATION: THE JOBNAME IS K68.
Fig.JV.5.1 Example 1 of REXX call
/* REXX */
I = CTJRXX("INIT")
A = CTJRXX("RESOLVE","%%$JOBNAME")
IF A = "K68" THEN DO
M = CTJRXX("DOMSG","I","THE JOBNAME IS K68")
END
RETURN
Parent Topic |