RE: The quickst & best CL for system reorg -- MIDRANGE-L

You can use DSPFD FILE(*ALLUSR/*ALL) and get all the non-IBM files, instead of using DSPOBJD - a little time savings.

And do be careful with logicals - some are needed for SQL optimization, and that "usage" is not recorded, although it helps SQL go faster.

Vern

At 08:37 AM 9/23/2004, you wrote:

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.


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