© serviceprofessionalgmbh

Die beiden Beispiele zeigen die Erweiterung des SYSPROC-DD-Statements zum Aufruf von CLISTen oder REXX-Programmen, bzw. deren Rücknahme.

/* REXX * ALO
*/
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 * DEALO
*/
"ALTLIB DEA AP(CLIST)"
exit