RE: AS400 RPG Scanning Question

["Rubino, Jim" <Jim.Rubino@xxxxxxxx>]

You can use FNDSTRPDM command.
Try this:   FNDSTRPDM STRING(PRINTER) FILE(sourcelib/QRPGSRC) MBR(*ALL)
OPTION(*NONE)
PRTMBRLIST(*YES)   

    Jim Rubino 
Senior Programmer Analyst 
FIKE CORPORATION (r) 
704 South 10th Street 
Blue Springs, Mo.  64015
Direct Dial - (816)  655-4579
Or - (816)  229-6216  Ext. 1079
 


-----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.