Save and reuse library list

Save the current library and the library list of a job in order to use it again later. Some times -- especially when from the same menu run different applications -- you need to replace your library list with a new one, but later you want to use the old library list and the current library again.

Sometimes, however, you can't add or remove libraries from the library list. The CL Program LIBLIST can help you to save the current library and the library list into variables and restore them again when you need them. The CLP can be use as a called separate program or as a portion of an existing CL Program.


PGM                                     DCL  VAR(&LIBL) TYPE(*CHAR) LEN(275)
DCL  VAR(&CURLIB) TYPE(*CHAR) LEN(10) 
DCL  VAR(&COUNT1) TYPE(*DEC)LEN(3 0) 
DCL  VAR(&COUNT2) TYPE(*DEC) LEN(3 0) + 
       VALUE(-10)
RTVJOBA USRLIBL(&LIBL)CURLIB(&CURLIB)
/**** INSERT HERE YOUR STATEMENTS      
CHGVAR   VAR(&COUNT1) VALUE(1)
CHGLIBL LIBL(%SST(&LIBL &COUNT1 10)) +
           CURLIB(&CURLIB)
LOOP:CHGVAR VAR(&COUNT1) VALUE(&COUNT1 +
            +11
 CHGVAR VAR(&COUNT2) VALUE(&COUNT2 +11)
 IF     COND(%SST(&LIBL &COUNT1 10) +
        *NE ' ' THEN(DO)                
 ADDLIBLE LIB(%SST(&LIBL &COUNT1 10)) +
            POSITION(*AFTER +
          %SST(&LIBL &COUNT2 10))
 GOTO LOOP   ENDDO                                    END:  ENDPGM

This was first published in December 2001

Disclaimer: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.

Back to top