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

["Leland, David" <dleland@xxxxxxxxxx>]

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

So, what you're saying is that if you changed the user portion of your library list to have more than 25 libraries in it, you'd be satisfied to have an existing program only retrieve the first 25 using the RTVJOBA command?  All for the sake of not having to recompile your CL program?  Sheesh.  Think of the mess that could cause?

As I mentioned before, you only need to fix your CL programs if you start using more than 25 libraries in your library list.

Dave

-----Original Message-----
From: Goodbar, Loyd (AFS-Water Valley) [mailto:LGoodbar@afs.bwauto.com]
Sent: Tuesday, May 29, 2001 2:18 PM
To: 'MIDRANGE-L@midrange.com'
Subject: RE: 250 libraries again (was V3R1 QUSRTOOL, *PRDLOD)

I wonder why IBM didn't add an additional parameter to the RTVJOBA command
call LUSRLIBL (long user *LIBL). That way no existing code needed changing,
and forced you to modify the program only if you needed the additional
libraries. Just like any other enhancement should work. Lobotomies for all!

<stuff snipped>

                 DCL        VAR(&USRLIBL) TYPE(*CHAR) LEN(275)
                 DCL        VAR(&CMD) TYPE(*CHAR) LEN(6000)
                 RTVJOBA    USRLIBL(&USRLIBL)
                 CHGLIBL    LIBL(MYLIB1 MYLIB2 QGPL QTEMP)

    /*  Do my thing, sing my song, yada, yada, yada                      */

                 CHGVAR     &CMD ('CHGLIBL LIBL(' *CAT &USRLIBL *TCAT ')')
                 CALL       PGM(QCMDEXC) PARM(&CMD 6000)

<snip>

For this brilliant enhancement, we provide no award.  The people who dreamt
this up have obviously already been to Mayo for their lobotomies.

I cannot believe that for the first time in 22 years, you have gone out of
your way to break certain users code, and I urge you to add the appropriate
support to the system to avoid this.

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC
+---
| 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
+---