Re: 250 libraries. a solution?

If you brought back only the first 25 libraries, and then used CHGLIBL to
restore the list, what would happen if you changed the list to one that
didn't include QGPL?

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





                                                                                
                                         
                    "Steve Richter"                                             
                                         
                    <srichter@AutoCoder        To:     
<MIDRANGE-L@midrange.com>                                         
                    .com>                      cc:                              
                                         
                    Sent by:                   Subject:     250 libraries. a 
solution?                                   
                    owner-midrange-l@mi                                         
                                         
                    drange.com                                                  
                                         
                                                                                
                                         
                                                                                
                                         
                    05/29/01 06:38 PM                                           
                                         
                    Please respond to                                           
                                         
                    MIDRANGE-L                                                  
                                         
                                                                                
                                         
                                                                                
                                         




A possible solution to the 250 libraries crashes the v5r1 rtvjoba cmd
problem:

The cpp of RtvJoba is QCLRTVJA.

The 21st parm of this pgm is the UsrLibl.

Based on the value that is passed in parm 21 of the cpp, it looks like
RtvJoba is using Vary(*Yes) and PassAtr(*Yes) for the UsrLibl parm.

When I dup the RtvJoba cmd as TRtvJoba and write my own cpp, bytes 2 - 3 of
parm 21 contain the lgth of the cl variable spcfd when the cmd is called.

The possible solution then is:

Write your own cpp for the RtvJoba cmd.
Change the cpp of the RtvJoba cmd to be your cpp.
This cpp will pass everything it receives onto the real cpp, QCLRTVJA, and
then pass back what is returned to the RtvJoba cmd.
The one exception is parm 21.  A variable large enough for 250 libraries is
passed onto QCLRTVJA. When passing the return value back to the caller,
look at the vary lgth ( bytes 2 - 3 ).  Only pass back up to the lgth of
this value.

Steve Richter








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