RE: The quickst & best CL for system reorg

Last used is sometimes a [problem. If it is blank, I believe if the system 
'crashes' all the files get a blank for last used. 
On my system, I have many files that were last used in 1996. It is safe to say 
that there is no longer any value in them.
 
We have a space problem, and I know many have said it is not worth the time, 
but the company is not doing so well, they posted a loss last quarter. So every 
expenditure is measured. Even though I agree the time is not worth the cost of 
the extra disk, this company is looking to save actual $.

Dan Bale <dbale@xxxxxxxxxxxxx> wrote:
> -----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

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


                
---------------------------------
Do you Yahoo!?
vote.yahoo.com - Register online to vote today!