Re: Find a CL program's library - While it is running

["Henrik Krebs" <hkrebs@xxxxxxxxx>]

> RTVJOBA curlib(&curlib)

Does this mean that Pat Barber has most of the programs in QGPL (which is
default *CURLIB)?

Uuugh

Well - Current Library has nothing to do with this.

Also the other methods seems to imply that there is only one CLPGM and it
is in the librarylist. That's a good practice, but...

Lets say that there are many CLPGM's, one maybe in the librarylist, one
in LIBX. 

I guess that if you do a 'CALL LIBX/CLPGM' then you want LIBX/CLPGM to
find the answer 'LIBX'. Also, that if you rename program object CLPGM to
CLPGMX you don't want the library for a program CLPGM but for the very
CLPGMX.

The exact answer to this question have to wait until I have an AS/400 by
hand (a running one - I just have powered it down and the time here
(Europe) is about midnight). I KNOW a method to find the program name
however, and maybe somebody can tell if it also gives the library:

Something like:
SNDPGMMSG 'Test' TOMSGQ(*SAME) MSGKEY(&KEY)
RCVMSG FROMPGMQ(*SAME) MSGKEY(&KEY) SENDER(&SENDER)

and then you should look in the returned 'sender' information.

Good luck.

------------------------------------------------------------
Henrik Krebs
IT Consultant (IBM AS/400), Y2K Specialist
Web: http://www.hkrebs.dk/
------------------------------------------------------------

----------
> Fra: Pat Barber <MBOCEANSIDE@postoffice.worldnet.att.net>
> Til: MIDRANGE-L@midrange.com
> Emne: Re: Find a CL program's library - While it is running
> Dato: 5. maj 1999 00:28
> 
> John Earl wrote:
> > 
> > Does anyone remember the trick to finding a CL program's
> > library while it is running? (that's an important part of
> 
> 
> DCL    &curlib  *char 10
> 
> RTVJOBA curlib(&curlib)
> 
> 
> Sorry... it's not really a trick.
> +---
> | 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
+---