RE: Determining Program "Last Access Date"

Excellent!

Thank you everyone who responded.

Brian.

-----Original Message-----
From: Al Mac [mailto:macwheel99@xxxxxxxxxxx] 
Sent: Wednesday, October 12, 2005 5:56 PM
To: Midrange Systems Technical Discussion
Subject: Re: Determining Program "Last Access Date"

I working on something similar to that right now.
1. Get an *OUTFILE dump of the programs, queries, files, etc.
2. Run a query over the dump, in which you are interested in date of 
creation/update/replace (such as from backup restore) v.s how often it
been 
used since then (days used count) and what was the last date it was
used.
3. Watch out for stuff used only with end-year, physical inventory etc. 
(rarely used but important to keep).
4. When find candidate, move it to a DEAD library, so it can be
recovered 
if anything overlooked.  Then anything in the DEAD library over a year 
later, is safe to delete.

>Hi All,
>
>We have (I'm sure of it!) many internally-written programs that have
>been rewritten and are currently in use.  However, the programmers
>failed to remove the old program code and objects out of our AS/400,
>resulting in many duplicated programs that may or may not be in use.  I
>have been tasked to figure out what objects are currently in use and
>what objects can be removed.
>
>
>
>Is there an easy way to determine when a program was last run and
>whether or not is it currently in use?  I'd really like to be able to
>say "show me all programs that have not been accessed in 2005" or
>something to that effect.
>
>
>
>Any ideas would be appreciated.
>
>
>Thanks!
>
>
>Brian.
>
>
>
>-=-=-=-=-=-=-=-=-=-=-=-=-=-
>
>Brian Piotrowski
>
>Specialist - I.T.
>
>Simcoe Parts Service, Inc.
>
>Ph: 705-435-7814 x343
>
>Fx: 705-435-6746
>
>bpiotrowski@xxxxxxxxxxxxxxx
>
>-=-=-=-=-=-=-=-=-=-=-=-=-=-
>
>
>
>--
>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.