TomLiotta Feb 11, 2013   11:32 PM GMT

The DSPOBJD command is a useful way to build a quick list of objects. I would use OBJTYPE(*PGM) instead of *ALL, and I'd put the outfile in QTEMP or a personal library rather than in QGPL.   Once the file is built, you could run various queries over it. SQL could show all programs used since 2011:

SELECT ODOBNM, ODUDAT FROM qtemp/objd
  WHERE substr(ODUDAT,5,2) > '11'

That selects programs with a LastUsed year greater than '11' (but be aware of 1999 and earlier).  Alternatively, you might choose to make the list smaller:

DELETE FROM qtemp/objd
  WHERE substr(ODUDAT,5,2) < '12' OR substr(ODUDAT,5,2) > '13'

That gets rid of all rows that have LastUsed year before 2012 (including any from 1999 or earlier).   By reversing the WHERE logic, you would get rid of rows for programs that have been used in 2012 and 2013. The remaining rows would be programs that haven't been used in more than a full calendar year.   The DSPOBJD command can be run multiple times to build the list fresh again. Queries can select different year ranges to let you cut the list down a few years at a time. Before deleting programs, you might verify that any source still exists. Instead of deleting, you might use MOVOBJ to move them to an archive library. That helps retain ownership and authority. The archive library can be saved later and restored if needed.   After programs are handled, you might want to review other object types by changing the OBJTYPE() parameter.   Tom

125,585 pointsBadges: