Re: Retreving library list

Here's what I usually do:

PGM
DCL &USRLIBL *CHAR 275
DCL &CMD *CHAR 512
DCL &CMDLEN *DEC (15 5) VALUE(512)

/* Get current library list (user part) */
RTVJOBA USRLIBL(&USRLIBL)

/* change library list, etc. */

/* Restore user part of the library list */
CHGVAR &CMD ('CHGLIBL LIBL(' *CAT &USRLIBL *CAT ')')
CALL QCMDEXC PARM(&CMD &CMDLEN)
ENDPGM

Brian.Johnson@helpsystems.com
www.helpsystems.com





uucp@UUCP1.MCS.NET on 01/05/99 12:06:08

Please respond to RPG400-L@midrange.com

To:   PG400-L@midrange.com>
cc:    (bcc: Brian Johnson/HelpSystems)

Subject:  Retreving library list




Hi,

I would like to retreive Library list at starting of my CL program and I
would change the Library list for some reason, At end I would like to have
the same library list which is reteived at the starting of the program.
Suggest me.

Thanks in advance.

Regards,
Niranjan

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *







* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *