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

Pat Barber <MBOCEANSIDE@postoffice.worldnet.att.net> wrote:

>Henrik Krebs wrote:
>>
>> > RTVJOBA curlib(&curlib)
>>
>> Does this mean that Pat Barber has most of the programs in QGPL (which
is
>> default *CURLIB)?
>
>No... I never keep any programs in QGPL... and the example I provided
>returns the library that the CLP was called from... but maybe I
>didn't understand the question...

Pat,

Your example simply retrieves the name of the current library. This is a an
optional library in your library list. For most purposes it defaults to
QGPL, which is why Henrik asked that question. However, if there is no
current library in your library list the RTVJOBA would pick up the value
*NONE. I suspect you tested the program in your current library, which is
why it returned the correct result but for the wrong reason. To see what's
going on try moving it to another library in your library list and running
it again. Then try moving it to a library outside your library list and run
it by naming the library explicitly in the CALL command. Lastly try the
command CHGCURLIB *CRTDFT and call the program one more time.

Dave Kahn, ABB Steward Ltd.


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