RE: The quickst & best CL for system reorg

["Dan Bale" <dbale@xxxxxxxxxxxxx>]

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx / Mike Berman
> Sent: Thursday, September 23, 2004 9:03 AM
>
> I need to write a qry on the dspfd and identify any file not used
> in last 2 yrs or more. than write a cl pgm to MOVE all of these
> old/unused files to a DELETE library. leave it thru a month end
> and then dlt thid temp lib after it is looked at.
>
> I need a way in a CL to get every lib, get the info regarding
> when it was last used.

DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*LIB *FILE)
          OUTPUT(*OUTFILE) OUTFILE($DODLIBFIL)

"Last used" is an ambiguous term.  Using the above command, every library
that shows up has blanks in the "Last Used Date" field.  Not sure how you'll
get that information, unless you test the last used date for every object in
a given library; the highest date you find will be the "Last Used Date" for
the library.

hth,
db