RE: AS400 RPG Scanning Question

[michaelr_41@xxxxxxxxxxxxxx]

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