RE: 250 libraries again (was V3R1 QUSRTOOL, *PRDLOD)

["Joe Giusto \(E-mail\)" <juicenetdps@xxxxxxxxxxxxxx>]

Change your ATTN program to MYAPP2 which will save the 26+ LIBL, then have
it call MYAPP, then CHGLIBL back to the 26+ saved when MYAPP returns control
to MYAPP2.  In this case, it would not matter even if you do not have the
source to MYAPP.

Just a thought.



Joe Giusto II
Programmer/Analyst
Ritz Camera
Beltsville, MD
301-419-3209 x347
410-813-2812 x347

 -----Original Message-----
From:   owner-midrange-l@midrange.com [mailto:owner-midrange-l@midrange.com]
On Behalf Of Buck Calabro
Sent:   Tuesday, May 29, 2001 6:03 PM
To:     MIDRANGE-L@midrange.com
Subject:        RE: 250 libraries again (was  V3R1 QUSRTOOL, *PRDLOD)

Here is the scenario that seems insurmountable to me:

user sign on
  initial pgm
    SETATNPGM MYAPP
    start vendor X application
    set libl to 26+
    do work
      ATTN key
      MYAPP runs
        RTVJOBA (save 25 libs)
        CHGLIBL (MYAPP libl)
        do work
        CHGLIBL (save 25 libs)
        end MYAPP
      -=libl is corrupted; missing lib 26+=-

>They could have supported retrieving both
>the short and long versions of the library list.

But the existing "short" versions would lose library 26+ as in my example
above.

>Also they could have created a system value,
>which defaulted to a *JOBD, which caused the
>setting at the job level.

I can't set the "use short" attribute for the above job because vendor X
needs 26 libraries...

Still in the dark...
Buck
+---

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