On Mon, 27 Sep 1999 12:02:56 -0500, you 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
> 

Hi David,

Why not include the following at the beginning of your program ?

RTVOBJD OBJ(*LIBL/program_name)  OBJTYPE(*PGM) RTNLIB(&Library) 

Where RTNLIB = "Specifies the name of a variable used to return the
name of the library that contains the object. In a CL program, the
variable returned has a length of 10 characters. If *LIBL or *CURLIB
is specified for the library name on the OBJ parameter, the value
returned is the name of the library where the object was found."


HTH,

Chris

          .                        \\|//                        .
 ._O_.   . ________________________(o o)________________________ .   ._O_.
/_\o/_\ .                    -oOOO--(_)--OOOo-                    . /_\o/_\
  /H\  .          live : Chris.Spirinckx@village.uunet.be          .  /H\
 (=O=).           ICQ  : 14033396                                   .(=O=)
   U .            work : chris_spirinckx@pee.pioneer.be              . U
+---
| 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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact [javascript protected email address].