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

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