In the following example, REXX user exit is initiated and then the program name and DD card name are retrieved with the RESOLVE function. When the DD name is TTCNTL and it is used under PGM=IEF000, message CTJD05W, "DSN not found," is suppressed.
Fig.JV.5.4 Example 4 of REXX call
/* REXX */
I = CTJRXX("INIT")
PGM = CTJRXX("RESOLVE","%%$EXECPROG")
DDNM = CTJRXX("RESOLVE","%%$DDNAME")
IF PGM = "IEF000" AND DDNM = "TTCNTL" THEN DO
M = CTJRXX("ADJMSG","CTJD05W","Y","I")
END
RETURN
Parent Topic |