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

[John Earl <johnearl@xxxxxxxxxxx>]

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