Problem solve Get help with specific problems with your technologies, process and projects.

Save and reuse library list

This tip illustrates how to save the current library and the library list of a job in order to use it again later.

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

Dig Deeper on iSeries CL programming

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close