PGM        PARM(&LIBL)
             DCL        VAR(&LIBL) TYPE(*CHAR) LEN(2750)
             RTVJOBA    USRLIBL(&LIBL)
             ENDPGM