HCHECKE – Reports for FDRMOVE users
This section describes HCHECKE.
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:
- UCBSTATS - UCB status indicators
- VL%FTRKS - Volume tracks free percent
- VL%UDSCB - Volume DSCBs used percent
- VL%UTRKS - Volume tracks used percent
- VLALOBYT - Allocated bytes
- VLALOSTA - Volume allocation status
- VLALOTRK - Allocated tracks
- VLBYTVOL - Bytes/volume
- VLCCA - Channel connect address
- VLCTLSER - Controller serial number
- VLCYLVOL - Number of cylinders/volume
- VLDEVTYP - Device type
- VLDSCB - Number of DSCBs/track
- VLDSCB1 - Format 1 DSCB count
- VLFREBYT - Free bytes
- VLFRECYL - Free cylinders
- VLFRETRK - Free tracks
- VLMFRCOD - Manufactures’ code
- VLSMSSTG - SMS storage group name
- VLSSID - SSID
- VLTRKVOL - Number of tracks/volume
- VLVOLSER - DASD volume serial number
- VSVLALOC - Allocated cylinders (volume summary)
- VSVLVOLC - Volume count in control break (volume summary)
//STEP01 EXEC PGM=FDREPORT,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//SYSIN DD *
DEFAULT TITLE=LEFT,DISABLE=(INFOMSG,SUMVALUES),SUMDEVICE=UNIQUE,
BYTEFORMAT=KILOBYTES,SUMBYTEFORMAT=MEGABYTES,
ENABLE=(LSPACERECOVER,OFFLINE,ONELINESUM)
XSELECT UNIT.GE.0
PRINT RPTYPE=DATA,DATATYPE=VOLDATA,ENABLE=(ONLINE,MAXAVAILABLE)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//SYSIN DD *
DEFAULT TITLE=LEFT,DISABLE=(INFOMSG,SUMVALUES),SUMDEVICE=UNIQUE,
BYTEFORMAT=KILOBYTES,SUMBYTEFORMAT=MEGABYTES,
ENABLE=(LSPACERECOVER,OFFLINE,ONELINESUM)
XSELECT UNIT.GE.0
PRINT RPTYPE=DATA,DATATYPE=VOLDATA,ENABLE=(ONLINE,MAXAVAILABLE)
Total ONLINE, Space Available, Space Unused
TITLE LINE='TOTAL ONLINE, SPACE AVAILABLE, SPACE ALLOCATED +
SPACE UNUSED'
XSELECT UCBSTATS=ONLINE
SORT FIELDS=(VLALOSTA,VLVOLSER),BREAK=(SSP,NO)
REPORT FIELDS=(VSVLVOLC,VLTRKVOL,VLALOTRK,VLFRETRK,VLBYTVOL,
VLALOBYT,VLFREBYT)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=NOBREAK,PAGEWIDTH=80
SPACE UNUSED'
XSELECT UCBSTATS=ONLINE
SORT FIELDS=(VLALOSTA,VLVOLSER),BREAK=(SSP,NO)
REPORT FIELDS=(VSVLVOLC,VLTRKVOL,VLALOTRK,VLFRETRK,VLBYTVOL,
VLALOBYT,VLFREBYT)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=NOBREAK,PAGEWIDTH=80
Sample Output
TOTAL ONLINE, SPACE AVAILABLE, SPACE ALLOCATED SPACE UNUSED
VOLCT TRKS VOL ALLOC TRK FREE TRACK BYTEVOLUME ALLOCBYTES FREEBYTES
----- ----------- ----------- ----------- ----------- ----------- -----------
848 282086580 64607929 217478651 15964.980G 3656.500G 12308.480G
VOLCT TRKS VOL ALLOC TRK FREE TRACK BYTEVOLUME ALLOCBYTES FREEBYTES
----- ----------- ----------- ----------- ----------- ----------- -----------
848 282086580 64607929 217478651 15964.980G 3656.500G 12308.480G
Total OFFLINE, Space Available, Space Unused
TITLE LINE='TOTAL OFFLINE, SPACE AVAILABLE, SPACE ALLOCATED +
SPACE UNUSED'
XSELECT UCBSTATS=OFFLINE
SORT FIELDS=(VLALOSTA,VLVOLSER),BREAK=(SSP,NO)
REPORT FIELDS=(VSVLVOLC,VLTRKVOL,VLALOTRK,VLFRETRK,VLBYTVOL,
VLALOBYT,VLFREBYT)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=NOBREAK,PAGEWIDTH=80
SPACE UNUSED'
XSELECT UCBSTATS=OFFLINE
SORT FIELDS=(VLALOSTA,VLVOLSER),BREAK=(SSP,NO)
REPORT FIELDS=(VSVLVOLC,VLTRKVOL,VLALOTRK,VLFRETRK,VLBYTVOL,
VLALOBYT,VLFREBYT)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=NOBREAK,PAGEWIDTH=80
Sample Output
TOTAL OFFLINE, SPACE AVAILABLE, SPACE ALLOCATED SPACE UNUSED
VOLCT TRKS VOL ALLOC TRK FREE TRACK BYTEVOLUME ALLOCBYTES FREEBYTES
----- ----------- ----------- ----------- ----------- ----------- -----------
702 183135060 64857484 117590831 10332.883G 3674.198G 6658.684G
VOLCT TRKS VOL ALLOC TRK FREE TRACK BYTEVOLUME ALLOCBYTES FREEBYTES
----- ----------- ----------- ----------- ----------- ----------- -----------
702 183135060 64857484 117590831 10332.883G 3674.198G 6658.684G
ONLINE Space Utilization by Device Type
TITLE LINE='ONLINE SPACE UTILIZATION BY DEVICE TYPE'
XSELECT UCBSTATS=ONLINE
REPORT FIELDS=(VLDEVTYP,VSVLVOLC,VLCYLVOL,VLFRECYL,VSVLALOC,
VL%FTRKS,VL%UTRKS)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=DEVTYPE
XSELECT UCBSTATS=ONLINE
REPORT FIELDS=(VLDEVTYP,VSVLVOLC,VLCYLVOL,VLFRECYL,VSVLALOC,
VL%FTRKS,VL%UTRKS)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=DEVTYPE
Sample Output
ONLINE SPACE UTILIZATION BY DEVICE TYPE
DEVTYPE VOLCT CYL VOLUME FREE CYL ALLOC CYL %TF %TU
------- ----- ----------- ----------- ----------- --- ---
…
3390-54 29 1900080 1717386 182694 90 10
3390-9 112 1119887 730975 388912 65 35
--
848 18805772 14496503 4309269 77 23
DEVTYPE VOLCT CYL VOLUME FREE CYL ALLOC CYL %TF %TU
------- ----- ----------- ----------- ----------- --- ---
…
3390-54 29 1900080 1717386 182694 90 10
3390-9 112 1119887 730975 388912 65 35
--
848 18805772 14496503 4309269 77 23
OFFLINE Space Utilization by Device Type
TITLE LINE='OFFLINE SPACE UTILIZATION BY DEVICE TYPE'
XSELECT UCBSTATS=OFFLINE
REPORT FIELDS=(VLDEVTYP,VSVLVOLC,VLCYLVOL,VLFRECYL,VSVLALOC,
VL%FTRKS,VL%UTRKS)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=DEVTYPE
XSELECT UCBSTATS=OFFLINE
REPORT FIELDS=(VLDEVTYP,VSVLVOLC,VLCYLVOL,VLFRECYL,VSVLALOC,
VL%FTRKS,VL%UTRKS)
PRINT DATATYPE=EXTRACT,VOLSUMMARY=DEVTYPE
Sample Output
OFFLINE SPACE UTILIZATION BY DEVICE TYPE
DEVTYPE VOLCT CYL VOLUME FREE CYL ALLOC CYL %TF %TU
------- ----- ----------- ----------- ----------- --- ---
…
3390-27 51 1607130 1235628 371502 76 24
3390-3 80 267120 178400 65347 75 25
3390-54 45 2948400 1885893 1062507 63 37
3390-9 270 2704590 399437 2285119 15 85
--
703 12219021 7839039 4334199 64 36
DEVTYPE VOLCT CYL VOLUME FREE CYL ALLOC CYL %TF %TU
------- ----- ----------- ----------- ----------- --- ---
…
3390-27 51 1607130 1235628 371502 76 24
3390-3 80 267120 178400 65347 75 25
3390-54 45 2948400 1885893 1062507 63 37
3390-9 270 2704590 399437 2285119 15 85
--
703 12219021 7839039 4334199 64 36
Volumes Best Consolidated by FDRPAS
In this sample, FDREPORT is used to select volumes that would be best served by FDRPAS to consolidate data sets. If the percentage of the VTOC in use is less than or equal to 30 percent, FDRMOVE should be able to combine the data sets from this volume with other volumes that are less than 30 percent allocated into a new volume that has a VTOC of equal or greater size.
TITLE LINE='VOLUMES BEST CONSOLIDATED BY FDRPAS - VTOC LE 30%'
XSELECT VL%UDSCB<=30,VLSMSSTG=storg* ***CHANGE
SORT FIELDS=VLSMSSTG,BREAK=SSP
REPORT FIELDS=(VLVOLSER,VLDEVTYP,VLMFRCOD,VLCTLSER,VLSSID,VLCCA,
VLDSCB,VLDSCB1,VL%UDSCB,VLSMSSTG,VLALOSTA)
SUMMARY FIELDS=VLVOLSER
PRINT DATATYPE=EXTRACT
XSELECT VL%UDSCB<=30,VLSMSSTG=storg* ***CHANGE
SORT FIELDS=VLSMSSTG,BREAK=SSP
REPORT FIELDS=(VLVOLSER,VLDEVTYP,VLMFRCOD,VLCTLSER,VLSSID,VLCCA,
VLDSCB,VLDSCB1,VL%UDSCB,VLSMSSTG,VLALOSTA)
SUMMARY FIELDS=VLVOLSER
PRINT DATATYPE=EXTRACT
Sample Output
VOLUMES BEST CONSOLIDATED BY FDRPAS - VTOC LE 30%
TOTAL
VOLSER DEVTYPE MFR CNTSR SSID CA DSCBS DSCB1 %DU STORGRP ALOSTA
------ ------- --- ----- ---- -- --------- --------- --- -------- ------
IDPT04 3390-9 IBM L6001 F871 48 3000 12 1 PROD1 ONLINE
IDPT02 3390-27 IBM L6001 F871 4A 3000 169 6 PROD1 ONLINE
IDPT03 3390-9 IBM L6001 F871 5F 3000 73 3 PROD1 ONLINE
SUB - VLSMSSTG-PROD1 VLVOLSER----------------3
…
FINAL TOTALS -- VLVOLSER--------------138
TOTAL
VOLSER DEVTYPE MFR CNTSR SSID CA DSCBS DSCB1 %DU STORGRP ALOSTA
------ ------- --- ----- ---- -- --------- --------- --- -------- ------
IDPT04 3390-9 IBM L6001 F871 48 3000 12 1 PROD1 ONLINE
IDPT02 3390-27 IBM L6001 F871 4A 3000 169 6 PROD1 ONLINE
IDPT03 3390-9 IBM L6001 F871 5F 3000 73 3 PROD1 ONLINE
SUB - VLSMSSTG-PROD1 VLVOLSER----------------3
…
FINAL TOTALS -- VLVOLSER--------------138
Volumes without a VTOC Index or the VTOC Index is Disabled
TITLE LINE='VOLUMES WITHOUT A VTOCIX OR VTOCIX IS DISABLED'
XSELECT VLINDSTA.NE.ACTIVE,UCBSTATS=ONLINE
SORT FIELDS=VLINDSTA,BREAK=SSP
REPORT FIELDS=(VLVOLSER,VLUNIT,VLDEVTYP,VLINDSTA)
SUMMARY FIELDS=VLVOLSER
PRINT DATATYPE=EXTRACT
XSELECT VLINDSTA.NE.ACTIVE,UCBSTATS=ONLINE
SORT FIELDS=VLINDSTA,BREAK=SSP
REPORT FIELDS=(VLVOLSER,VLUNIT,VLDEVTYP,VLINDSTA)
SUMMARY FIELDS=VLVOLSER
PRINT DATATYPE=EXTRACT
Sample Output
VOLUMES WITHOUT A VTOCIX OR VTOCIX IS DISABLED
VOLSER UADR DEVTYPE VTINDX
------ ---- ------- ------
TST420 0420 3390-9 NONE
TST421 0421 3390-9 NONE
…
SUB - VLINDSTA-NONE VLVOLSER---------------26
DV20FF 20FF 3390-54 YES
SY3013 3013 3390-27 YES
…
SUB - VLINDSTA-YES VLVOLSER----------------8
FINAL TOTALS -- VLVOLSER---------------34
VOLSER UADR DEVTYPE VTINDX
------ ---- ------- ------
TST420 0420 3390-9 NONE
TST421 0421 3390-9 NONE
…
SUB - VLINDSTA-NONE VLVOLSER---------------26
DV20FF 20FF 3390-54 YES
SY3013 3013 3390-27 YES
…
SUB - VLINDSTA-YES VLVOLSER----------------8
FINAL TOTALS -- VLVOLSER---------------34
Volumes Flagged as SYSRES
TITLE LINE='VOLUMES FLAGGED AS SYSRES ON <VLSYSID>'
XSELECT VLALOSTA=SYSRES
SORT FIELDS=(VOL),SEQUENCE=(A)
REPORT FIELDS=(VLVOLSER,VLDEVTYP,VLUNIT,VLMFRCOD,VLCTLSER,VLSSID,
VLCCA,VLDSCB,VLDSCB1,VL%UDSCB,VLSMSSTG,VLALOSTA)
PRINT DATATYPE=EXTRACT
XSELECT VLALOSTA=SYSRES
SORT FIELDS=(VOL),SEQUENCE=(A)
REPORT FIELDS=(VLVOLSER,VLDEVTYP,VLUNIT,VLMFRCOD,VLCTLSER,VLSSID,
VLCCA,VLDSCB,VLDSCB1,VL%UDSCB,VLSMSSTG,VLALOSTA)
PRINT DATATYPE=EXTRACT
Sample Output
VOLUMES FLAGGED AS SYSRES ON CPUA
TOTAL
VOLSER DEVTYPE UADR MFR CNTSR SSID CA DSCBS DSCB1 %DU STORGRP ALOSTA
------ ------- ---- --- ----- ---- -- --------- --------- --- -------- ------
IPLZ1D 3390-27 8075 IBM L6001 F871 65 3000 428 15 SYSRES
TOTAL
VOLSER DEVTYPE UADR MFR CNTSR SSID CA DSCBS DSCB1 %DU STORGRP ALOSTA
------ ------- ---- --- ----- ---- -- --------- --------- --- -------- ------
IPLZ1D 3390-27 8075 IBM L6001 F871 65 3000 428 15 SYSRES
Create an Extract File for All Data Sets
Create an extract file containing data set information. These are some of the fields used by the reports in this set:
- %FREE - Tracks not in use within a data set as a percentage
- BLKSIZE - Data set block size
- CATALOG - Catalog status
- CATVOL - Volume where the data set is cataloged
- DATACLAS - SMS data class
- DCBINFO - Includes fields: DSORG, RECFM, BLKSIZE, LRECL
- DEVTYPE - Device type
- DSN - Data set name / VSAM component name
- DSORG - Data set organization
- LRECL - Data set logical reference length
- MGMTCLAS - SMS management class
- RECFM - Record format
- SIZE - Allocated tracks
- SIZEFREE - Tracks not in use within data set extents
- SIZEINFO - Includes fields: SIZE, SIZEFREE, %FREE
- SMSCLASS - Includes fields: STORCLAS, DATACLAS, MGMTCLAS
- STORCLAS - SMS storage class
- STORGRP - SMS storage group name
- VOL - Volume serial number
- VVRSTATS - Indicates VVDS errors for this data set
//STEP02 EXEC PGM=FDREPORT,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//SYSIN DD *
DEFAULT SUMDEVICE=UNIQUE,SORTALLOC=YES,CATALOGSEARCH=STANDARD,
BYTEFORMAT=KILOBYTES,SUMBYTEFORMAT=GIGABYTES,
ENABLE=(FOURBYTEXTENT,EAVDISK,ONELINESUM,LSPACERECOVER),
DISABLE=(INFOMSG,SUMVALUES,DECIMALBYTES),TITLE=LEFT
XSELECT XDSN=**
REPORT FIELDS=(DSN,VOL,DSORG,SMSCLASS,STORGRP,CATALOG)
PRINT RPTYPE=DATA,ENABLE=ONLINE
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//SYSIN DD *
DEFAULT SUMDEVICE=UNIQUE,SORTALLOC=YES,CATALOGSEARCH=STANDARD,
BYTEFORMAT=KILOBYTES,SUMBYTEFORMAT=GIGABYTES,
ENABLE=(FOURBYTEXTENT,EAVDISK,ONELINESUM,LSPACERECOVER),
DISABLE=(INFOMSG,SUMVALUES,DECIMALBYTES),TITLE=LEFT
XSELECT XDSN=**
REPORT FIELDS=(DSN,VOL,DSORG,SMSCLASS,STORGRP,CATALOG)
PRINT RPTYPE=DATA,ENABLE=ONLINE
Wrongly or Uncataloged Data Sets on SMS Volumes
TITLE LINE='WRONGLY OR UNCATALOGED DATASETS ON SMS VOLUMES'
XEXCLUDE DSG=***ABR /* EXCLUDE ABR’S MODEL */
XEXCLUDE XDSN=FDRABR.V////// /* EXCLUDE ABR’S MODEL */
XEXCLUDE XDSN=SYS1.VTOCIX.* /* EXCLUDE INDEX VTOC */
XEXCLUDE XDSN=SYS1.VVDS.* /* EXCLUDE VVDS */
XEXCLUDE DSG=****VTOC /* EXCLUDE VTOC */
XEXCLUDE XDSN=SYS+++++.T++++++.RA000.** /* EXCLUDE TEMPORARY DSN */
XSELECT CATALOG.NE.YES,STORGRP=PROD* ***CHANGE
SORT FIELDS=(CATALOG,DSN),BREAK=(SSP,NO)
REPORT FIELDS=(DSN,VOL,DEVTYPE,DCBINFO,SIZEINFO,STORGRP,CATALOG,
CATVOL)
SUMMARY FIELDS=DSN
PRINT DATATYPE=EXTRACT,ENABLE=MODELDSCB,PAGEWIDTH=130
XEXCLUDE DSG=***ABR /* EXCLUDE ABR’S MODEL */
XEXCLUDE XDSN=FDRABR.V////// /* EXCLUDE ABR’S MODEL */
XEXCLUDE XDSN=SYS1.VTOCIX.* /* EXCLUDE INDEX VTOC */
XEXCLUDE XDSN=SYS1.VVDS.* /* EXCLUDE VVDS */
XEXCLUDE DSG=****VTOC /* EXCLUDE VTOC */
XEXCLUDE XDSN=SYS+++++.T++++++.RA000.** /* EXCLUDE TEMPORARY DSN */
XSELECT CATALOG.NE.YES,STORGRP=PROD* ***CHANGE
SORT FIELDS=(CATALOG,DSN),BREAK=(SSP,NO)
REPORT FIELDS=(DSN,VOL,DEVTYPE,DCBINFO,SIZEINFO,STORGRP,CATALOG,
CATVOL)
SUMMARY FIELDS=DSN
PRINT DATATYPE=EXTRACT,ENABLE=MODELDSCB,PAGEWIDTH=130
Sample Output
WRONGLY OR UNCATALOGED DATASETS ON SMS VOLUMES
D/S CAT
DATA SET NAME VOLSER DEVTYPE ORG RECFM BKSIZ LRECL ALLOC FREE %FR STORGRP STA CATVOL
------------- ------ ------- --- ----- ----- ----- -------- -------- --- -------- --- ------
DF.UPSTREAM.CONFIG USTWK4 3390-9 PO FB 23400 120 4 1 25 PROD10 NO
…
SUB - CATALOG--NO DSN-------------------220
IAMV.EAV126B.DUMP SYTS19 3390-27 ** FBS 24960 4160 6000 6000 100 PROD15 ERR ####01
…
SUB - CATALOG--ERR DSN--------------------28
FINAL TOTALS -- DSN-------------------248
D/S CAT
DATA SET NAME VOLSER DEVTYPE ORG RECFM BKSIZ LRECL ALLOC FREE %FR STORGRP STA CATVOL
------------- ------ ------- --- ----- ----- ----- -------- -------- --- -------- --- ------
DF.UPSTREAM.CONFIG USTWK4 3390-9 PO FB 23400 120 4 1 25 PROD10 NO
…
SUB - CATALOG--NO DSN-------------------220
IAMV.EAV126B.DUMP SYTS19 3390-27 ** FBS 24960 4160 6000 6000 100 PROD15 ERR ####01
…
SUB - CATALOG--ERR DSN--------------------28
FINAL TOTALS -- DSN-------------------248
All VVDS Data Sets with Logical Errors
TITLE LINE='VVDS DATASETS WITH LOGICAL ERRORS'
XSELECT VVRSTATS.NE.NONE,VOL=*
REPORT FIELDS=(DSN,VOL,DEVTYPE,DCBINFO,SIZEINFO,STORGRP,VVRSTATS)
PRINT DATATYPE=VTOC,ENABLE=(DIAGNOSEVVDS,ICFERRPRT),
DISABLE=(INFOMSG,CONTROLBREAK)
XSELECT VVRSTATS.NE.NONE,VOL=*
REPORT FIELDS=(DSN,VOL,DEVTYPE,DCBINFO,SIZEINFO,STORGRP,VVRSTATS)
PRINT DATATYPE=VTOC,ENABLE=(DIAGNOSEVVDS,ICFERRPRT),
DISABLE=(INFOMSG,CONTROLBREAK)
Sample Output
VVDS DATASETS WITH LOGICAL ERRORS
D/S
NVR/VVR
DATA SET NAME VOLSER DEVTYPE ORG RECFM BKSIZ LRECL ALLOC FREE %FR STORGRP
ERROR STATUS
------------- ------ ------- --- ----- ----- ----- -------- -------- --- -------- ----
----------
USTEST.T09750.COPY1.G0086V00 USTWK1 3380-3 PS VB 32760 32756 32 32 100 PROD10 NVVR
TLT.TEST.GS.CINDEX IDPT02 3390-27 PS U 4096 1 1 100 PROD1 NVVR
…
D/S
NVR/VVR
DATA SET NAME VOLSER DEVTYPE ORG RECFM BKSIZ LRECL ALLOC FREE %FR STORGRP
ERROR STATUS
------------- ------ ------- --- ----- ----- ----- -------- -------- --- -------- ----
----------
USTEST.T09750.COPY1.G0086V00 USTWK1 3380-3 PS VB 32760 32756 32 32 100 PROD10 NVVR
TLT.TEST.GS.CINDEX IDPT02 3390-27 PS U 4096 1 1 100 PROD1 NVVR
…
Unmovable or Undefined Data Sets
TITLE LINE='UNMOVEABLE OR DSORG=UNDEFINED DATA SETS'
XEXCLUDE XDSN=FDRABR.V////// /* EXCLUDE ABR MODELS */
XEXCLUDE XDSN=SYS1.VTOCIX.* /* EXCLUDE INDEX VTOC */
XEXCLUDE XDSN=SYS1.VVDS.* /* EXCLUDE VVDS */
XEXCLUDE DSG=****VTOC /* EXCLUDE VTOC */
XEXCLUDE DSG=***ABR /* EXCLUDE ABR MODEL */
XEXCLUDE XDSN=SYS+++++.T++++++.RA000.** /* EXCLUDE TEMPORARY DSN */
XSELECT DSORG=(U,UM,UN),STORGRP=storg* ***CHANGE
REPORT FIELDS=(DSN,VOL,DEVTYPE,DCBINFO,SIZEINFO,STORGRP,CATALOG,
CATVOL)
SUMMARY FIELDS=DSN
PRINT DATATYPE=EXTRACT
XEXCLUDE XDSN=FDRABR.V////// /* EXCLUDE ABR MODELS */
XEXCLUDE XDSN=SYS1.VTOCIX.* /* EXCLUDE INDEX VTOC */
XEXCLUDE XDSN=SYS1.VVDS.* /* EXCLUDE VVDS */
XEXCLUDE DSG=****VTOC /* EXCLUDE VTOC */
XEXCLUDE DSG=***ABR /* EXCLUDE ABR MODEL */
XEXCLUDE XDSN=SYS+++++.T++++++.RA000.** /* EXCLUDE TEMPORARY DSN */
XSELECT DSORG=(U,UM,UN),STORGRP=storg* ***CHANGE
REPORT FIELDS=(DSN,VOL,DEVTYPE,DCBINFO,SIZEINFO,STORGRP,CATALOG,
CATVOL)
SUMMARY FIELDS=DSN
PRINT DATATYPE=EXTRACT
Sample Output
UNMOVEABLE OR DSORG=UNDEFINED DATA SETS
D/S CAT
DATA SET NAME VOLSER DEVTYPE ORG RECFM BKSIZ LRECL ALLOC FREE %FR STORGRP STA
CATVOL
------------- ------ ------- --- ----- ----- ----- -------- -------- --- -------- ---
------
LED.HCD.TERM IDPWK1 3390-3 ** FB 1600 80 1 1 100 PROD12 YES
SYSP.PRIRACF.DATABASE SYSLB2 3390-9 PSU F 4096 4096 75 0 0 PROD0 YES
…
DSN------------------1162
D/S CAT
DATA SET NAME VOLSER DEVTYPE ORG RECFM BKSIZ LRECL ALLOC FREE %FR STORGRP STA
CATVOL
------------- ------ ------- --- ----- ----- ----- -------- -------- --- -------- ---
------
LED.HCD.TERM IDPWK1 3390-3 ** FB 1600 80 1 1 100 PROD12 YES
SYSP.PRIRACF.DATABASE SYSLB2 3390-9 PSU F 4096 4096 75 0 0 PROD0 YES
…
DSN------------------1162
Create an Extract File of Catalog and VTOC information
Create an extract file containing information from the catalog and VTOC. These are some of the fields used by the reports in this set:
- CANDVOLC - Number of unique candidate volumes where the data set is cataloged
- CATVOLCT - Number of unique non-candidate volumes where the data set is cataloged
- CCA - Channel connect address
- CLUSATTR - Cluster attributes
- CTLSERNO - Controller serial number
- DEVCLASS - Device class
- DEVTYPE - Device type
- DSN - Data set name / VSAM component name
- LINKLIST - Retrieve data set list from LINKLIST
- MFRCODE - Manufactures code
- NAME - Data set name or cluster name
- OPTCD - Option code byte
- SIZE - Allocated tracks
- SSID - Control unit subsystem identifier
- STORGRP - SMS storage group name
- UCBSTATS - UCB status indicators
- UNIT - Unit address of DASD volume
- VOL - Volume serial number
- VOLSQ - Data set volume sequence number
//STEP03 EXEC PGM=FDREPORT,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//SYSIN DD *
DEFAULT SUMDEVICE=UNIQUE,SORTALLOC=YES,CATALOGSEARCH=STANDARD,
BYTEFORMAT=KILOBYTES,SUMBYTEFORMAT=GIGABYTES,
ENABLE=(FOURBYTEXTENT,EAVDISK,ONELINESUM,LSPACERECOVER),
DISABLE=(INFOMSG,SUMVALUES,DECIMALBYTES),TITLE=LEFT
PRINT RPTYPE=DATA,DATATYPE=CATVTOC,RECORDSUMMARY=CLUSTER,
ENABLE=NOGENERICAN
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//SYSIN DD *
DEFAULT SUMDEVICE=UNIQUE,SORTALLOC=YES,CATALOGSEARCH=STANDARD,
BYTEFORMAT=KILOBYTES,SUMBYTEFORMAT=GIGABYTES,
ENABLE=(FOURBYTEXTENT,EAVDISK,ONELINESUM,LSPACERECOVER),
DISABLE=(INFOMSG,SUMVALUES,DECIMALBYTES),TITLE=LEFT
PRINT RPTYPE=DATA,DATATYPE=CATVTOC,RECORDSUMMARY=CLUSTER,
ENABLE=NOGENERICAN
Partial Multi-Volume Data Sets or Clusters
TITLE LINE='MULTI-VOLUME DATA SETS OR CLUSTERS -- PARTIAL'
XSELECT CATVOLCT>1, /* MORE THAN 1 CATALOGED VOLUME */
DEVCLASS=DISK, /* DISK DEVICE */
CATALOG.NE.ONL, /* IGNORE ONLY CATALOGED DSNS */
VOLSQ>1 /* SELECT OBVIOUS ERRORS */
REPORT FIELDS=(NAME,VOL,VOLSQ,CATVOLCT,CANDVOLC,DSORG,SIZE,DEVTYPE,
STORGRP)
SUMMARY FIELDS=DSN
PRINT DATATYPE=EXTRACT,DISABLE=SELTERR
XSELECT CATVOLCT>1, /* MORE THAN 1 CATALOGED VOLUME */
DEVCLASS=DISK, /* DISK DEVICE */
CATALOG.NE.ONL, /* IGNORE ONLY CATALOGED DSNS */
VOLSQ>1 /* SELECT OBVIOUS ERRORS */
REPORT FIELDS=(NAME,VOL,VOLSQ,CATVOLCT,CANDVOLC,DSORG,SIZE,DEVTYPE,
STORGRP)
SUMMARY FIELDS=DSN
PRINT DATATYPE=EXTRACT,DISABLE=SELTERR
Sample Output
MULTI-VOLUME DATA SETS OR CLUSTERS -- PARTIAL
VOL D/S
ENTRY NAME VOLSER SEQ CVC CDV ORG ALLOC DEVTYPE STORGRP
---------- ------ --- --- --- --- -------- ------- --------
IAMSYS.CICSIDP1.IAMTRPR2 VTS023 2 4 0 PS 76650 3390-27 PROD13
…
DSN--------------------12
VOL D/S
ENTRY NAME VOLSER SEQ CVC CDV ORG ALLOC DEVTYPE STORGRP
---------- ------ --- --- --- --- -------- ------- --------
IAMSYS.CICSIDP1.IAMTRPR2 VTS023 2 4 0 PS 76650 3390-27 PROD13
…
DSN--------------------12
Multi-Volume Data Sets Summarized by Data Set
TITLE LINE='MULTI-VOLUME DATA SETS OR CLUSTERS'
XSELECT CATVOLCT>1, /* MORE THAN 1 CATALOGED VOLUME */
DEVCLASS=DISK, /* DISK DEVICE */
CATALOG.NE.ONL, /* IGNORE ONLY CATALOGED DSNS */
VOLSQ=1 /* SELECT REMAINING RECORDS */
SORT FIELDS=(CATVOLCT,NAME),SEQUENCE=(D,A)
PRINT DATATYPE=EXTRACT
XSELECT CATVOLCT>1, /* MORE THAN 1 CATALOGED VOLUME */
DEVCLASS=DISK, /* DISK DEVICE */
CATALOG.NE.ONL, /* IGNORE ONLY CATALOGED DSNS */
VOLSQ=1 /* SELECT REMAINING RECORDS */
SORT FIELDS=(CATVOLCT,NAME),SEQUENCE=(D,A)
PRINT DATATYPE=EXTRACT
Sample Output
MULTI-VOLUME DATA SETS OR CLUSTERS
VOL D/S
ENTRY NAME VOLSER SEQ CVC CDV ORG ALLOC DEVTYPE
STORGRP
---------- ------ --- --- --- --- -------- ------- ------
--
IAMCICS.IAMPLXB9.SYSMDUMP SYTS30 1 4 0 PS 169290 3390-27 PROD15
IAMV.$IAM.GAMA.EXKS1 IDPT03 1 3 0 PSE 2912 3390-9 PROD1
USTPRODV.CHRIS.COPYI1.G0736V00 UPBK24 1 2 0 PS 2442601 3390-A PROD11
USTPRODV.CHRIS.COPYI1.G0737V00 UPBK09 1 2 0 PS 2278554 3390-A PROD11
…
DSN-------------------147
VOL D/S
ENTRY NAME VOLSER SEQ CVC CDV ORG ALLOC DEVTYPE
STORGRP
---------- ------ --- --- --- --- -------- ------- ------
--
IAMCICS.IAMPLXB9.SYSMDUMP SYTS30 1 4 0 PS 169290 3390-27 PROD15
IAMV.$IAM.GAMA.EXKS1 IDPT03 1 3 0 PSE 2912 3390-9 PROD1
USTPRODV.CHRIS.COPYI1.G0736V00 UPBK24 1 2 0 PS 2442601 3390-A PROD11
USTPRODV.CHRIS.COPYI1.G0737V00 UPBK09 1 2 0 PS 2278554 3390-A PROD11
…
DSN-------------------147
List IODF or Linklist Data Sets
TITLE LINE='LIST IODF OR LINKLIST DATA SETS'
XSELECT XDSN=**.IODF**
XSELECT LINKLIST
SORT FIELDS=VOL,BREAK=SSP
REPORT FIELDS=(DSN,VOL,DEVTYPE,UNIT,MFRCODE,CTLSERNO,SSID,CCA,
STORGRP,UCBSTATS)
SUMMARY FIELDS=DSN
PRINT DATATYPE=EXTRACT
XSELECT XDSN=**.IODF**
XSELECT LINKLIST
SORT FIELDS=VOL,BREAK=SSP
REPORT FIELDS=(DSN,VOL,DEVTYPE,UNIT,MFRCODE,CTLSERNO,SSID,CCA,
STORGRP,UCBSTATS)
SUMMARY FIELDS=DSN
PRINT DATATYPE=EXTRACT
Sample Output
LIST IODF OR LINKLIST DATA SETS
DATA SET NAME VOLSER DEVTYPE UADR MFR CNTSR SSID CA STORGRP UCBSTAT
------------- ------ ------- ---- --- ----- ---- -- -------- -------
SYS1.CMDLIB IPLZ1D 3390-27 8075 IBM L6001 F871 65 ONLINE
SYS1.CSSLIB IPLZ1D 3390-27 8075 IBM L6001 F871 65 ONLINE
…
SUB - VOL------IPLZ1D DSN--------------------27
…
SYS2.LINKLIBI SYSLB2 3390-9 802D IBM L6001 F871 1D PROD0 ONLINE
SUB - VOL------SYSLB2 DSN--------------------28
FINAL TOTALS -- DSN--------------------58
DATA SET NAME VOLSER DEVTYPE UADR MFR CNTSR SSID CA STORGRP UCBSTAT
------------- ------ ------- ---- --- ----- ---- -- -------- -------
SYS1.CMDLIB IPLZ1D 3390-27 8075 IBM L6001 F871 65 ONLINE
SYS1.CSSLIB IPLZ1D 3390-27 8075 IBM L6001 F871 65 ONLINE
…
SUB - VOL------IPLZ1D DSN--------------------27
…
SYS2.LINKLIBI SYSLB2 3390-9 802D IBM L6001 F871 1D PROD0 ONLINE
SUB - VOL------SYSLB2 DSN--------------------28
FINAL TOTALS -- DSN--------------------58
List PAGE or SWAP Data Sets
TITLE LINE='LIST PAGE OR SWAP DATA SETS'
XSELECT CLUSATTR=PAGESPACE
XSELECT CLUSATTR=SWAPSPACE
SORT FIELDS=VOL,BREAK=SSP
REPORT FIELDS=(DSN,VOL,DEVTYPE,UNIT,MFRCODE,CTLSERNO,SSID,CCA,
STORGRP,UCBSTATS)
SUMMARY FIELDS=DSN
PRINT DATATYPE=EXTRACT
XSELECT CLUSATTR=PAGESPACE
XSELECT CLUSATTR=SWAPSPACE
SORT FIELDS=VOL,BREAK=SSP
REPORT FIELDS=(DSN,VOL,DEVTYPE,UNIT,MFRCODE,CTLSERNO,SSID,CCA,
STORGRP,UCBSTATS)
SUMMARY FIELDS=DSN
PRINT DATATYPE=EXTRACT
Sample Output
LIST PAGE OR SWAP DATA SETS
DATA SET NAME VOLSER DEVTYPE UADR MFR CNTSR SSID CA STORGRP UCBSTAT
------------- ------ ------- ---- --- ----- ---- -- -------- -------
PAGE.VIPLZ1C.COMMON.DATA IPLZ1C 3390-27 8072 IBM L6001 F871 62 ONLINE
PAGE.VIPLZ1C.PLPA.DATA IPLZ1C 3390-27 8072 IBM L6001 F871 62 ONLINE
SUB - VOL------IPLZ1C DSN---------------------2
…
PAGE.VPAGE00.CPUH.COMMON.DATA PAGE01 3390-2 8030 IBM L6001 F871 20 ONLINE
PAGE.VPAGE00.CPUH.PLPA.DATA PAGE01 3390-2 8030 IBM L6001 F871 20 ONLINE
PAGE.VPAGE01.CPUC.COMMON.DATA PAGE01 3390-2 8030 IBM L6001 F871 20 ONLINE
PAGE.VPAGE01.CPUC.PLPA.DATA PAGE01 3390-2 8030 IBM L6001 F871 20 ONLINE
PAGE.VPAGE01.CPUE.COMMON.DATA PAGE01 3390-2 8030 IBM L6001 F871 20 ONLINE
PAGE.VPAGE01.CPUE.PLPA.DATA PAGE01 3390-2 8030 IBM L6001 F871 20 ONLINE
SUB - VOL------PAGE01 DSN---------------------6
FINAL TOTALS -- DSN--------------------26
DATA SET NAME VOLSER DEVTYPE UADR MFR CNTSR SSID CA STORGRP UCBSTAT
------------- ------ ------- ---- --- ----- ---- -- -------- -------
PAGE.VIPLZ1C.COMMON.DATA IPLZ1C 3390-27 8072 IBM L6001 F871 62 ONLINE
PAGE.VIPLZ1C.PLPA.DATA IPLZ1C 3390-27 8072 IBM L6001 F871 62 ONLINE
SUB - VOL------IPLZ1C DSN---------------------2
…
PAGE.VPAGE00.CPUH.COMMON.DATA PAGE01 3390-2 8030 IBM L6001 F871 20 ONLINE
PAGE.VPAGE00.CPUH.PLPA.DATA PAGE01 3390-2 8030 IBM L6001 F871 20 ONLINE
PAGE.VPAGE01.CPUC.COMMON.DATA PAGE01 3390-2 8030 IBM L6001 F871 20 ONLINE
PAGE.VPAGE01.CPUC.PLPA.DATA PAGE01 3390-2 8030 IBM L6001 F871 20 ONLINE
PAGE.VPAGE01.CPUE.COMMON.DATA PAGE01 3390-2 8030 IBM L6001 F871 20 ONLINE
PAGE.VPAGE01.CPUE.PLPA.DATA PAGE01 3390-2 8030 IBM L6001 F871 20 ONLINE
SUB - VOL------PAGE01 DSN---------------------6
FINAL TOTALS -- DSN--------------------26
List Catalogs from Storage Group(s)
TITLE LINE='LIST CATALOGS FROM STORAGE GROUP(S)'
XSELECT OPTCD=BC,STORGRP=storg* ***CHANGE
SORT FIELDS=VOL
REPORT FIELDS=(DSN,VOL,DEVTYPE,UNIT,MFRCODE,CTLSERNO,SSID,CCA,
STORGRP,UCBSTATS)
PRINT DATATYPE=EXTRACT
XSELECT OPTCD=BC,STORGRP=storg* ***CHANGE
SORT FIELDS=VOL
REPORT FIELDS=(DSN,VOL,DEVTYPE,UNIT,MFRCODE,CTLSERNO,SSID,CCA,
STORGRP,UCBSTATS)
PRINT DATATYPE=EXTRACT
Sample Output
LIST CATALOGS FROM STORAGE GROUP(S)
DATA SET NAME VOLSER DEVTYPE UADR MFR CNTSR SSID CA STORGRP UCBSTAT
------------- ------ ------- ---- --- ----- ---- -- -------- -------
CATALOG.STEEL IDPLB2 3390-9 8025 IBM L6001 F871 15 PROD9 ONLINE
CATALOG.STEEL.TESTJOBS IDPLB2 3390-9 8025 IBM L6001 F871 15 PROD9 ONLINE
…
DATA SET NAME VOLSER DEVTYPE UADR MFR CNTSR SSID CA STORGRP UCBSTAT
------------- ------ ------- ---- --- ----- ---- -- -------- -------
CATALOG.STEEL IDPLB2 3390-9 8025 IBM L6001 F871 15 PROD9 ONLINE
CATALOG.STEEL.TESTJOBS IDPLB2 3390-9 8025 IBM L6001 F871 15 PROD9 ONLINE
…
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*