The following example produces a Scratched Volume (TLMS003) report in volume sequence order.
COPY TLEARL03 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! TLMS REPORT 03 ! ! SCRATCHED VOLUMES(TLMS003) ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! COPY EARLDEFS DEF SCR (X 3) = NONE 'SCR' SET TYPRUN = R_VOLUME GETTAG: GET TAPEDB IF TAPEDB = 'E' GOTO EOJ ENDIF IF SCRATCH_IND = 'N' GOTO GETTAG ENDIF SET FUNCTION = 'TO_EXTERNAL' SET P_CTIME = CTIME CALL CTSEDATE USING FUNCTION P_CDATE CDATE DATE_FMT CALL CTSEDATE USING FUNCTION P_LDATE LDATE DATE_FMT CALL CTSEDATE USING FUNCTION P_DATE_SCRATCHED DATE_SCRATCHED DATE_FMT GOTO EOJ TAPEDB = 'E' REPORT 'SCRATCHED VOLUMES(TLMS003)' SELECT ALL PRINT VOLSER DSN FILESEQ P_CDATE P_CTIME CJOB P_LDATE LJOB P_DATE_SCRATCHED
mm/dd/yy SCRATCH VOLUMES(TLM003) PAGE 1 ---------------------------------------------------------------------------------------------------------------------------- VOLSER DATA SET NAME FILE CREATE CREATE CREATE LAST USE LAST DATE SEQ DATE TIME JOBNAME DATE JOB SCRATCHED ---------------------------------------------------------------------------------------------------------------------------- 000001 0 00:00:00 mm/dd/yyyy 000083 MY.DISP.TEST 1 mm/dd/yyyy hh:mm:ss JOB005 mm/dd/yyyy JOB005 mm/dd/yyyy 000084 MY.DISP.MULTI 1 mm/dd/yyyy hh:mm:ss JOB006 mm/dd/yyyy JOB006 mm/dd/yyyy 000085 MY.DISP.MULTI 1 mm/dd/yyyy hh:mm:ss JOB006 mm/dd/yyyy JOB006 mm/dd/yyyy 000086 MY.DISP.MULTI 1 mm/dd/yyyy hh:mm:ss JOB006 mm/dd/yyyy JOB006 mm/dd/yyyy 000087 MY.DISP.JOBS 1 mm/dd/yyyy hh:mm:ss JOB001 mm/dd/yyyy JOB003 mm/dd/yyyy END OF REPORT
|
Copyright © 2014 CA.
All rights reserved.
|
|