Re: FINDING A FILE

["Dare" <oludare@xxxxxxxxxxxxx>]

Hey Martin,

You can do this without HLL, just use a CL for the code.  You can read
through the OUTFILE from DSPOBJD and process the information.
Instead of HLL and logical, sort within CL and eliminate unwanted records.
Do you need more detail?

Dare

----- Original Message -----
From: "Martin Rowe" <martin@dbg400.net>
To: <rpg400-l@midrange.com>
Sent: Friday, December 14, 2001 1:43 PM
Subject: Re: FINDING A FILE


> On Fri, 2001-12-14 at 18:30, Troy.C.Dills@blum.com wrote:
> > I have a little project to do that maybe someone has already
accomplished.
> > I need to search for a database file in every DDSSRC, RPGLESSRC, CLPSRC,
> > and RPGSRC from every source library on the system.  Does anyone have
> > (RPG) code that would accomplish this task that they would be willing to
> > share. I will
> > be happy to give you an ataboy?  We have Hawkeye but I don't know how
> > to use it.
> >
> > TIA
> > Troy Dills
>
> Hi Troy
>
> I've done this using a logical over one of the system xref files that
> just looked at files of type *SRC, and have a program loop through that
> doing a CHKOBJ on the requested member against each sourcefile read in.
> I'm sure it's not the best way to achieve it, but it works very nicely.
> If no-one comes up with anything better, I'll dig out the code next
> week.
>
> Regards, Martin
> --
> martin@dbg400.net  jamaro@firstlinux.net  http://www.dbg400.net
> /"\
> DBG/400 - DataBase Generation utilities - AS/400 / iSeries Open        \
> /
> Source free test environment tools and others (file/spool/misc)
> X
> [this space for hire]  ASCII Ribbon Campaign against HTML mail & news  /
> \
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>