Keep track of disk use

Here's an easy way to keep track of disk use.

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

Dig deeper on Performance

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchEnterpriseLinux

SearchDataCenter

Close