Re: Save/Restore Library List

[barsa@xxxxxxxxxxxxxxxxxxx]

For Jeff's variable of &ORIGLIBL should be specified as 2750, because IBM
@#$%ed up the library list in V5R1.  The longer variable works in prior
releases, but this was IBM's first attempt ever to screw up your working
programs!

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com





                                                                                
                                         
                    "Jeffrey                                                    
                                         
                    Silberberg"                To:     
<MIDRANGE-L@midrange.com>                                         
                    <jsilberberg@mindsp        cc:                              
                                         
                    ring.com>                  Subject:     Re: Save/Restore 
Library List                                
                    Sent by:                                                    
                                         
                    owner-midrange-l@mi                                         
                                         
                    drange.com                                                  
                                         
                                                                                
                                         
                                                                                
                                         
                    07/18/01 06:28 PM                                           
                                         
                    Please respond to                                           
                                         
                    MIDRANGE-L                                                  
                                         
                                                                                
                                         
                                                                                
                                         




Yep,

        DCL VAR(&ORIGLIBL) TYPE(*CHAR) LEN(**)   Depends on Release...
        DCL  VAR(&CLCMD) TYPE(*CHAR) LEN(**)
        DCL VAR(&LEN) TYPE(*DEC) LEN(15 5)

        RTVJOBA LIBL(&ORIGLIBL)

        /* JOB STUFF */

        CHGVAR &CLCMD VALUE('RPLLIBL (' *TCAT &ORIGLIBL *TCAT ')')
        CHGVAR &LEN %LEN(&CLCMD)
        CALL QCMD  CMD(&CLCMD)  LEN(&LEN)

        ENDPGM...

    From the top of my head, but hopefully you get the idea.....

Jeffrey M. Silberberg
Independent Consultant
CompuDesigns, Inc.
(770) 399-9464

AS SOON AS I KNOW THE ANSWERS
THEY CHANGE THE QUESTIONS




----- Original Message -----
From: Smith, Nelson <NSmith@lincare.com>
To: <MIDRANGE-L@midrange.com>
Sent: Wednesday, July 18, 2001 4:01 PM
Subject: Save/Restore Library List


> Is there any way to (easily) save an entire library list while in an
> interactive job, make changes to it, do some stuff, and then restore it
back
> like it was?
>
> Nelson Smith
> DBA Team
> (727) 530-7700 ext. 8243
> (800) 284-2006
>
>
>
>
****************************************************************************

****************************************************************************

****************************************************
> This message originates from Lincare Holdings Inc. It contains
information
which maybe confidential or privileged and is intended only for the
individual or entity named above.
> It is prohibited for anyone else to disclose, copy, distribute or use the
contents of this message.
> All personal messages express views solely of the sender, which are not
to
be attributed to Lincare Holdings Inc., and may not be copied or
distributed
without this disclaimer.
> If you received this message in error, please notify us immediately at
MailAdmin@lincare.com or (800) 284-2006.
>
****************************************************************************

****************************************************************************

****************************************************
> +---
> | 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
> +---


+---
| 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
+---




+---
| 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
+---