© serviceprofessionalgmbh

Both examples show the extension of the SYSPROC DD statement to call CLISTs or REXX programs and their withdrawal retrospectively.

/* REXX
*/
ARG DSN
E = SYSDSN(DSN)
IF E <> "OK" THEN DO
   SAY "Problem mit" DSN "("E")"
   exit
END
"ALTLIB ACT AP(CLIST) DA("dsn")"
say "SYSPROC um" dsn "erweitert, RC:" RC
EXIT




/*REXX
*/
"ALTLIB DEA AP(CLIST)"
exit