Get a report of large files and the total number of records in a library. I
run this below job on the weekends to help manage files that
need purging, or test libraries that my programmers forget
to clean up.
Code
***** OBJSIZE CLP *********
SOURCE FILE . . . . . . . EM400/QCLSRC
MEMBER . . . . . . . . . OBJSIZE
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM
200
300 DCL VAR(&EML_ADR) TYPE(*CHAR) LEN(40) VALUE(' ')
400 DCL VAR(&SUBJECT) TYPE(*CHAR) LEN(50) +
500 VALUE('SIZE OF OBJECTS ON SYSTEM')
600 DCL VAR(&PRE_FIX) TYPE(*CHAR) LEN(3) VALUE('OBJ')
700 DCL VAR(&SIZE) TYPE(*CHAR) LEN(3) VALUE('132')
800 DCL VAR(&FILE_NAME) TYPE(*CHAR) LEN(10) +
900 VALUE('QPQUPRFIL')
1000 DCL VAR(&ARC_DLT) TYPE(*CHAR) LEN(3) VALUE('DLT')
1100 DCL VAR(&EXTRA) TYPE(*CHAR) LEN(512) VALUE(' ')
1200
1300
1400 CHGVAR VAR(%SST(&EXTRA 1 20)) VALUE('OBJSIZE')
1500 CHGVAR VAR(%SST(&EXTRA 21 20)) VALUE('OBJSIZE')
1600
1700
1800 CLRPFM FILE(OISTST/SYSSIZE)
1900 DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*FILE *JRN *JRNRCV) +
2000 OUTPUT(*OUTFILE) OUTFILE(OISTST/SYSSIZE)
2100
2200 OVRPRTF FILE(QPQUPRFIL) PAGESIZE(66 127) LPI(6) +
2300 CPI(15) FORMTYPE(0088) COPIES(1)
2400 RUNQRY QRY(OISTST/SYSLISTPF)
2500 DLTOVR FILE(*ALL)
2600
2700 ENDPGM
****** SAMPLE REPORT ****
Library Object Object Object Text description
Type Size
TESTLIB ACCMAST PF 3,026,944 Accident Report file
ACCMAST715 PF 2,801,664 Accident Report file
ACITIES2 PF 7,798,784 City file FOR PHONE C
AGTCUSTPF PF 11,120,640 Agent customer file
APAGCK PF 130,183,168 A/P Agent Issued Chec
APCLAUDPF PF 19,955,712 AP AUDIT file when en
ARCUSTWK PF 30,466,048 ARCUST(Ma) - A/R cust
BITMST PF 1,187,840 Order Master File for
BLWAPSHOW PF 29,130,752 FIRST QUERY TO BE DON
BORDR PF 305,520,640 PHY Billing ord
BORDRL PF 418,955,264 PHY Billing ord
BORDR2 PF 14,573,568 Border file extra fie
BRKAUTH PF 10,674,176 BROKERAGE AUTHORIZATI
BT2222 PF 1,933,312 Orders created with B
TOTAL 3,524,534,272
FINAL TOTALS
TOTAL 50,994,868,224
******* SYSLISTPF Query *****
Query . . . . . . . . . . . . . . . . . SYSLISTPF
Library . . . . . . . . . . . . . . . OISTST
Query text . . . . . . . . . . . . . . List Large SYS Objects
Query CCSID . . . . . . . . . . . . . . 65535
Query language id . . . . . . . . . . .
Query country id . . . . . . . . . . .
*** . is the decimal separator character for this query ***
Collating sequence . . . . . . . . . . Hexadecimal
Processing options
Use rounding . . . . . . . . . . . . Yes (default)
Ignore decimal data errors . . . . . No (default)
Ignore substitution warnings . . . . Yes
Use collating for all compares . . . No
Selected files
ID File Library Member Record Format
T01 SYSSIZE OISTST *FIRST QLIDOBJD
Select record tests
AND/OR Field Test Value (Field, Numbers, or 'Characters')
ODOBSZ GT 1000000
AND ODOBAT NE 'LF'
Ordering of selected fields
Field Sort Ascending/ Break Field
Name Priority Descending Level Text
ODLBNM 1 Library
ODOBNM Object
ODOBAT Object attribute
ODOBSZ Object size
ODOBTX Text description
ODOBOW Object owner
IBM Query/400 1/07/03 10:18:35 Page 2
Report column formatting and summary functions
Summary functions: 1-Total, 2-Average, 3-Minimum, 4-Maximum, 5-Count Overrides
Field Summary Column Dec Null Dec Numeric
Name Functions Spacing Column Headings Len Pos Cap Len Pos Editing
ODLBNM 0 Library 10
ODOBNM 2 Object 10
ODOBAT 2 Object 10
Type
ODOBSZ 1 0 Object 10 0
Size
ODOBTX 2 Text description 50
ODOBOW 2 Object 10
Owner
Report breaks
Break New Suppress Break
Level Page Summaries Text
1 No No
Selected output attributes
Output type . . . . . . . . . . . . . . Printer
Form of output . . . . . . . . . . . . Detail
Line wrapping . . . . . . . . . . . . . No
Printer Output
Printer device . . . . . . . . . . . . *PRINT
Report size
Length . . . . . . . . . . . . . . . 68 (default)
Width . . . . . . . . . . . . . . . . 127
Report start line . . . . . . . . . . . 2
Report end line . . . . . . . . . . . . 66
Report line spacing . . . . . . . . . . Single space
Print definition . . . . . . . . . . . No
Printer Spooled Output
Spool the output . . . . . . . . . . . Yes
Form type . . . . . . . . . . . . . . . 0088
Copies . . . . . . . . . . . . . . . . 1
Hold . . . . . . . . . . . . . . . . . (Defaults to value in print file, QPQUPRFIL)
IBM Query/400 1/07/03 10:18:35 Page 3
Cover Page
Print cover page . . . . . . . . . . . No
Cover page title
Page headings and footings
Print standard page heading . . . . . . Yes
Page heading
Page footing
(oistst/syslist)
* * * * * E N D O F Q U E R Y P R I N T * * * * *
