RE: The quickst & best CL for system reorg

[pnelson@xxxxxxxxxx]

Once you create a file containing all the library names, then read that 
file. For each library name not beginning with the letter Q, run the 
following command in your CL program: 
 
DSPFD FILE(&ODOBNM/*ALL) TYPE(*MBRLIST) OUTPUT(*OUTFILE) FILEATR(*PF) 
OUTFILE(FILES) 

This will give you data that you can use in your query.  I use this method 
to automate file reorgs, and it works great. Contact me offline if you 
need more. 


Paul Nelson
Arbor Solutions, Inc.
708-670-6978  Cell
pnelson@xxxxxxxxxx





"Dan Bale" <dbale@xxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
09/23/2004 08:28 AM
Please respond to Midrange Systems Technical Discussion
 
        To:     "Midrange Systems Technical Discussion" 
<midrange-l@xxxxxxxxxxxx>
        cc: 
        Subject:        RE: The quickst & best CL for system reorg


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