Programa CLP
PGM
             DCL        VAR(&USRLIBL) TYPE(*CHAR) LEN(2750)
             DCL        VAR(&CURLIB) TYPE(*CHAR) LEN(10)

    /* SALVAMOS LISTA DE BIBLIOTECA Y CURLIB ACTUAL */
             RTVJOBA    CURLIB(&CURLIB)
             RTVJOBA    USRLIBL(&USERLIBL)


    /* EJECUTAMOS PROGRAMA CON UNA NUEVA LISTA DE BIBLIOTECA */

             CALL       PGM(CLPPGM)
    
   /* RESTAURAMOS LISTA DE BIBLIOTECA SALVADA */

             CALL       PGM(RSLBLCL) PARM(&USRLIBL)

              IF  COND((&CURLIB *NE '        ')             + 
                  *AND (&CURLIB *NE  '*NONE      ')) THEN(DO) 
                        CHGCURLIB &CURLIB                     
              ENDDO                                           

ENDPGM



Programa RPGLE
     C     *Entry        Plist                                          
     C                   Parm                    Userlibl       2750    
     C                   Clear                   Cmd            2750    
     C                   Clear                   LongStr          15 5  
     C                   Eval      Cmd    = 'CHGLIBL' + ' ' + '('       
     C                              + %trim(Userlibl) + ')'             
     C                   Eval      longStr = %len(%trim(somete))        
     C                   Call      'QCMDEXC'                            
     C                   Parm                    Cmd                    
     C                   Parm                    LongStr                
     C                   Return