HCHECK4 – Reports for capacity analyst
This section describes HCHECK4.
Create an Extract File
Create an extract file containing volume level information. These are some of the fields used by the reports in this set:
- STORGRP - SMS storage group name
- UCBSTATS - UCB status indicators
- VL%FDSCB - Volume DSCBs free percent
- VL%FTRKS - Volume tracks free percent
- VL%FVVDS - Volume VVDS free percent
- VL%UTRKS - Volume tracks used percent
- VLALOBYT - Allocated bytes
- VLALOSTA - Volume allocation status
- VLALOTRK - Allocated tracks
- VLBYTVOL - Bytes/volume
- VLCTLSER - Controller serial number
- VLCYLVOL - Number of cylinders/volume
- VLDEVTYP - Device type
- VLDSCB1 - Format 1 DSCB count
- VLDSOEF - DSORG EF(ICF VSAM component)
- VLFREBYT - Free bytes
- VLFRECYL - Free cylinders
- VLFRETRK - Free tracks
- VLMFRCOD - Manufactures’ code
- VLSSID - SSID
- VLSYSID - System identification from SMF
- VLTRKVOL - Number of tracks/volume
- VLUNIT - Unit address
- VLVOLSER - DASD volume serial number
- VLVVDSTR - VVDS allocated tracks
- VSVLALOC - Allocated cylinders (volume summary)
- VSVLVOLC - Volume count in control break (volume summary)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//SYSIN DD *
DEFAULT TITLE=LEFT,DISABLE=(INFOMSG,SUMVALUES),
BYTEFORMAT=KILOBYTES,SUMBYTEFORMAT=MEGABYTES,
ENABLE=(LSPACERECOVER,SELECTOFFLINE,ONELINESUM)
XSELECT VLUNIT.GE.0
REPORT FIELDS=(VLVOLSER,VLUNIT)
PRINT ONLINE,RPTYPE=DATA,DATATYPE=VOLDATA,ENABLE=MAXAVAILABLE
Total Online Space Available, Space Allocated, and Space Unused
HEADING LINE(1)='TOTAL ------------TRACKS----------- +
-------------BYTES-----------',
LINE(2)=' VOLS TOTAL ALLOCATED FREE T+
OTAL ALLOCATED FREE',
LINE(3)='----- ----------- ----------- ----------- +
----------- ----------- -----------'
XSELECT VLALOSTA=ONLINE
REPORT FIELDS=(VSVLVOLC,VLTRKVOL,VLALOTRK,VLFRETRK,VLBYTVOL,
VLALOBYT,VLFREBYT)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=NOBREAK
Sample Output
TOTAL ------------TRACKS----------- -------------BYTES-----------
VOLS TOTAL ALLOCATED FREE TOTAL ALLOCATED FREE
----- ----------- ----------- ----------- ----------- ----------- -----------
899 300314295 49226662 251087633 16997.835G 2784.667G 14213.168G
Online Units by Manufacturer
XSELECT VLALOSTA=ONLINE
REPORT FIELDS=(VLMFRCOD,VSVLVOLC,VLCYLVOL,VLFRECYL,VSVLALOC,
VL%FTRKS,VL%UTRKS)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=MFRCODE
Sample Output
MFR VOLCT CYL VOLUME FREE CYL ALLOC CYL %TF %TU
--- ----- ----------- ----------- ----------- --- ---
EMC 372 10152629 8663522 1489107 85 15
HTC 133 2245328 1758629 486699 78 22
IBM 339 6458147 3634499 2823648 56 44
--
844 18856104 14056650 4799454 74 26
Online Units by Controller Serial Number
XSELECT VLALOSTA=ONLINE
REPORT FIELDS=(VLCTLSER,VLMFRCOD,VSVLVOLC,VLCYLVOL,VLFRECYL,
VSVLALOC,VL%FTRKS,VL%UTRKS)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=CTLSERNO
Sample Output
CNTSR MFR VOLCT CYL VOLUME FREE CYL ALLOC CYL %TF %TU
----- --- ----- ----------- ----------- ----------- --- ---
ABYKL EMC 101 5467159 4610076 857083 84 16
ABYKN EMC 271 4685470 4054389 631081 86 14
LR221 IBM 156 3673904 2006673 1667231 54 46
L6001 IBM 183 2784243 1630108 1154135 58 42
56422 HTC 72 1925499 1471135 454364 76 24
65950 HTC 61 319829 287494 32335 89 11
--
844 18856104 14059875 4796229 74 26
Space Utilization by Control Unit Subsystem Identifier
XSELECT VLSSID=*,VLALOSTA=ONLINE
REPORT FIELDS=(VLSSID,VLCTLSER,VLMFRCOD,VSVLVOLC,VLCYLVOL,VLFRECYL,
VSVLALOC,VL%FTRKS,VL%UTRKS)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=SSID
Sample Output
SSID CNTSR MFR VOLCT CYL VOLUME FREE CYL ALLOC CYL %TF %TU
---- ----- --- ----- ----------- ----------- ----------- --- ---
F871 L6001 IBM 168 2734158 1610208 1123950 58 42
3007 ABYKN EMC 113 2232233 1997347 234886 89 11
9102 56422 HTC 4 1050672 599968 450704 57 43
--
844 18856104 14059875 4796229 74 26
Space Utilization by Volume for SSID
XSELECT SSID=* ***CHANGE
REPORT FIELDS=(VLVOLSER,VLSSID,VLSYSID,VLCYLVOL,VLFRECYL,VLFRETRK,
VL%UTRKS,VL%FTRKS)
SUMMARY FIELDS=(VLCYLVOL,VLFRECYL,VLFRETRK,VLVOLSER)
SORT FIELDS=VL%FTRKS,SEQUENCE=A
PRINT DATATYPE=EXTRACT
Sample Output
SYS
VOLSER SSID ID CYLVOL FREECYL FREETRACK %TU %TF
------ ---- ---- -------- -------- --------- --- ---
SYM201 3000 CPUA 10017 15 237 100 0
SYM208 3000 CPUA 2226 4 60 100 0
SYM209 3000 CPUA 2226 4 60 100 0
…
SPACE UTILIZATION BY VOLUME FOR SSID=3007
SYS
VOLSER SSID ID CYLVOL FREECYL FREETRACK %TU %TF
------ ---- ---- -------- -------- --------- --- ---
SY5304 3007 CPUA 32760 32758 491381 1 99
SY5308 3007 CPUA 10017 10015 150237 1 99
…
FINAL TOTALS --
VLCYLVOL---------20020953 VLFRECYL---------16737166
VLFRETRK--------251087633
VLVOLSER--------------899
Space Utilization by Device Type
XSELECT VLALOSTA=ONLINE
REPORT FIELDS=(VLDEVTYP,VSVLVOLC,VLCYLVOL,VLFRECYL,VSVLALOC,
VL%FTRKS,VL%UTRKS)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=DEVTYPE
Sample Output
DEVTYPE VOLCT CYL VOLUME FREE CYL ALLOC CYL %TF %TU
------- ----- ----------- ----------- ----------- --- ---
3380-2 25 55650 51192 4458 92 8
3380-3 25 83475 53629 29846 64 36
3390 179 172489 152648 19841 88 12
3390-A 70 11345922 9985546 1360376 88 12
3390-2 173 385098 331527 53571 86 14
3390-27 120 3651228 2590143 1061085 70 30
3390-3 153 510867 441856 69011 86 14
3390-54 41 2686320 2412785 273535 89 11
3390-9 113 1129904 744959 384945 65 35
--
899 20020953 16764285 3256668 83 17
Space Utilization by Storage Group
XSELECT STORGRP=*,VLALOSTA=ONLINE
REPORT FIELDS=(VLSMSSTG,VSVLVOLC,VLCYLVOL,VLFRECYL,VSVLALOC,
VL%FTRKS,VL%UTRKS)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=STORGRP
Sample Output
STORGRP VOLCT CYL VOLUME FREE CYL ALLOC CYL %TF %TU
-------- ----- ----------- ----------- ----------- --- ---
DB2A00 1 32760 31295 1465 95 5
DB2A01 1 32760 28504 4256 87 13
DVSGTEST 2 13356 13350 6 99 1
…
PROD0 11 110040 38067 71973 34 66
PROD1 4 85554 64145 21409 74 26
PROD10 8 53424 20991 32433 39 61
PROD11 32 4273920 3495214 778706 81 19
…
UP0001 4 1050672 600042 450630 57 43
--
217 8695617 6462564 2233053 74 26
List All VOLSERs/UNITs, Showing ONLINE/OFFLINE Status
STATUS ----> <UCBSTATS>'
SORT FIELDS=(UCBSTATS,VLUNIT),BREAK=(SEJ,NO)
SUMMARY FIELDS=VLUNIT
REPORT FIELDS=(VLVOLSER,VLUNIT,VLDEVTYP,VLCYLVOL,VLFRECYL,
VSVLALOC,VL%FTRKS,VL%UTRKS,UCBSTATS)
PRINT DATATYPE=EXTRACT
Sample Output
VOLSER UADR DEVTYPE CYLVOL FREECYL ALLOC CYL %TF %TU UCBSTAT
------ ---- ------- -------- -------- ----------- --- --- -------
VM0440 0440 3390-54 65520 0 65520 0 100 OFFLINE
UP180F 180F 3390-A 131334 6518 124816 4 96 OFFLINE
…
VM96F1 96F1 3390-9 10017 0 10017 0 100 OFFLINE
SUB - UCBSTATS-OFFLINE VLUNIT----------------654
LIST ALL VOLSERS/UNITS ONLINE/OFFLINE STATUS ----> ONLINE
VOLSER UADR DEVTYPE CYLVOL FREECYL ALLOC CYL %TF %TU UCBSTAT
------ ---- ------- -------- -------- ----------- --- --- -------
SYM000 01C0 3390-9 10017 10015 2 99 1 ONLINE
SYM002 01C2 3390-3 3339 3337 2 99 1 ONLINE
…
SYTS48 80BF 3390-27 32760 26874 5886 82 18 ONLINE
SUB - UCBSTATS-ONLINE VLUNIT----------------899
FINAL TOTALS -- VLUNIT---------------1553
Volumes with More than 45% Free Space
HEADING LINE(1)=' DISK DISK FREE FREE N+
O. OF DEVICE',
LINE(2)='VOLSER %FREE TRACKS MBYTES D+
ATASETS TYPE',
LINE(3)='------ ----- -------- ------- -+
------- -------'
XSELECT VL%FTRKS.GT.45,VLALOSTA=ONLINE
REPORT FIELDS=(VLVOLSER,SP6,VL%FTRKS,SP3,VLFRETRK,SP4,VLFREMBY,
SP3,VLDSCB1,SP5,VLDEVTYP)
SORT FIELDS=(VL%FTRKS),SEQUENCE=(D)
SUMMARY FIELDS=(VLVOLSER,VLFRETRK,VLFREBYT)
PRINT DATATYPE=EXTRACT
Sample Output
DISK DISK FREE FREE NO. OF DEVICE
VOLSER %FREE TRACKS MBYTES DATASETS TYPE
------ ----- -------- ------- -------- -------
SYM000 99 150237 8513 1 3390-9
SMS40B 99 491372 27843 3 3390-27
…
UP180D 47 1884961 106809 8 3390-A
SYTS24 46 227952 12917 57 3390-27
FINAL TOTALS --
VLVOLSER--------------757 VLFRETRK--------247167376 VLFREBYT-------13992.150G
VTOCs with More than 45% Free Space
HEADING LINE(1)=' DISK VTOC VTOC NO.OF DISK',
LINE(2)='VOLSER %FREE SIZE DATASETS %USED',
LINE(3)='------ ----- ------ -------- -----'
XSELECT VL%FDSCB.GT.45,VLALOSTA=ONLINE
REPORT FIELDS=(VLVOLSER,SP5,VL%FDSCB,SP3,VLVTOCTR,
SP4,VLDSCB1,SP4,VL%UTRKS)
SORT FIELDS=(VLVTOCTR,VL%FDSCB),SEQUENCE=(D,D)
PRINT DATATYPE=EXTRACT
Sample Output
DISK VTOC VTOC NO.OF DISK
VOLSER %FREE SIZE DATASETS %USED
------ ----- ------ -------- -----
NM0017 64 2566 44096 85
SH21DC 73 150 2003 31
DB2A01 83 60 506 5
…
VVDSs with More than 45% Free Space
HEADING LINE(1)=' DISK VVDS VVDS NO.OF NO. OF +
DISK',
LINE(2)='VOLSER %FREE SIZE DATASETS DATASETS +
%USED',
LINE(3)='------ ----- ----- (TOTAL) (VSAM) +
-----'
XSELECT VL%FVVDS.GT.45,VLALOSTA=ONLINE
REPORT FIELDS=(VLVOLSER,SP4,VL%FVVDS,SP3,VLVVDSTR,SP4,VLDSCB1,
SP4,VLDSOEF,SP6,VL%UTRKS)
SORT FIELDS=(VLVVDSTR,VL%FVVDS),SEQUENCE=(D,D)
PRINT DATATYPE=EXTRACT
Sample Output
DISK VVDS VVDS NO.OF NO. OF DISK
VOLSER %FREE SIZE DATASETS DATASETS %USED
------ ----- ----- (TOTAL) (VSAM) -----
EU0220 98 10 17 1 70
EU0223 98 10 15 1 69
EU1812 98 10 60 1 79
EU1817 98 10 6 1 3
EU1818 98 10 4 1 91
Create an Extract File
Create an extract file containing data set information. These are some of the fields used by the reports in this set:
- %CAPUSED - Used percentage of allocation capacity
- BLKSIZE - Data set block size
- BYTES - Allocated space
- BYTESFRE - Unused space
- COMPTYPE - Component type (ICF VSAM)
- CRDATE - Creation date
- DSN - Data set name / VSAM component name
- DSORG - Data set organization
- EXPDATE - Expiration date
- EXPDAYS - Days until expiration
- LRDATE - Last reference date
- LRDAYS - Days since last referenced
- SIZE - Allocated tracks
- SIZEFREE - Tracks not in use within data set extents
- SPLDSN - Split data set name on two lines
- VOL - Volume serial number
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SUMREP DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//SYSIN DD *
DEFAULT TITLE=LEFT,DISABLE=(INFOMSG,SUMVALUES),
BYTEFORMAT=KILOBYTES,SUMBYTEFORMAT=MEGABYTES,
ENABLE=(LSPACERECOVER,ONELINESUM)
XEXCLUDE SIZE=0
REPORT FIELDS=(DSN,NOEXTENT,SIZE,VOL,DSORG,COMPTYPE)
PRINT ONLINE,RPTYPE=DATA
Data Sets Past Their Expiry Date
XSELECT EXPDATE.NE.0,EXPDAYS.EQ.0,LRDAYS>30 ***CHANGE
REPORT FIELDS=(SPLDSN,EXPDATE,SIZE,SIZEFREE,BYTES,BYTESFRE,VOL,
CRDATE,LRDATE)
SORT FIELDS=(EXPDATE,SIZE),SEQUENCE=(A,D)
SUMMARY FIELDS=(DSN,SIZE,SIZEFREE,BYTES,BYTESFRE) PRINT DATATYPE=EXTRACT,ENABLE=ONELINESUM
Sample Output
DATA SET NAME EXPDAT ALLOC FREE BYTES BYTESFREE VOLSER CRDATE LRDATE
------------- -------- -------- -------- ----------- ----------- ------ -------- --------
JYS.P534096.BKUP001 2001.178 36 0 1179.360K 0.000K IDPT01 2000.179 2007.087
XTRGRP.USTTRANS.EU1810.TEST 2002.084 3 2 129.024K 86.016K USTWKA 2003.112 2011.111
…
CRL.USTCHRIS.CONTRL. 2015.071 2520 2520 135475.200K 135475.200K USTWK6 2015.071 2015.071
USTVLC01.D150312.T170726
DSN-------------------257 SIZE----------------93315 SIZEFREE-------------2741 BYTES-----------4140.532M
BYTESFRE---------142.809M
Data Sets Not Referenced in 60 Days
XEXCLUDE XDSN=SYS1**
XEXCLUDE COMPTYPE=(INDEX,AIXDATA,AIXINDEX)
XSELECT LRDAYS>59 ***CHANGE
REPORT FIELDS=(SPLDSN,LRDATE,SIZE,SIZEFREE,BYTES,BYTESFRE,VOL,
CRDATE)
SORT FIELDS=(LRDATE,SIZE),SEQUENCE=(A,D)
SUMMARY FIELDS=(DSN,SIZE,SIZEFREE,BYTES,BYTESFRE) PRINT DATATYPE=EXTRACT
Sample Output
DATA SET NAME LRDATE ALLOC FREE BYTES BYTESFREE VOLSER CRDATE
------------- -------- -------- -------- ----------- ----------- ------ --------
SYSP.XPORTGDG.STEEL. 1993.132 1 0 46.952K 0.000K IDPLB5 1993.132
G0001V00
BOB3.ISPF4.PROFILE 1996.306 2 1 93.600K 46.800K IDPLB0 1996.306
…
BAH.TEST.MODEL 2015.078 1 1 0.000K 0.000K USTWK5 2015.078
FINAL TOTALS --
DSN-----------------60584 SIZE-------------25767140 SIZEFREE----------6522591 BYTES-----------2100.976G
BYTESFRE--------1479.096G
Data Sets with Inefficient Block Sizes (Worst First)
XEXCLUDE DSORG.EQ.EF ** ONLY REPORT NON-VSAM
XEXCLUDE XDSN=SYS+++++.** ** EXCLUDE TEMPORARY DATASETS
XSELECT %CAPUSED.LT.70,SIZE.GT.5,BLKSIZE.GT.0 ***CHANGE
SORT FIELDS=(%CAPUSED),SEQUENCE=(A)
REPORT FIELDS=(SPLDSN,BLKSIZE,%CAPUSED,SIZE,BYTES,VOL,CRDATE,
LRDATE)
PRINT DATATYPE=EXTRACT
Sample Output
DATA SET NAME BKSIZ %CP ALLOC BYTES VOLSER CRDATE LRDATE
------------- ----- --- -------- ----------- ------ -------- --------
SYS1.HOSTS.SITEINFO 56 9 15 68.880K IPLZ22 2015.134 2015.134
SYS1.HOSTS.SITEINFO 56 9 15 68.880K IPLZ1C 2010.287 2010.287
…
SMPE.DB2A10.SMPLOGA 19069 68 255 9725.190K SYSDBA 2011.110 2011.110
SMPE.DB2A10.SMPLTS 19069 68 1560 59495.280K SYSDBA 2011.110 2011.213
Small Data Sets with Inefficient Block Sizes
XEXCLUDE DSORG.EQ.EF ** ONLY REPORT NON-VSAM
XEXCLUDE XDSN=SYS+++++.** ** EXCLUDE TEMPORARY DATASETS
XSELECT %CAPUSED.LT.70,SIZE.LE.5,BLKSIZE.GT.0 ***CHANGE
SORT FIELDS=(%CAPUSED),SEQUENCE=(A)
REPORT FIELDS=(SPLDSN,BLKSIZE,%CAPUSED,SIZE,BYTES,VOL,CRDATE,
LRDATE)
PRINT DATATYPE=EXTRACT
Sample Output
DATA SET NAME BKSIZ %CP ALLOC BYTES VOLSER CRDATE LRDATE
------------- ----- --- -------- ----------- ------ -------- --------
MAIL.FIL.NEXTC 24 4 3 5.904K IDPLB6 2005.102 2014.296
SYS1.HOSTS.SITEINFO 56 9 1 4.592K IPLZ1D 2011.291 2011.291
…
LED.HCD.MSGLOG 1330 66 1 37.240K IDPWK1 2015.135 2015.135
FDRQUERY Archive Simulation All Volumes in 15 Day Increments
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPORT ARCHIVE,AGE=15,AGEINC=15
Sample Output
ALLOC BEFORE AFTER LAST USED SAVINGS IF ARCHIVED
VOLSER DEVTYPE TRACKS %ALLOC %ALLOC DAYS DATE DSNS TRACKS %SAVED
IDPWH3 3390-27 398328 81.05% 49.12% 15 2015123 336 156952 39.40%
53.82% 30 2015108 318 133852 33.60%
54.45% 45 2015093 310 130712 32.81%
55.03% 60 2015078 298 127877 32.10%
55.96% 75 2015063 288 123297 30.95%
57.25% 90 2015048 278 116967 29.36%
57.89% 105 2015033 269 113812 28.57%
58.52% 120 2015018 262 110737 27.80%
62.24% 135 2015003 243 92462 23.21%
…
SUMMARY LEVEL -- DEVICE TYPE
ALLOC BEFORE AFTER LAST USED SAVINGS IF ARCHIVED
VOLCNT DEVTYPE TRACKS %ALLOC %ALLOC DAYS DATE DSNS TRACKS %SAVED
120 3390-27 15866775 28.97% 16.01% 15 2015123 6404 7097040 44.72%
18.48% 30 2015108 5778 5742266 36.19%
19.38% 45 2015093 5606 5247822 33.07%
19.70% 60 2015078 5448 5075834 31.99%
20.46% 75 2015063 5323 4660405 29.37%
21.07% 90 2015048 5147 4321955 27.23%
21.89% 105 2015033 4943 3875839 24.42%
22.24% 120 2015018 4863 3681581 23.20%
22.46% 135 2015003 4667 3564430 22.46%
…
FDRQUERY Backup Simulation All Volumes
Sample Output
TOTAL -- ALLOCATED --- - INCREMENTAL -- --- SAVINGS ----
VOLSER DEVTYPE TRACKS TRACKS DSNS PER TRACKS DSNS PER TRACKS DSNS PER
DB2A02 3390-27 491400 63816 220 13 1016 59 1 62800 161 98
SH2512 3390-A 3940020 23251 114 0 661 7 1 154 107 18
SY3013 3390-27 491400 491389 10 99 19 2 1 491370 8 99
…
SUMMARY LEVEL -- DEVICE TYPE
TOTAL -- ALLOCATED --- - INCREMENTAL -- --- SAVINGS ----
VOLSER DEVTYPE TRACKS TRACKS DSNS PER TRACKS DSNS PER TRACKS DSNS PER
TOTAL 3390-2 5776470 803374 3800 14 163786 982 3 416458 2818 71
TOTAL 3380-3 1252125 446279 1971 36 221335 202 18 175758 1769 44
TOTAL 3390-3 7663005 1433078 3615 19 532323 745 7 475572 2870 47
TOTAL 3390-9 15296K 4117812 48488 27 1235137 44791 9 2154238 3697 63
TOTAL 3390-27 54768K 15867K 14822 29 4461098 4406 9 8060961 10416 64
TOTAL 3390-54 39312K 3119477 464 8 2085450 408 6 1023196 56 32
TOTAL 3390-A 170189K 20415K 6396 12 1274569 225 1 2292209 6171 64