Re: qadb reference files

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>]

Rob, I know you'll be thrilled to hear that you are still right - the QADB* 
does not list the actual members, only that a file is a source file.  >8-{)

Later
Vern

At 02:06 PM 2/19/2004 -0500, you wrote:
> 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.
>
>
> _______________________________________________
> 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.