RE: Classic traps EXTFILE and EXTMBR

I like using the Retrieve Object Description API to determine the first
instance of an object. It won't help you on member searches, but can be
used to determine if the object (file) is where you expect:

Input to dbfile is 'QADBXREF *LIBL '.

d dbfile s 20a
d workdbfile ds 20
d workfile 10a overlay(workdbfile:1)
d worklib 10a overlay(workdbfile:11)
d actuallib s 10a inz
/free
// Translate *LIBL to actual object library.
workdbfile = dbfile;
actuallib = worklib;
if actuallib = '*LIBL';
rtvobjd( objd0100 : %size(objd0100) : 'OBJD0100' :
workfile + actuallib : '*FILE' : errc0100 );
actuallib = objd01rtnlib; // Return library.
// Error handling excluded.
endif;
/end-free

Loyd Goodbar
Senior programmer/analyst
BorgWarner
TS Water Valley
662-473-5713

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jim Wiant
Sent: Thursday, April 03, 2008 17:33
To: Midrange Systems Technical Discussion
Subject: RE: Classic traps EXTFILE and EXTMBR

<snip>

We rely on *LIBL for our library names to allow the library lists to
control the actual file locations.

If you ask for member 'Y' in file 'X'...
The system will look through the library list.
If it finds file X but doesn't find member Y, it will keep looking until
it finds a match - or exhausts the library list.

This means that if you have the file in more than one place in the
library list, you may not be in the library you expect after the file is
open.

Without members this isn't much of an issue because files will have a
member *FIRST that should always be there - so it will resolve *LIBL to
the FIRST library it finds the file in.
But when you specify a member, it won't stop at the first file like I
indicated - it will try it's best to find your member for you.

<snip>