RE: AS400 RPG Scanning Question

ok...I'll get it to you in a day or so.

On Tue, 24 Aug 2004 13:14:44 -0500, "Dwayne Allison"
<Dwayne.Allison@xxxxxxxxx> said:
> I got a brief idea in mind of what you did.  If you like you can send it?
> 
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of
> michaelr_41@xxxxxxxxxxxxxx
> Sent: Tuesday, August 24, 2004 12:54 PM
> To: Midrange Systems Technical Discussion
> Subject: RE: AS400 RPG Scanning Question
> 
> 
> I did this iterative thing where I scanned all the source members for
> certain 'words' that were in another file. If I found the word(s), I
> wrote out the lines (and the name of the member and stuff) to yet
> another file. You could then query it or whatever. I'll send it to you
> if you want. It will take me a couple of days though.
> 
> On Tue, 24 Aug 2004 12:38:57 -0500, "Dwayne Allison"
> <Dwayne.Allison@xxxxxxxxx> said:
> > How did you do it?  Sound like something we all can use?
> > 
> > -----Original Message-----
> > From: midrange-l-bounces@xxxxxxxxxxxx
> > [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of
> > michaelr_41@xxxxxxxxxxxxxx
> > Sent: Tuesday, August 24, 2004 12:37 PM
> > To: Midrange Systems Technical Discussion
> > Subject: Re: AS400 RPG Scanning Question
> > 
> > 
> > I wrote a utility to do that...clunky, but it works.
> > 
> > On Tue, 24 Aug 2004 12:25:58 -0500, "Drew, Ronald"
> > <RDrew@xxxxxxxxxxxxxxx> said:
> > > Does anyone out there know of any utility available that can look at an
> > > AS400 program directory, scan the RPG code and return results of only the
> > > programs that have specific criteria back?  We have 5,200 RPG programs
> > > and I
> > > bet at least 4,000 are just reports.  We have 4900 files of which I
> > > believe
> > > at least 3500 are no longer used.  The environment has been built over
> > > many
> > > years and nothing has been purged.  I now want to upgrade to a non-green
> > > screen environment but want to purge the out stuff not being used.  So I
> > > want to scan the code and look for the programs that only match criteria
> > > such as a printer for output.  Do you know of any utility or can you
> > > point
> > > me in the right direction?
> > > 
> > >  
> > > 
> > > I have asked IBM and a friendly rep advised using DSPPGMREF (Display
> > > Program
> > > References) creating an output file and then downloading it to the PC for
> > > investigating.
> > > 
> > > Does anyone have any other ideas?
> > > 
> > >  
> > > 
> > > Ron Drew
> > > 
> > >  
> > > 
> > > --
> > > 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
> > 
> > --
> > 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.
> > 
> -- 
>   
>   michaelr_41@xxxxxxxxxxxxxx
> 
> --
> 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.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx