RE: Finding members

I have a utility which is essentially a barebones WRKMBRPDM, but that
crosses all libraries in the system.

I use the DSPFD TYPE(*MBR) (and not *MBRLIST like Mark does, probably
because *MBR provides more information I need for my utility).  I have
built a logical on that outfile that selects only those records for
which the member resides in a source file, and then it keys it by
member name, file name, and library name.  Here's the source for that:

A          R QWHFDMBR                  PFILE($DSPFD$MBR)
A*
A          K MBNAME
A          K MBLIB
A          K MBFILE
A          S MBDTAT                    COMP(EQ 'S')

If you use WRKDBF, DBU, or some other file utility, you can use it on
this logical and set the key to the member name to see if it exists.

I'm working on making this a real-time always-updated list (the holy
grail of source member tracking), but it's strictly a "free time"
project, and there ain't a whole lotta free time right now.

Dan

--- "Mark A. Manske" <mmanske@minter-weisman.com> wrote:
> QSYS/DSPFD FILE(*ALL/*ALL) TYPE(*MBRLIST) OUTPUT(*OUTFILE)
> FILEATR(*PF)
> OUTFILE(library/filename)
>
> could do this for you, then you would have to run a query or sql or
> write a
> program to read the file
> to see "IF" what you are looking for exists.
>
> This is "ugly" and you would have to check the file for a source type
> (files
> leave it blank)
> it ends up with a type of PF , not srcpf as would be "nice"
>
> That's the quick easy method I can think of.
>
> HTH
>
> Mark
>
> -----Original Message-----
> From: midrange-l-admin@midrange.com
> [mailto:midrange-l-admin@midrange.com]On Behalf Of Shahan, Ray
> Sent: Thursday, November 07, 2002 3:29 PM
> To: 'midrange-l@midrange.com'
> Subject: Finding members
>
>
> HI all,
>
> another newbie question I couldn't answer from the archives:
>
> On the hp3000 (brand X box as my instructor calls it), I can find any
> file
> (member in iseries lingo), and where that file resides anywhere on
> the box
> with the following command LISTF MYFILE.@.@,6.    This command in
> English
> reads as: list the FILE name and GROUP and ACCOUNT names where MYFILE
> exists
> (note: as on any box, MYFILE may exists in more than 1 place).
>
> Translated to iseries, I want to find all/any  SRC-PF and  LIBRARY
> (geez, I
> hope I explained that right) that the member MYFILE exists in (or
> even that
> it exists at all).
>
> As always, any help in greatly appreciated (and shared with my fellow
> classmates), and TIA.   :-)
>
> Ray Shahan

__________________________________________________
Do you Yahoo!?
U2 on LAUNCH - Exclusive greatest hits videos
http://launch.yahoo.com/u2