You want to determine the object for a table, physical or logical files,
views and SQL indexes?
What about using the following SQL-Statement for Tables, views, physical and
logical files:
select System_Schema_Name
from library_list_info a join systables b on a.System_Schema_Name =
b.System_Table_Schema
Where System_Table_Name = 'YOURFILE'
and a.Type = 'USER' -- Search the user part of the library
list only
Order By Ordinal_Position
Fetch First Row Only;

For SQLIndexes you may use the following SQL-Statement
Select System_Schema_Name
from library_list_info a join SysIndexes on a.System_Schema_Name
=System_Index_Schema
Where System_Index_Name = 'YOURINDEX'
and a.Type = 'USER' -- Search the user part of the library
list only
Order By Ordinal_Position
Fetch First Row Only;


Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)


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

api too "codey"

a simple query to qsys.qadbkatr served me perfectly - thx for all the
suggestions!

On Thu, Nov 16, 2017 at 8:48 AM, Tommy Holden <Tommy.Holden@xxxxxxxxx>
wrote:

Why not use the API? https://www.ibm.com/support/
knowledgecenter/en/ssw_i5_54/apis/qusrobjd.htm


Thanks,
Tommy Holden

-----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) <
rpg400-l@xxxxxxxxxxxx>
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
--
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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2020 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].