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

     I think you'd be better off changing the current library before 
     calling ProgramA. Obviously, you have the library/object name 
     before issuing the call. If your apps already use curlib, this 
     might not work properly, and may need to RMVLIBLE and ADDLIBLE 
     POSITION(*first) to put your library at the top of the libl.... 

     eric.delong@pmsi-services.com


______________________________ Reply Separator _________________________________
Subject: Re: Find a CL program's library - While it is running 
Author:  <MIDRANGE-L@midrange.com > at INET_WACO
Date:    5/4/99 2:11 PM


OK,  maybe a little more detail is in order.....

My program 'ProgramA' could be invoked from anywhere.  When 'ProgramA is called,
I
need to know where to find all of the rest of the parts of the application 
(files,
commands, other programs, etc.).  I know that all of these other objects are 
stored
in the same library as the current invokation of ProgramA, so.... if I could
dynamically determine what library ProgramA is in, I'd know where to find the 
rest
of the application,

This information is readily available in RPG, but I forget the CL trick to make 
it
appear.

Thanks again,

jte

Ravi Viswanathan wrote:

> John,
>
> You can use RTVOBJD and retrieve the library name into a variable.
>
> 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
> > this uestion <g>).
> >
> > I thought that it involved the program sending a
> > message to itself, but I can't remember the specifics.
> > Any help?
> >
> > jte
> >
> > --
> > John Earl   johnearl@toolnet.com
> >
> > PowerTech Toolworks  206-575-0711
> > PowerLock Network Security www.toolnet.com
> > The 400 School   www.400school.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
> > +---
>
> +---
> | 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
> +---



--
John Earl   johnearl@toolnet.com

PowerTech Toolworks  206-575-0711
PowerLock Network Security www.toolnet.com
The 400 School   www.400school.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
+---



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