Modif temporaire d’un environnement

             PGM
             DCL
        VAR(&LSTLIB) TYPE(*CHAR) LEN(275)
             DCL
        VAR(&CHGLIB) TYPE(*CHAR) LEN(300)

/*   Rà‰CUPà‰RATION LISTE DES BIB. EN COURS DANS &LSTLIB   */
             RTVJOBA
    USRLIBL(&LSTLIB)

/*   AJOUT BIBLIOTHàˆQUE DEVOBJ ET DEVFIC    */
             ADDLIBLE
   LIB(DEVOBJ) POSITION(*FIRST)
             MONMSG
     MSGID(CPF0000)
             ADDLIBLE
   LIB(DEVFIC) POSITION(*FIRST)
             MONMSG
     MSGID(CPF0000)

/*   APPEL DU MODULE SPECIFIQUE   */
             CALL   
     PGM(PROG01) PARM('5' ' ')

/*   RESTAURATION DE L'ANCIENNE LISTE DE BIBLIOTHàˆQUES
         */
FIN:
             CHGVAR
     VAR(&CHGLIB) VALUE('CHGLIBL (' *CAT +
                         
&LSTLIB *CAT ')')
             CALL
       PGM(*LIBL/QCMDEXC) PARM(&CHGLIB 300)
             ENDPGM

Print Friendly, PDF & Email