Utilities › TMSGRW Utility—Produce Customized Reports on TMC and Audit Records › TMS Report 49 - Tapes Not Read for Input Over One Year (and Not Vaulted)

TMS Report 49 - Tapes Not Read for Input Over One Year (and Not Vaulted)

 TUESDAY, SEPTEMBER 27, 2005.268                  Y O U R   C O M P A N Y   N A M E                             ROxxxxx PAGE=00001

 TMS REPORT-49          INSTRUCTION REPORT

   CONTROL-SECTION
   *
   TITLE 'TAPES NOT READ FOR INPUT OVER ONE YEAR (AND NOT VAULTED)'
   FOOTER 'DELIVER TO TAPE LIBRARY ADMINISTRATOR'
   DEFINE OUT1 CH  ' LIB'
   DEFINE OUT2 CH  'LIBR'
   DEFINE OUT3 CH  'DRA1'
   DEFINE OUT4 CH  'SAFE'
   DEFINE OUT5 CH  'PERM'
   DEFINE DATE DT  'DDMMMYYYY'
   DEFINE ZERO DT  'ZEROS'
   *
   PROCESS-SECTION
   *
   WHEN OUT1 NE OUTCODE
    AND OUT2 NE OUTCODE
    AND OUT3 NE OUTCODE
    AND OUT4 NE OUTCODE
    AND OUT5 NE OUTCODE
    AND LDATE LE DATE
    AND LDATE GT ZERO
   LIST
   *
   REPORT-SECTION
   *
   PRINT VOLSER  'VOLUME,SERIAL'
   PRINT DSN     'DATA SET NAME'
   PRINT LDATE   'DATE LAST,USED' AS 'DDMMMYYYY'
   PRINT EXPDT   'EXPIRE,DATE' AS 'DDMMMYYYY'
   *

 TUESDAY, SEPTEMBER 27, 2005.268                  Y O U R   C O M P A N Y   N A M E                                 PAGE=00002

 TMS REPORT-49                        TAPES NOT READ FOR INPUT OVER ONE YEAR (AND NOT VAULTED)

   VOLUME   DATA SET NAME                                  DATE LAST    EXPIRE
   SERIAL                                                  USED         DATE

   055265   CS.BKUPTSO.UCLAB41.M80TS1                      DDMMMYYYY    DDMMMYYYY
   055430   C491JW1.HEWITT.PROBELOG.LOGA                   DDMMMYYYY    PERMANENT
   055479   CS.BKUPTSO.UCLAB41.M80TS3                      DDMMMYYYY    CYCLE/001
   055489   CS.BKUPTSO.UCLAB41.M80TS1                      DDMMMYYYY    DDMMMYYYY
   055545   C497RR1.MAZDA.MZ.ACCMIPO1.G0093V00             DDMMMYYYY    CATALOG
   056141   CS.BKUPTSO.UCLAB41.M80TS1                      DDMMMYYYY    DDMMMYYYY
   056397   C497RR1.MAZDA.MZ.ACCMIPO1.G0092V00             DDMMMYYYY    CATALOG
   056426   T40BC01.M80DL3.D87176                          DDMMMYYYY    CATALOG
   056549   SDEV0000.M80004.D87057.BACKUP                  DDMMMYYYY    DDMMMYYYY
   056584   T40BC01.M80DL3.D87174                          DDMMMYYYY    CATALOG
   056597   SDEV0000.M80172.D87057.BACKUP                  DDMMMYYYY    DDMMMYYYY
   056600   UCAL.V4L7NL07.VS1.SOURCE.BACKUP                DDMMMYYYY    DDMMMYYYY
   056601   T40DW01.VMACOUNT.M8611                         DDMMMYYYY    DDMMMYYYY
   056602   SSDDEV.RPLUS.PRODBTDB.G0001V00                 DDMMMYYYY    PERMANENT
   056603   SSDDEV.RPLUS.PRODBTDB.G0051V00                 DDMMMYYYY    PERMANENT
   056604   DB2TM02.TMC.BACKUP2                            DDMMMYYYY    DDMMMYYYY
   056605   SMPMCS                                         DDMMMYYYY    PERMANENT
   056606   SF0SF01.VMACOUNT.D870717                       DDMMMYYYY    DDMMMYYYY
   056607   SMPMCS                                         DDMMMYYYY    PERMANENT
   056608   DB2TM02.AUDIT.BACKUP1                          DDMMMYYYY    DDMMMYYYY
   056609   SMPMCS                                         DDMMMYYYY    PERMANENT
   056610   T4.ACUM.CMS.M8611                              DDMMMYYYY    CYCLE/001
   056611   SSDECS.RJK.TESTSL01                            DDMMMYYYY    STATS/997
   056612   SSDDEV.RPLUS.PRODDTDB.G0081V00                 DDMMMYYYY    PERMANENT
   056613   GDG.EREPDUMP.UCLAB41.DAILY.G0352V00            DDMMMYYYY    DDMMMYYYY
   056614   SF0SF01.VMACOUNT.D871013                       DDMMMYYYY    DDMMMYYYY
   056615   SMPMCS                                         DDMMMYYYY    PERMANENT
   056616   VMEREP.JUNE05                                  DDMMMYYYY    PERMANENT
   056617   SSDECS.UCAL.DM.EXPT1                           DDMMMYYYY    PERMANENT
   056618   SSDECS.UCMT.IEHMOVE.UNLOAD.TAPE                DDMMMYYYY    PERMANENT
   056619   SSDDEV.RPLUS.PRODDTDB.G0005V00                 DDMMMYYYY    PERMANENT
   056620   GDG.SMFDUMP.DAILY.G0777V00                     DDMMMYYYY    DDMMMYYYY
   056621   SSDDEV.U31UX02N                                DDMMMYYYY    PERMANENT
   056622   UCAL.V4L7NL05.VS1.SOURCE.BACKUP                DDMMMYYYY    DDMMMYYYY
   056623   BACKUP.M90ROS                                  DDMMMYYYY    PERMANENT
   056624   SSDDEV.RPLUS.PRODBTDB.G0028V00                 DDMMMYYYY    PERMANENT
   056625   SF0SF01.VMACOUNT.D870130                       DDMMMYYYY    LDATE/035
   056626   SSDDEV.RPLUS.PRODBTDB.G0087V00                 DDMMMYYYY    PERMANENT
   056627   BACKUP.M90ROS                                  DDMMMYYYY    PERMANENT
   056628   SSDDEV.RPLUS.PRODDTDB.G0026V00                 DDMMMYYYY    PERMANENT
   056629   GDG.CORPUMGR.DB.G0116V00                       DDMMMYYYY    CATALOG
   056630   C492FH1.MVMF.FILE1                             DDMMMYYYY    DDMMMYYYY
   056631   SSDDEV.RPLUS.PRODBTDB.G0002V00                 DDMMMYYYY    PERMANENT
   056632   D463CB1.UCPTR.U11SRC                           DDMMMYYYY    DDMMMYYYY
   056633   I8508808.SMPMCS                                DDMMMYYYY    DDMMMYYYY
   056634   MON21101.T180001                               DDMMMYYYY    DDMMMYYYY
   056635   T4.ACUM.CMS.M8701                              DDMMMYYYY    CYCLE/001
   056636   EXITDOS.INSTALL.DOC                            DDMMMYYYY    PERMANENT

 TUESDAY, SEPTEMBER 27, 2005.268                  Y O U R   C O M P A N Y   N A M E                                 PAGE=00008

 TMS REPORT-49                        TAPES NOT READ FOR INPUT OVER ONE YEAR (AND NOT VAULTED)




 0000000  RECORDS READ BY INCLUDE(S)

 0000024  RECORDS READ BY SYSIN

 0004576  RECORDS READ INTO SORT

 0000254  RECORDS SELECTED FOR OUTPUT

TUESDAY, SEPTEMBER 27, 2005.268                  Y O U R   C O M P A N Y   N A M E                                 PAGE=00009

 TMS REPORT-49                        TAPES NOT READ FOR INPUT OVER ONE YEAR (AND NOT VAULTED)




                                                DELIVER TO TAPE LIBRARY ADMINISTRATOR ErrorsaDuring Label/s That Had I/O Errors During Label Creation

If an I/O error occurs during the system creation of a tape header label, CA 1 moves a special keyword data set name into the volume record. These tapes should be checked to determine if the media is bad, and whether the volume should be cleaned or replaced. The TMSGRW control statements can be used to create a list of tapes with the ** IO ERROR ** data set name.

The report will provide the following information on each record selected for output: volume serial number, unit address last use, date last used and data set name. Dates are printed in the format 'DDMMMYYYY'.

CONTROL-SECTION
*
TITLE 'TAPES THAT HAD I/O ERRORS DURING LABEL CREATION'
FOOTER 'DELIVER TO TAPE LIBRARY ADMINISTRATOR'
DEFINE IODSN HX '00405C5C4040C9D6'
*
PROCESS-SECTION
*
WHEN IODSN EQ DSN
LIST
*
REPORT-SECTION
*
PRINT VOLSER 'VOLUME,SERIAL'
PRINT LUNIT 'LAST,UNIT'
PRINT LDATE 'DATE LAST,USED' AS 'DDMMMYYYY'
PRINT DSN 'DATA SET NAME'