Re: qadb reference files

["Jim Franz" <franz400@xxxxxxxxxxxx>]

Martin - it looks like a good solution (since ibm not
keeping a db reference down to member level.
I have an existing clp doing the chkobj, and was
just wanting a quicker way like a sql select.
I can do the select of the dbxtyp = 'S' and cut about
3/4 of current run time, and get all the regular and oddly named
source files.
thanks
jim

----- Original Message ----- 
From: "Martin Rowe" <martin@xxxxxxxxxx>
To: <midrange-l@xxxxxxxxxxxx>
Sent: Thursday, February 19, 2004 1:41 PM
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.
>