This example illustrates how CA Earl can generate a report of tapes that are out-of-area. A similar example resides as member TMEOUTA in the CA 1 Source library.
! ! TMS REPORT-TMEOUTA OUT-OF-AREA TAPES ! ( SIMILAR TO OLD TMS REPORT 7 ) ! VOLUME RECORDS ONLY ! COPY EARLDEFS DEF FIRST_SW (X 1) = ' ' SET TYPRUN = R_VOLUME GET TAPEDB GOTO EOJ TAPEDB = 'E' IF FIRST_SW = ' ' THEN SET FIRST_SW = '*' SET FUNCTION = 'RETURN_DATE' CALL CTSEDATE USING FUNCTION,RUNDATE,RUNTIME SET FUNCTION = 'TO_EXPLODED' CALL CTSEDATE USING FUNCTION,P_EXP_DATA,RUNDATE ENDIF SET FUNCTION = 'TO_EXTERNAL' CALL CTSEDATE USING FUNCTION,P_EXPDT,EXPDT,DATE_FMT CALL CTSEDATE USING FUNCTION,P_CDATE,CDATE DATE_FMT CALL CTSEDATE USING FUNCTION,P_OUTDATE,OUTDATE DATE_FMT SET P_CTIME = CTIME REPORT TITLE @1 P_EXP_DAYNAM @11 ',' @13 P_EXP_MONNAM @24 P_EXP_DD @26 ',' @28 P_EXP_YYYY @32 '.' @33 P_EXP_DDD @50 COMPANY_NAME @115 'PAGE' @125 PAGENUMBER TITLE @1 ' ' TITLE @1 'TMS REPORT-TMEOUTA OUT OF AREA TAPES' ! ! SELECT ALL VOLUME RECORDS WHOSE OUTCODE IS NOT = 'VMS' AND NOT BLANK ! SELECT OUTCODE NOT = 'VMS' AND OUTCODE > ' ' CONTROL OUTCODE OUTDATE DSN CDATE CTIME VOLSEQ PRINT VOLSER DSN CJOB VOLSEQ P_CDATE P_CTIME P_EXPDT LABEL_TYPE TRTCH OUTCODE P_OUTDATE FLAG3_EDM END
THURSDAY, JULY 21, 2005.200 Y O U R C O M P A N Y N A M E PAGE 1 TMS REPORT-TMEOUTA OUT OF AREA TAPES -------------------------------------------------------------------------------------------------------------------------------- VOLSER DATA SET NAME CREATE VOL CREATE CREATE EXPIRATION LBL TRTCH LOC DATE EDM JOBNAME SEQ DATE TIME DATE TYP ID MOVED IND -------------------------------------------------------------------------------------------------------------------------------- 228511 AB.HOXDBM0A USRH0J0F 3 YYYY/191 06:34:00 YYYY/236 SL 18TK NOR YYYY/193 N 228275 AB.HOXDBM0A USRH0J0F 4 YYYY/191 06:34:00 YYYY/236 SL 18TK NOR YYYY/193 N 228351 AB.HOXDBM0A USRH0J0F 5 YYYY/191 06:34:00 YYYY/236 SL 18TK NOR YYYY/193 N 228520 AB.HOXDBM0A USRH0J0F 6 YYYY/191 06:34:00 YYYY/236 SL 18TK NOR YYYY/193 N 228327 AB.HOXFUM0A USRH0J0F 1 YYYY/191 05:35:00 YYYY/221 SL 18TK NOR YYYY/193 N 227457 AB.HOXHDM0A USRH0J1F 1 YYYY/191 07:22:00 YYYY/221 SL 18TK NOR YYYY/193 N 227376 AB.HOXHDM5A USRH0J26 1 YYYY/191 10:49:00 YYYY/221 SL 18TK NOR YYYY/193 N 224978 AB.HOXHDM5A USRH0J26 2 YYYY/191 10:49:00 YYYY/221 SL 18TK NOR YYYY/193 N 221945 AB.HOXHDM7A USRH0J27 1 YYYY/191 10:58:00 YYYY/221 SL 18TK NOR YYYY/193 N 227798 AB.HOXHDM7A USRH0J27 2 YYYY/191 10:58:00 YYYY/221 SL 18TK NOR YYYY/193 N 224320 AB.HOXJDM0G USRH0J11 1 YYYY/191 07:29:00 YYYY/221 SL 18TK NOR YYYY/193 N 224282 AB.HOXJKM0A USRH0J18 1 YYYY/191 10:43:00 YYYY/221 SL 18TK NOR YYYY/193 N 231592 AB.HOXKKM0A USRH0J18 1 YYYY/191 10:41:00 YYYY/221 SL 18TK NOR YYYY/193 N 223474 CA.YSRALM44 YSRH0JM1 1 YYYY/194 00:11:00 YYYY/229 SL 18TK NOR YYYY/194 N 233447 CA.YSRBLX01.G0002V00 YSRH0JCI 1 YYYY/193 19:26:00 YYYY/203 SL 18TK NOR YYYY/194 N 228355 CA.YSRCLX01.G0003V00 YSRH0JM1 1 YYYY/194 00:04:00 YYYY/204 SL 18TK NOR YYYY/194 N 234201 CA.YSRCPX01 YSRH0JM2 1 YYYY/194 00:29:00 YYYY/204 SL 18TK NOR YYYY/194 N 223045 CA.YSRGRX01.G0013V00 YSRH0JM2 1 YYYY/194 00:54:00 YYYY/215 SL 18TK NOR YYYY/194 N 234456 CA.YSSDAX02.G0031V00 YSSH0JDE 1 YYYY/193 17:20:00 YYYY/208 SL 18TK NOR YYYY/194 N 223781 CA.YSSGAX01 YSSH0JDE 1 YYYY/193 17:15:00 YYYY/208 SL 18TK NOR YYYY/194 N 222776 CA.YSSHAX01.G0022V00 YSSH0JDE 1 YYYY/193 17:27:00 YYYY/203 SL 18TK NOR YYYY/194 N 222812 CA.YSSJAX01.G0038V00 YSSH0JDE 1 YYYY/193 17:28:00 YYYY/203 SL 18TK NOR YYYY/194 N 226559 DB.HOXJDX08 USRH0J0D 1 YYYY/193 16:18:00 YYYY/214 SL 18TK NOR YYYY/194 N 222661 DB.HOXDBX01 USRH0J0F 1 YYYY/154 09:55:00 YYYY/199 SL 18TK NOR YYYY/195 N 224155 DB.HOXDBX01 USRH0J0F 2 YYYY/154 09:55:00 YYYY/199 SL 18TK NOR YYYY/195 N 234335 DB.HOXDBX01 USRH0J0F 3 YYYY/154 09:55:00 YYYY/199 SL 18TK NOR YYYY/195 N 234216 DB.HOXDBX01 USRH0J0F 4 YYYY/154 09:55:00 YYYY/199 SL 18TK NOR YYYY/195 N 236938 DB.HOXDBX01 USRH0J0F 5 YYYY/154 09:55:00 YYYY/199 SL 18TK NOR YYYY/195 N 232902 DB.HOXDBX01 USRH0J0F 6 YYYY/154 09:55:00 YYYY/199 SL 18TK NOR YYYY/195 N 228643 DB.HOXDBX01 USRH0J0F 1 YYYY/156 05:39:00 YYYY/201 SL 18TK NOR YYYY/195 N 229913 DB.HOXDBX01 USRH0J0F 2 YYYY/156 05:39:00 YYYY/201 SL 18TK NOR YYYY/195 N 229991 DB.HOXDBX01 USRH0J0F 3 YYYY/156 05:39:00 YYYY/201 SL 18TK NOR YYYY/195 N 229919 DB.HOXDBX01 USRH0J0F 4 YYYY/156 05:39:00 YYYY/201 SL 18TK NOR YYYY/195 N 228278 DB.HOXDBX01 USRH0J0F 5 YYYY/156 05:39:00 YYYY/201 SL 18TK NOR YYYY/195 N 230373 DB.HOXDBX01 USRH0J0F 6 YYYY/156 05:39:00 YYYY/201 SL 18TK NOR YYYY/195 N 237549 DB.HOXDBX01 USRH0J0F 1 YYYY/181 04:52:00 YYYY/226 SL 18TK NOR YYYY/195 N 221842 DB.HOXDBX01 USRH0J0F 2 YYYY/181 04:52:00 YYYY/226 SL 18TK NOR YYYY/195 N 236036 DB.HOXDBX01 USRH0J0F 3 YYYY/181 04:52:00 YYYY/226 SL 18TK NOR YYYY/195 N 228016 DB.HOXDBX01 USRH0J0F 4 YYYY/181 04:52:00 YYYY/226 SL 18TK NOR YYYY/195 N 220974 DB.HOXDBX01 USRH0J0F 5 YYYY/181 04:52:00 YYYY/226 SL 18TK NOR YYYY/195 N 229666 DB.HOXDBX01 USRH0J0F 6 YYYY/181 04:52:00 YYYY/226 SL 18TK NOR YYYY/195 N 225840 DB.HOXDBX01 USRH0J7F 1 YYYY/182 23:08:00 YYYY/203 SL 18TK NOR YYYY/195 N 229726 DB.HOXDBX01 USRH0J7F 2 YYYY/182 23:08:00 YYYY/203 SL 18TK NOR YYYY/195 N 225714 DB.HOXDBX01 USRH0J7F 3 YYYY/182 23:08:00 YYYY/203 SL 18TK NOR YYYY/195 N 225513 DB.HOXDBX01 USRH0J7F 4 YYYY/182 23:08:00 YYYY/203 SL 18TK NOR YYYY/195 N 225897 DB.HOXDBX01 USRH0J7F 5 YYYY/182 23:08:00 YYYY/203 SL 18TK NOR YYYY/195 N 225878 DB.HOXDBX01 USRH0J7F 6 YYYY/182 23:08:00 YYYY/203 SL 18TK NOR YYYY/195 N 220508 DB.HOXDBX01 USRH0J0F 1 YYYY/195 04:38:00 YYYY/240 SL 18TK NOR YYYY/195 N 220552 DB.HOXDBX01 USRH0J0F 2 YYYY/195 04:38:00 YYYY/240 SL 18TK NOR YYYY/195 N 221013 DB.HOXDBX01 USRH0J0F 3 YYYY/195 04:38:00 YYYY/240 SL 18TK NOR YYYY/195 N 221090 DB.HOXDBX01 USRH0J0F 4 YYYY/195 04:38:00 YYYY/240 SL 18TK NOR YYYY/195 N 233633 DB.HOXDBX01 USRH0J0F 5 YYYY/195 04:38:00 YYYY/240 SL 18TK NOR YYYY/195 N
Example 3 - CA-Earl Out-of-Area Tapes
|
Copyright © 2013 CA Technologies.
All rights reserved.
|
|