RE: obtain first library name of object in *LIBL

I don't understand if you are going to use CL to Display the Object Description to a file and then query the file, why not just use a single CL Command and retrieve the object's library and be done with it? You did say you wanted the most efficient and direct approach for getting the library name.

There is also the QUSROBJD API that will use the *LIBL/ObjectName to get the Object Description for the object.

But to each his own...

George...

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jay Vaughn
Sent: Thursday, November 16, 2017 7:38 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: obtain first library name of object in *LIBL

thank you George - i'll be invoking from rpg and not CLP - but I'm going to do something along the very same lines DSPOBJD to an outfile and query it.

On Thu, Nov 16, 2017 at 8:29 AM, George Smith <gsmith@xxxxxxxx> wrote:

This always works in my programs:

RTVOBJD OBJ(*LIBL/XYZ)
OBJTYPE(*FILE)
RTNLIB(&RTNLIB)

George...

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jay
Vaughn
Sent: Thursday, November 16, 2017 7:26 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: obtain first library name of object in *LIBL

I'm looking for the most efficient , most direct approach for pulling
the first library name of an object in a *LIBL.

here is why...

the rpg pgm receives a lib and table name as a parm, - user may
specify blank or *libl for the lib parm...

If blank or *libl I'll need to determine that library for the table
name from my *libl.

What I am eventually doing needs an implicit lib name... it is nothing
that *libl will work with.
--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD
--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD