Re: qadb reference files

["Joe Lee" <LeeJD@xxxxxx>]

Assuming it's like the version I put together, you enter &MEMBER on the
call or in the command. The version I did uses an opnqryf so you can
subset the list of source files and libraries searched. I also set it up
so that you can search for member 'xxx*' and it will build a list of
matching members, however this uses the dspfd *mbrlst method and is
therefore much slower, you really want to subset the list of source
files and or libraries if you are searching for a member with a
wildcard. Unfortunately I can't post the code, but it is fairly trivial
to implement. 

One thing I also did was to have a "progress indicator" I get a count
of how many source files I will be checking, how many I have already
checked, and how long it has taken to check those files, and then
extrapolate how long it will take to check the rest of the source files.
This slows the process down somewhat, but it is very nice if you are
running the program interactively, to have an idea of how long it will
take to complete.

Another feature of the program I created is that it scans through each
source member it finds and returns the most recent date that one of the
source lines was changed. Obviously this doesn't help if dates get reset
to 0, but most of the time it is a useful indication of which source
member is the most current.

I have thought about creating some type of exit program on the commands
like ADDPFM and RMVPFM, so that any new or deleted source members could
be tracked in a home grown file, but I don't know if this would work or
not.

Anyway those are just some ideas, that I have found useful. I hope it
helps.


Joe Lee

Adventist Health
Senior Programmer/Analyst

(916) 774-3347
e-mail: leejd@xxxxxx

>>> michaelr_41@xxxxxxxxxxxxxx 02/19/2004 10:51:46 >>>
Where does &MEMBER come from?
 
On Thu, 19 Feb 2004 18:41:09 +0000, "Martin Rowe" <martin@xxxxxxxxxx>
said:
> 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.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx 

-- 
http://www.fastmail.fm - Access all of your messages and folders
                          wherever you are
_______________________________________________
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.