Re: Determining what library a CL program is called from?

[Kathleen Kostuck <kkostuck@xxxxxxxxxx>]

Hello, David.

Assuming that you are being a good boy and using the library list to determine
which object to execute (if it were hard coded, you'd already know the library,
wouldn't you?), the technique I'd use is this -

RTVOBJD   OBJ(cl program name here) OBJTYPE(*pgm) RTNLIB(&rtnlib)

This should return the first library found to contain the program object, based
on the library list, which also should be the program object currently being
executed.

Not an API, but simple.

HTH,

Kathleen Kostuck

Secretary - Wisconsin Midrange Computer Professionals Association
Support your Local User Group!
kkostuck@execpc.com

David Gibbs wrote:

> Greetings!
>
> Does anyone know of a way for a CL program to determine what library it is
> executing in?
>
> I'm looking for either an API or a technique that will simply tell me what
> library the current CL program is executing out of so I can qualify my
> recursive program call to ensure I call the same copy.
>
> Thanks!
>
> david
>
>
> --
>
> David Gibbs
> Sr. Software Engineer
> Mortice Kern Systems US, Inc.
> 2500 S. Highland Ave., Suite 200
> Lombard, IL  60148
>
> phone: (630) 495-2108 x5004
> http://www.mks.com <http://www.mks.com/>
> mailto:dgibbs@mks.com <mailto:dgibbs@mks.com>
>
> Opinions expressed are strictly my own and do
> not necessarily reflect those of my employer.
>
>
> +---
> | 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
+---