RE: library list variables

[Buck Calabro <Buck.Calabro@xxxxxxxxxxxx>]

Brooks Roach wrote:

>Anyone know of a way to save the current 
>library list, change it for an application 
>and then restore the original list?

Here's a code snippet from the S/38 that works today:

DCL        &CMDPGM *CHAR 10
DCL        &RPLLIBL *CHAR 285
RTVJOBA    JOB(&TMNAME)          +
           USRLIBL(&USRLIBL)      
CHGVAR     &RPLLIBL ('RPLLIBL (' *CAT &USRLIBL *TCAT ')')
CHGVAR     &CMDPGM 'QCAEXEC'
CALL       &CMDPGM (&RPLLIBL 285)

The gibberish about QCAEXEC and RPLLIBL is S/38 mode.  AS/400 native mode
would be QCMDEXEC and CHGLIBL.  Also note that the library list is going up
in size with V5R1 - You'll want a longer variable to store it in.  See the
Midrange Archives for a long thread about just that topic.

Buck Calabro
Commsoft; Albany, NY
"Nothing is so firmly believed as
 that which we least know" -- Michel Montaigne
Visit the Midrange archives at http://www.midrange.com
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---