Tip

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

There are Comments. Add yours.

 
TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
Sort by: OldestNewest

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:

Disclaimer: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.