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...
Continue Reading This Article
Enjoy this article as well as all of our content, including E-Guides, news, tips and more.
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