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.
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
Requires Free Membership to View
Register today to access targeted resources from our editorial writers and independent industry experts including news, tips, and advice to help you do your job more efficiently and effectively. Stay informed on the hottest topics and biggest challenges faced by IT professionals working with iSeries products and services.
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.
This was first published in July 2002