RE: Find a program's library

John,
Since you do not know which library the called program was run from,
you can use the QUSLOBJ API (DSPOBJD) specifying *ALLUSR for your
library.  This will return a list of all of the object with the requested
name and use the OBJL0100 format position 10 length 10.

That is the only way I can think of.

Jim K

> -----Original Message-----
> From: Ken Slaugh [SMTP:ken.slaugh@cm-inc.com]
> Sent: Tuesday, May 04, 1999 12:47 PM
> To:   'MIDRANGE-L@midrange.com'
> Subject:      RE: Find a program's library 
> 
> RTVOBJD command will find a program within your library list and return
> the found library.
> 
> Ken Slaugh
> Senior Programmer/System Analyst
> AS/400 Professional Network Administrator/MSE
> Specialist - Client Access/400
> Chouinard & Myhre, Inc.
> 
> > -----Original Message-----
> > From:       John Earl [SMTP:johnearl@toolnet.com]
> > Sent:       Tuesday, May 04, 1999 11:30 AM
> > To: MIDRANGE-L@midrange.com
> > Subject:    Find a program's library 
> > 
> > Does anyone remember the trick to finding a CL program's
> > library?   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
> +---
+---
| 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
+---