also so:
CHGVAR VAR(&CMD) VALUE('CHGLIBL LIBL(' *CAT +
&USRLIBL *TCAT ') CURLIB(' *TCAT &CURL +
*TCAT ')')
CALL PGM(QCMDEXC) PARM(&CMD 2800)
Fillertext um auf 20 Zeichen zu kommen
der ILEMax