Re: qadb reference files

I guess I stand corrected...

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Martin Rowe <martin@xxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
02/19/2004 01:41 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
<midrange-l@xxxxxxxxxxxx>
cc

Fax to

Subject
Re: qadb reference files






On Thursday 19 February 2004 16:31, Jim Franz wrote:
> Is there any system reference file with the member
> names with in files. Wanting to create quick
> check of where source members are located.
> dspfd *mbrlist to outfile way too slow.
> I looked in all the QADB* ref files and found all the
> files but no member names.

Hi Jim

We use a logical over QADBXRF which selects only source files.

A          R QSRCFILE                  PFILE(QADBXREF)
A            DBXFIL
A            DBXLIB
A            DBXTYP
A          K DBXLIB
A          K DBXFIL
A          S DBXFIL                    CMP(GT '          ')
A            DBXTYP                    CMP(EQ 'S')

A program then loops through the logical, doing a CHKOBJ for the member 
in each source file:

CHKOBJ OBJ(&DBXLIB/&DBXFIL) OBJTYPE(*FILE) MBR(&MEMBER) AUT(*ALL)

If you don't get a CPF98xx error, then you've found a match on member 
name. The command & programs we have around it are trivial, but I can 
post them to you if you're interested.

Regards, Martin
-- 
martin@xxxxxxxxxx  AIM/Gaim: DBG400dotNet  http://www.dbg400.net   /"\
DBG/400 - AS/400 & iSeries Open Source/Free Software utilities     \ /
Debian GNU/Linux | ASCII Ribbon Campaign against HTML mail & news   X
                                                                   / \
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.