HCHECKC – Reports for CA 1 users

This section describes HCHECKC.

Create an Extract File

Create an extract file from the CA 1 tape management catalog (TMC) to be used when running the tape reports. An extract file created by the EXTRACT in this manner captures all the DFSMSrmm data for both tape volumes and tape data sets. The name of the TMC is specified on the DEFAULT statement.

These are some of the fields used by the reports in this set:

TD%FULL - Percent of volume used by data set
TDAPRSIZ - Approximate file size in bytes
TDCRDATE - Creation date
TDCRJOB - Creation job name
TDCRPGM - Creation program name
TDCRTIME - Creation time
TDCRUNIT - Creation unit address
TDC1DB1F - DSNB flag
TDC1FLG1 - Volume flag 1
TDC1FLG3 - Volume flag 3
TDCDEFAU - Includes fields: TDDSNAME, TDVOLSER, TDDSNSEQ, TDCRDATE, TDEXDATE
TDDSNAME - Data set name
TDDSNSEQ - Data set sequence
TDEXDATE - Expiration date
TDINDEXV - Index value (from data set name)
TDLRDATE - Date last read
TDLUJOB - Last used job name
TDRTVALU - Retention value
TDSTATUS - Volume status
TDVOLSEQ - Volume sequence number
TDVOLSER - Tape volume serial number
TDXTDATE - Extract date
TV%FULL - Volume full percentage
TVCAPBYT - Volume capacity bytes
TVCRDATE - Creation date
TVC1DENS - Density
TVC1FLG1 - Flag byte 1
TVC1FLG3 - Flag byte 3
TVC1NDSB - Number of DSNBs
TVC1OACD - Out area code
TVEXDATE - Expiration date
TVLRDATE - Date last read
TVLRUN4B Last used 4-byte device number
TVPRDERR - Permanent read errors
TVPWERR - Permanent write errors
TVRTVALU - Retention value
TVSTATUS - Volume status
TVUSEBYT - Volume use bytes
TVVOLSER - Volume serial number
TVXTDATE - The extraction date

//CA1XTRCT EXEC PGM=FDREPORT,REGION=0M
//SYSPRINT DD SYSOUT=*
//ABRMAP   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
  DEFAULT SORTALLOC=YES,CA1TMC=CA1.TMC                       ***CHANGE
  EXTRACT PRODUCT=CA1,DISP=RETAIN,STORCLAS=storclas,         ***CHANGE
           DSN=’CA1.EXTRACT’

JCL to Produce the CA 1 Reports

//FDREPORT EXEC PGM=FDREPORT,REGION=0M
//CA1XTR   DD DISP=SHR,DSN=CA1.EXTRACT
//SORTWK01 DD SPACE=(CYL,200,,CONTIG),UNIT=DISK
//SORTWK02 DD SPACE=(CYL,200,,CONTIG),UNIT=DISK
//SORTWK03 DD SPACE=(CYL,200,,CONTIG),UNIT=DISK
//SORTWK04 DD SPACE=(CYL,200,,CONTIG),UNIT=DISK
//SYSPRINT DD SYSOUT=*
//RPSTAT   DD SYSOUT=*
//REPLOC   DD SYSOUT=*
//REPRET   DD SYSOUT=*
//ABRMAP   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD UNIT=VIO,SPACE=(CYL,(10,10)),DSN=&&SYSPUNCH
//MASK     DD *
)DUPCHECK
  XSELECT TDVOLSER=<TVVOLSER>
)ENDUPCHECK
/*
//SYSIN    DD *
  DEFAULT DISABLE=SUMVALUES,ENABLE=ONELINESUM,SORTALLOC=CYL,
           SORTCORE=8000000,TITLE=LEFT

Summary of Tapes Grouped by Volume Status

   TITLE    LINE='ALL TAPES GROUPED BY VOLUME STATUS +
                 - EXTRACT FILE <TVXTDATE>'
  SORT     FIELDS=(TVSTATUS,TVVOLSER),BREAK=(SSP,NO)
  REPORT   FIELDS=(TVVOLSER,TVSTATUS,TVRTVALU,TVEXDATE,TVUSEBYT)
  SUMMARY FIELDS=(TVVOLSER,TVCAPBYT,TVUSEBYT)
  PRINT    DATATYPE=CA1VOL,RPTYPE=NONE,SUMDDNAME=RPSTAT,
           SUMBYTEFORMAT=GIGABYTES

Sample RPSTAT Output

ALL TAPES GROUPED BY VOLUME STATUS - EXTRACT FILE 2015.150
    SUB - TVSTATUS-           TVVOLSER------------37135 TVCAPBYT-------78744.200G TVUSEBYT-------32080.638G
    SUB - TVSTATUS-SCRATCH    TVVOLSER-------------8306 TVCAPBYT------209571.800G TVUSEBYT-------72577.468G
    SUB - TVSTATUS-INIT       TVVOLSER------------21119 TVCAPBYT--------9598.400G TVUSEBYT---------108.176G
   FINAL TOTALS --            TVVOLSER------------66560 TVCAPBYT------297914.400G TVUSEBYT------104766.282G

Summary of Tapes Grouped by Location

  TITLE    LINE='ALL TAPES GROUPED BY LOCATION +
                 - EXTRACT FILE <TVXTDATE>'
  XEXCLUDE TVSTATUS=(INIT,SCRATCH)
  SORT     FIELDS=(TVC1OACD,TVVOLSER),BREAK=(SSP,NO)
  REPORT   FIELDS=(TVVOLSER,TVC1OACD,TVSTATUS,TVEXDATE)
  SUMMARY FIELDS=TVVOLSER
  PRINT    DATATYPE=CA1VOL,RPTYPE=NONE,SUMDDNAME=REPLOC

Sample REPLOC Output

ALL TAPES GROUPED BY LOCATION - EXTRACT FILE 2015.150
    SUB - TVC1OACD-        TVVOLSER------------30943
    SUB - TVC1OACD-AVMS    TVVOLSER--------------344
    SUB - TVC1OACD-VRI     TVVOLSER-------------5844
    SUB - TVC1OACD-WHSD    TVVOLSER----------------1
    SUB - TVC1OACD-WHSE    TVVOLSER----------------3
   FINAL TOTALS --         TVVOLSER------------37135

Tapes from a Specified Location

  TITLE    LINE='TAPES FROM LOCATION <TVC1OACD> +
                 - EXTRACT FILE <TVXTDATE>'
  XEXCLUDE TVSTATUS=(INIT,SCRATCH)
  XSELECT TVC1OACD=loc                                       ***CHANGE
  SORT     FIELDS=(TVC1OACD,TVVOLSER)
  REPORT   FIELDS=(TVVOLSER,TVC1OACD,TVSTATUS,TVEXDATE)
  SUMMARY FIELDS=TVVOLSER
  PRINT    DATATYPE=CA1VOL

Sample Output

TAPES FROM LOCATION WHSE - EXTRACT FILE 2015.150

VOLSER OACD VOLSTAT   EXPDAT
------ ---- ------- --------
104162 WHSE         1999.365
108339 WHSE         1999.365
109638 WHSE         1999.365
TVVOLSER----------------3

Tape Volumes Closed by ABEND

  TITLE    LINE='TAPE VOLUMES CLOSED BY ABEND +
                 - EXTRACT FILE <TVXTDATE>'
  XSELECT TVC1FLG1=ABN                                       ***CHANGE
  SORT     FIELDS=TVVOLSER
  REPORT   FIELDS=(TVVOLSER,TVC1FLG1,TVRTVALU,TVSTATUS,TDCRDATE,
                   TDEXDATE)
  SUMMARY FIELDS=TVVOLSER
  PRINT    DATATYPE=CA1VOL

Sample Output

TAPE VOLUMES CLOSED BY ABEND - EXTRACT FILE 2015.150

VOLSER CA-1 FLAG BYTE 1    RETENTVALU VOLSTAT   CRDATE   EXPDAT
------ ----------------    ---------- ------- -------- --------
C01271 ABN SCR RDS                    SCRATCH
D01589 ABN SCR RDS                    SCRATCH
D01984 ABN SCR RDS                    SCRATCH
D02288 ABN SCR RDS                    SCRATCH
D03507 ABN SCR RDS                    SCRATCH
TVVOLSER----------------5

Tapes Marked as "BAD"

  TITLE    LINE='BAD TAPE, DO NOT MOUNT - EXTRACT FILE <TVXTDATE>'
  XSELECT TVC1FLG3=BAD                                       ***CHANGE
  SORT     FIELDS=TVVOLSER
  REPORT   FIELDS=(TVVOLSER,TVC1FLG3,TVRTVALU,TVSTATUS,TDCRDATE,
                   TDEXDATE)
  SUMMARY FIELDS=TVVOLSER
  PRINT    DATATYPE=CA1VOL

Sample Output

BAD TAPE, DO NOT MOUNT - EXTRACT FILE 2015.150

VOLSER CA-1 FLAG BYTE 3    RETENTVALU VOLSTAT   CRDATE   EXPDAT
------ ----------------    ---------- ------- -------- --------
D00847 BAD                            SCRATCH
X00258 BAD MTF             PERMANENT
…
104987 BAD                 CATALOG
TVVOLSER---------------77

Tapes with Permanent Read and/or Write Errors

  TITLE     LINE='TAPES WITH PERMANENT READ AND/OR WRITE ERRORS +
                  - EXTRACT FILE <TVXTDATE>'
  XEXCLUDE TVSTATUS=(INIT,SCRATCH)
  IF        (TVPRDERR=>10 OR TVPWTERR=>10) THEN(SELECT)
  SORT      FIELDS=(TVPWTERR),SEQUENCE=D
  REPORT    FIELDS=(TVLRUN4B,TVVOLSER,TVLRDATE,TVPRDERR,TVPWTERR)
  PRINT     DATATYPE=CA1VOL

Sample Output

TAPES WITH PERMANENT READ AND/OR WRITE ERRORS - EXTRACT FILE 2015.150

LUNI VOLSER   LRDATE PERMRDERR PERMWTERR
---- ------ -------- --------- ---------
0781 105120 2013.287       516       256
0783 C00390 2014.186       387       192
…
0784 106010 2014.365       129         0

Summary of Tapes with Permanent and/or Catalog Retention

  TITLE    LINE='TAPES WITH PERMANENT AND/OR CATALOG RETENTION +
                 - EXTRACT FILE <TVXTDATE>'
  XEXCLUDE TVSTATUS=(INIT,SCRATCH)
  XSELECT TVRTVALU=(CATALOG,PERMANENT)                       ***CHANGE
  SORT     FIELDS=(TVRTVALU,TVVOLSER),BREAK=(SSP,NO)
  REPORT   FIELDS=(TVVOLSER,TVRTVALU,TVSTATUS,TVC1NDSB,TV%FULL,
                   TVCRDATE,TVEXDATE,TVC1DENS)
  SUMMARY FIELDS=TVVOLSER
  PRINT    DATATYPE=CA1VOL,RPTYPE=NONE,SUMDDNAME=REPRET

Sample REPRET Output

TAPES WITH PERMANENT AND/OR CATALOG RETENTION - EXTRACT FILE 2015.150
    SUB - TVRTVALU-CATALOG       TVVOLSER------------29547
    SUB - TVRTVALU-PERMANENT     TVVOLSER-------------1425
   FINAL TOTALS --               TVVOLSER------------30972

Tapes with Permanent Retention

  TITLE    LINE='TAPES WITH PERMANENT RETENTION +
                 - EXTRACT FILE <TVXTDATE>'
  XEXCLUDE TVSTATUS=(INIT,SCRATCH)
  XSELECT TVRTVALU=PERMANENT
  SORT     FIELDS=TVCRDATE
  REPORT   FIELDS=(TVVOLSER,TVRTVALU,TVSTATUS,TVC1NDSB,TV%FULL,
                   TVCRDATE,TVEXDATE,TVC1DENS)
  SUMMARY FIELDS=TVVOLSER
  PRINT    DATATYPE=CA1VOL

Sample Output

TAPES WITH PERMANENT RETENTION - EXTRACT FILE 2015.150

VOLSER RETENTVALU VOLSTAT NDSNB %FU CRDATE EXPDAT CA-1 DENSITY
------ ---------- ------- ----- --- -------- -------- ------------
A00071 PERMANENT 843 0 2014.328 1999.365 3590 CART TAPE
…
TVVOLSER-------------1425

Tape Data Sets Closed by ABEND

  TITLE    LINE='TAPE DATA SETS CLOSED BY ABEND +
                 - EXTRACT FILE <TVXTDATE>'
  XSELECT TDC1DB1F=CBA                                       ***CHANGE
  SORT     FIELDS=TDVOLSER
  REPORT   FIELDS=(TDVOLSER,TDDSNAME,TDC1DB1F,TDDSNSEQ,TDCRUNIT,
                   TDCRPGM,TDCRDATE,TDEXDATE)
  SUMMARY FIELDS=(TDVOLSER,TDDSNAME)
  PRINT    DATATYPE=CA1DSN,PAGEWIDTH=130

Sample Output

TAPE DATA SETS CLOSED BY ABEND - EXTRACT FILE 2015.150

VOLSER DATA SET NAME                                CA-1 DSNB MISC FLAGS DSEQN CUAD CREATPGM   CRDATE   EXPDAT
------ -------------                                -------------------- ----- ---- -------- -------- --------
V00183 FDRABR.VPRNA1A.B108122A                      DXU CBA                  7 088D FDRTSEL 2015.073 1999.365
V01583 FDRABR.VRMDSPH.B103328A                      DXU CBA                123 08A2 FDRTSEL 2015.070 1999.365
W02126 FDRABR.VVSAP22.C1400200                      DXU CBA XCC              2 0891 FDRABR   2014.134 2014.136
…
TDVOLSER---------------13 TDDSNAME---------------13

Oldest Old Tape Data Sets

  TITLE    LINE='OLDEST OLD TAPE DATA SETS (2006.365 AND PRIOR) BY DSG'
  XEXCLUDE TDSTATUS=(INIT,SCRATCH)
  XEXCLUDE TDC1FLG1=(DEL)
  XEXCLUDE TDC1FLG3=(BAD)
  XEXCLUDE TDVOLSER.NE.1/////                                 ***CHANGE
  XSELECT TDCRDATE<=2006.365,TDDSNAME=////APT.**             ***CHANGE
  SORT     FIELDS=(TDINDEXV,TDCRDATE),BREAK=SSP
  REPORT   FIELDS=(TDINDEXV,TDVOLSER,TDDSNAME,TDCRDATE,TDLRDATE,
                   TDRTVALU,TD%FULL,TDAPRSIZ)
  SUMMARY FIELDS=(TDVOLSER,TDAPRSIZ)
  PRINT    DATATYPE=CA1DSN,DISABLE=SUMVALUES,INDEXNUM=2

Sample Output

OLDEST OLD TAPE DATA SETS (2006.365 AND PRIOR) BY DSG

INDEX    VOLSER DATA SET NAME                                  CRDATE   LRDATE RETENTVALU %FU APPROXSIZE
-----    ------ -------------                                -------- -------- ---------- --- -----------
ABR001X 106387 FDRPAPT.ABR001X.EXPLODE.G0008V00             2000.275 2000.324 CATALOG      0 10450.440K
ABR001X 108001 FDRPAPT.ABR001X.EXPLODE.G0009V00             2000.303 2000.346 CATALOG      0   8399.160K
ABR001X 101305 FDRPAPT.ABR001X.JAN2001                      2001.035 2001.281 CATALOG      0 10755.360K
    SUB - TDINDEXV-ABR001X     TDVOLSER---------------86 TDAPRSIZ--------2153.941M
…
   FINAL TOTALS --             TDVOLSER-------------1189 TDAPRSIZ-------34842.547M

Tape Data Sets Created by a Specific Program

  TITLE    LINE='TAPE DATA SETS CREATED BY PROGRAM <TDCRPGM> +
                 - EXTRACT FILE <TDXTDATE>'
  XSELECT TDEXDATE=1999365,                                  ***CHANGE
           TDCRPGM=FDRTSEL                                    ***CHANGE
  SORT     FIELDS=TDEXDATE
  REPORT   FIELDS=(TDVOLSER,TDDSNAME,TDEXDATE,TDCRDATE,TDCRTIME,
                   TDCRPGM)
  SUMMARY FIELDS=TDDSNAME
  PRINT    DATATYPE=CA1DSN

Sample Output

TAPE DATA SETS CREATED BY PROGRAM FDRTSEL - EXTRACT FILE 2015.150

VOLSER DATA SET NAME                                  EXPDAT   CRDATE   CRTIME CREATPGM
------ -------------                                -------- -------- -------- --------
V00183 FDRABR.VPRNA64.B107118A                      1999.365 2015.073 11.34.00 FDRTSEL
V00183 FDRABR.VPRNA1A.B108122A                      1999.365 2015.073 11.41.00 FDRTSEL
V01166 FDRABR.VHBT002.B108037A                      1999.365 2015.059 11.13.00 FDRTSEL
…
TDDSNAME--------------202

Data Sets on Tape Held by Retention Value

  TITLE    LINE='DATA SETS ON TAPE HELD BY RETENTION VALUE +
                 - EXTRACT FILE <TDXTDATE>'
  XEXCLUDE TDSTATUS=(INIT,SCRATCH)
  XSELECT TDRTVALU=CYCLE*                                    ***CHANGE
  SORT     FIELDS=(TDRTVALU,TDVOLSER),BREAK=(SSP,NO)
  REPORT   FIELDS=(TDCDEFAU,TDRTVALU,TDSTATUS)
  SUMMARY FIELDS=(TDVOLSER,TDDSNAME)
  PRINT    DATATYPE=CA1DSN

Sample Output

DATA SETS ON TAPE HELD BY RETENTION VALUE - EXTRACT FILE 2015.150

DATA SET NAME                                VOLSER DSEQN   CRDATE   EXPDAT RETENTVALU VOLSTAT
-------------                                ------ ----- -------- -------- ---------- -------
ABRTEST.PMOW0002.G0514V00                    V00052     1 2012.098 1999.004 CYCLE/004
ABRTEST.PMOW0002.G0548V00                    V00085     1 2013.040 1999.004 CYCLE/004
ABRTEST.PMOW0002.G0484V00                    V00168     1 2012.105 1999.004 CYCLE/004
…
    SUB - TDRTVALU-CYCLE/004     TDVOLSER--------------219 TDDSNAME--------------219
   FINAL TOTALS --               TDVOLSER--------------219 TDDSNAME--------------219

Data Sets on Tape Volumes Expiring within a Month

  XSELECT TVEXDAYS>0,TVEXDAYS<31                             ***CHANGE
  PUNCH    FDRLIB=MASK,ECHO
  PRINT    DATATYPE=CA1VOL,RPTYPE=SELPCH,DISABLE=DUPDSNCHECK

  CANCEL
  TITLE    LINE='DATA SETS ON TAPE VOLUMES EXPIRING WITHIN A MONTH +
                 - EXTRACT FILE <TDXTDATE>'
  EXEC     FDRLIB=SYSPUNCH,ECHO,MAXEXECUTE=32766
  SORT     FIELDS=(TDVOLSER,TDVOLSEQ,TDDSNAME),BREAK=SSP
  REPORT   FIELDS=(TDVOLSER,TDVOLSEQ,TDDSNAME,TDCRJOB,TDLUJOB,TDLRDATE,
                   TDEXDATE,TDSTATUS)
  SUMMARY FIELDS=TDDSNAME
  PRINT    DATATYPE=CA1DSN

Sample Output

DATA SETS ON TAPE VOLUMES EXPIRING WITHIN A MONTH - EXTRACT FILE 2015.150

VOLSER VSQ DATA SET NAME                                CREATJOB LASTUJOB   LRDATE   EXPDAT VOLSTAT
------ --- -------------                                -------- -------- -------- -------- -------
112592   1 ABRTEST.ANETBKUP.PEND360.PC860.WKLY.JUN14    ABRN002W ABRN002W 2014.166 2015.165
    SUB - TDVOLSER-112592    TDDSNAME----------------1
…
   FINAL TOTALS --           TDDSNAME---------------10

HCHECKC – Reports for CA 1 users

Create an Extract File

BMC AMI Storage FDR 6.1

On this page