To keep track of (change of) disk use I am running a DSPOBJD of the entire system on a weekly basis. You can than use some queries to show you all new/deleted/changed objects. You can now quickly find which files are eating your disk space and which libraries are growing.
Code
The CL program:
---------------------------------
PGM
/*GET OBJECT DISCRIPTION OF ALL FILES*/
DSPOBJD OBJ(*ALLUSR/*ALL) OBJTYPE(*ALL) OUTPUT(*OUTFILE) OUTFILE(QTEMP/ALLUSROBJ)
/*COMPARE TO PREVIOUS OBJ DISCRIPTION*/
CHKNEW: RUNQRY QRY(DSPNEW)
CHKDLT: RUNQRY QRY(DSPDLT)
DSPSIZCHG:RUNQRY QRY(DSPSIZCHG)
/* SAVE OLD OBJECT DISCRIPTIONS AND COPY NEW ONE FROM QTEMP TO PREV */
CPYF FROMFILE(yourlib/ALLUSROBJ) TOFILE(yourlib/ALLOBJOLD) MBROPT(*REPLACE) CRTFILE(*YES)
CPYF FROMFILE(QTEMP/ALLUSROBJ) TOFILE(yourlib/ALLUSROBJ) MBROPT(*REPLACE) CRTFILE(*YES)
ENDPGM
---------------------------------
The queries:
---------------------------------
1.DSPNEW:
fileselection:
1:QTEMP/ALLUSROBJ
2:yourlib/ALLUSEROBJ
join type 3(Unmatched records with primary file)
T01.ODOBNM EQ T02.ODOBNM
T01.ODLBNM EQ T02.ODLBNM
T01.ODOBTP EQ T02.ODOBTP
T01.ODOBAT EQ T02.ODOBAT
this will show you all objects found by DSPOBJD this week which where not there last week.
---------------------------------
2.DSPDLT:
fileselection:
1:yourlib/ALLUSROBJ
2:QTEMP/ALLUSEROBJ
join type 3(Unmatched records with primary file)
T01.ODOBNM EQ T02.ODOBNM
T01.ODLBNM EQ T02.ODLBNM
T01.ODOBTP EQ T02.ODOBTP
T01.ODOBAT EQ T02.ODOBAT
This will show you all objects found by DSPOBJD last week which are not there anymore.
---------------------------------
3.DSPSIZCHG:
File selection:
1:QTEMP/ALLUSROBJ
2:yourlib/ALLUSEROBJ
join type 1(Matched records)
T01.ODOBNM EQ T02.ODOBNM
T01.ODLBNM EQ T02.ODLBNM
T01.ODOBTP EQ T02.ODOBTP
T01.ODOBAT EQ T02.ODOBAT
Define result fields:
SIZECHANGE = T01.ODOBSZ - T02.ODOBSZ
OLDSIZE = T02.ODOBSZ
NEWSIZE = T01.ODOBSZ
Select records:
T01.ODOBSZ NE T02.ODOBSZ
Select sort fields:
You can sort by library/file name or by SIZECHANGE
This will show you all objects found by DSPOBJD this week which where there last week and have changed in size.
---------------------------------
These queries will generate very detailed reports. If you want you can change the queries to summarize by library to give you a nice overview.
==================================
MORE INFORMATION ON THIS TOPIC
==================================
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.
