× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.