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

[John Earl <johnearl@xxxxxxxxxxx>]

Carsten,

You're right, that was the tip that I was referring to.   I guess I mis-membered
that it also supplied the library.

Thanks,

jte

Carsten Flensburg wrote:

> 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?
> >
>
> John,
>
> The trick that I think that you're thinking of will only give you the
> program name:
>
>     Pgm
>
>     Dcl        &MsgKey   *Char      4
>     Dcl        &Sender   *Char     80
>     Dcl        &Pgm      *Char     10
>
>     SndPgmMsg  Msg(-)   ToPgmQ(*SAME (*))   KeyVar(&MsgKey)
>     RcvMsg     PgmQ(*SAME (*))   MsgKey(&MsgKey)   Rmv(*YES)   +
>                Sender(&Sender)   SenderFmt(*SHORT)
>
>     ChgVar     &Pgm      %SSt(&Sender  27  10)
>
>     EndPgm
>
> I think a recent thread here (or was it dejanews) came to the conclusion
> that getting the library name involved using MI (MATINVS, MATPTR f.x.) -
> or in case library list was used calling the program doing a RTVOBJD
> against the program would give you the library name in the RTNLIB return
> value.
>
> Best regards,
> Carsten Flensburg
>
> +---
> | 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
+---