| 
/*********************************************************************/ /* ce programme retourne *libl (syslibl ET usrlibl) */ /*********************************************************************/ PGM PARM(&LIBL) DCL VAR(&LIBL) TYPE(*CHAR) LEN(2915) DCL VAR(&USRLIBL) TYPE(*CHAR) LEN(2750) DCL VAR(&SYSLIBL) TYPE(*CHAR) LEN(165) RTVJOBA USRLIBL(&USRLIBL) SYSLIBL(&SYSLIBL) CHGVAR VAR(&LIBL) VALUE(&SYSLIBL *CAT &USRLIBL) ENDPGM |
