This example illustrates how CA Earl can generate a volume serial master list. A similar example resides as member TMEVSNM in the CA 1 Source library.
! ! TMS REPORT-TMEVSNM VOLUME SERIAL MASTER ! ( SIMILAR TO OLD TMS REPORT 1 ) ! VOLUME AND/OR RECORDS ONLY ! ! !----------------------- MAINTENANCE LOG ------------------------- ! ! ADD TOTALS TO REPORTS AND GENERAL ENHANCEMENTS TE9A022 ! COPY EARLDEFS DEF D_LBLTYPE (X 4) = NONE 'LBL' 'TYPE' DEF D_VOLSER (X 6) = NONE 'VOLUME' 'SERIAL' DEF D_CTIME (P 4.0) = NONE 'CREATE' 'TIME' PIC '99:99' DEF P_FLAG1 (B 3.0) = 0 'F1' PIC H DEF FIRST_SW (X 1) = ' ' DEF VMS_INFO (X 13) = ' ' DEF VMS_CODE =VMS_INFO 001-004 X DEF VMS_DATE =VMS_INFO 006-013 X DEF NUM_DATASETS (X 13) = ' ' DEF NUM_TEXT = NUM_DATASETS 001-009 X DEF NUM_FILES = NUM_DATASETS 011-013 N PIC '999' DEF P_COMMENT (X 13) = ' ' 'COMMENTS' DEF VOL_COUNT (N 6.0) = 0 'VOLUMES' DEF DSNB_COUNT (N 6.0) = 0 'DSNBS' ! ! USING A TYPRUN OF R_SEQUENTIAL WILL SELECT VOLUME AND DSNB RECORDS ! USING A TYPRUN OF R_VOLUME WILL SELECT ONLY VOLUME RECORDS ! USING A TYPRUN OF R_CHAINED WILL SELECT BASE VOLUME, THEN DSNB'S ! !SET TYPRUN = R_SEQUENTIAL !SET TYPRUN = R_VOLUME SET TYPRUN = R_CHAINED GOTO EOJ TAPEDB = 'E' GET TAPEDB GOTO TEST TAPEDB = 'E' IF FILESEQ = 0 ! Q. UNALLOCATED DSNB RECORD GOTO START ! A. EQUAL - YES, BYPASS RECORD ENDIF IF ACTIND = 'N' AND FILESEQ > 1 ! Q. UNALLOCATED DSNB RECORD GOTO START ! A. EQUAL - YES, BYPASS RECORD ENDIF IF FLAG1_DEL = 'Y' ! Q. TAPE IN DELETED STATUS GOTO START ! A. EQUAL - YES, BYPASS RECORD ENDIF
(continued on next page)
!IF CJOB = 'PRE-TMS' ! Q. TAPE IN "PRE" STATUS ! GOTO START ! A. EQUAL - YES, BYPASS RECORD !ENDIF !IF SCRATCH_IND = 'Y' ! Q. TAPE IN SCRATCH STATUS ! GOTO START ! A. EQUAL - YES, BYPASS RECORD !ENDIF CONTINUE: 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_LDATE,LDATE,DATE_FMT SET D_CTIME = CTIME / 100 SET D_LBLTYPE = LABEL_TYPE IF FILESEQ > 1 THEN SET P_FLAG1 = DSNBFLG1 SET D_VOLSER = ' ' SET D_LBLTYPE = 'DSNB' SET DSNB_COUNT = DSNB_COUNT + 1 ELSE SET P_FLAG1 = VOLFLG1 SET D_VOLSER = VOLSER SET VOL_COUNT = VOL_COUNT + 1 ENDIF IF OUTCODE = ' ' OR OUTCODE = ' VMS' OR OUTCODE < ' ' SET P_COMMENT = ' ' ELSE SET VMS_CODE = OUTCODE CALL CTSEDATE USING FUNCTION,VMS_DATE,OUTDATE,DATE_FMT SET P_COMMENT = VMS_INFO ENDIF IF FILECNT > 1 AND FILESEQ = 1 THEN SET NUM_TEXT = 'DATASETS=' SET NUM_FILES = FILECNT SET P_COMMENT = NUM_DATASETS ENDIF IF SCRATCH_IND = 'Y' THEN SET P_COMMENT = '*SCRATCH* ' ENDIF IF FLAG3_BAD = 'Y' THEN SET P_COMMENT = '*BAD* ' ENDIF
(continued on next page)
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-TMEVSNM VOLUME SERIAL MASTER' SELECT TAPEDB NOT = 'E' CONTROL VOLSER VOLSEQ FILESEQ PRINT D_VOLSER 1 DSN 1 CJOB VOLSEQ FILESEQ 1 P_CDATE D_CTIME 1 P_EXPDT 1 P_LDATE D_LBLTYPE P_COMMENT P_FLAG1 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-TMEVSNM TOTALS FOR VOLUME SERIAL MASTER' SELECT TAPEDB = 'E' PRINT 0 'TOTAL NUMBER OF ITEMS LISTED:' VOL_COUNT 5 DSNB_COUNT END
WEDNESDAY, JUNE 01, 2005.157 Y O U R C O M P A N Y N A M E PAGE 49 TMS REPORT-TMEVSNM VOLUME SERIAL MASTER -------------------------------------------------------------------------------------------------------------------------------- VOLUME DATA SET NAME CREATE VOL FILE CREATE CREATE EXPIRATION LAST USE LBL COMMENTS F1 SERIAL JOBNAME SEQ SEQ DATE TIME DATE DATE TYPE -------------------------------------------------------------------------------------------------------------------------------- 102724 ________________________________________ PRE-TMS 1 1 ZEROS 00:00 MMMDD YYYY ZEROS SL *SCRATCH* 44 102725 ________________________________________ PRE-TMS 1 1 ZEROS 00:00 MMMDD YYYY ZEROS SL *SCRATCH* 44 102726 ________________________________________ PRE-TMS 1 1 ZEROS 00:00 MMMDD YYYY ZEROS SL *SCRATCH* 44 102728 ________________________________________ PRE-TMS 1 1 ZEROS 00:00 MMMDD YYYY ZEROS SL *SCRATCH* 44 120000 ________________________________________ PRE-TMS 1 1 ZEROS 00:00 MMMDD YYYY ZEROS SL *SCRATCH* 44 980000 GDS.BLC.BLC958.G0012V00 SAMEJOB 1 1 MMMDD YYYY 04:27 MMMDD YYYY MMMDD YYYY SL LIB2 MMMDD 19 A0 980003 GDS.BLC.BLC959.G0013V00 SAMEJOB 1 1 MMMDD YYYY 21:19 MMMDD YYYY MMMDD YYYY SL MRON MMMDD 19 20 980004 GDS.BLC.BLC959.G0013V00 SAMEJOB 2 1 MMMDD YYYY 21:19 CATALOG MMMDD YYYY SL MRON MMMDD 19 A0 980005 GDS.BLC.BLC959.G0013V00 SAMEJOB 3 1 MMMDD YYYY 21:19 CATALOG MMMDD YYYY SL MRON MMMDD 19 A0 980006 GDS.BLC.BLC578.G0012V00 SAMEJOB 1 1 MMMDD YYYY 03:57 MMMDD YYYY MMMDD YYYY SL 20 980007 GDS.BLC.BLC578.G0012V00 SAMEJOB 2 1 MMMDD YYYY 03:57 CATALOG MMMDD YYYY SL 20 980008 GDS.BLC.BLC578.G0012V00 SAMEJOB 3 1 MMMDD YYYY 03:57 CATALOG MMMDD YYYY SL 20 980009 GDS.BLC.BLC578.G0013V00 SAMEJOB 1 1 MMMDD YYYY 20:50 MMMDD YYYY ZEROS SL *SCRATCH* 24 980010 NOBGE01.TMS52.DDRTESTI GLNGENER 1 1 MMMDD YYYY 12:31 MMMDD YYYY MMMDD YYYY SL E0 980011 GDS.BLC.BLC958.G0014V00 ANOTHER 1 1 MMMDD YYYY 14:09 MMMDD YYYY MMMDD YYYY SL *SCRATCH* 24 980012 HICFR01.AIVS.V102021.V980012.FILE1XXX JOB0128A 1 1 MMMDD YYYY 11:09 MMMDD YYYY MMMDD YYYY SL 61 980013 ________________________________________ PRE-TMS 1 1 ZEROS 00:00 MMMDD YYYY ZEROS SL *SCRATCH* 44 980014 HICFR01.AIVSGDG.G0002V00.DONTUSE JOB0128H 1 1 MMMDD YYYY 13:16 MMMDD YYYY MMMDD YYYY SL DATASETS= 009 21 TEST.AGGR.FILE2 JOBAGGR 1 2 MMMDD YYYY 19:12 MMMDD YYYY MMMDD YYYY DSNB 20 TEST.AGGR.FILE3 JOBAGGR 1 3 MMMDD YYYY 19:12 MMMDD YYYY MMMDD YYYY DSNB 20 TEST.AGGR.FILE4 JOBAGGR 1 4 MMMDD YYYY 19:12 MMMDD YYYY MMMDD YYYY DSNB 20 TEST.AGGR.FILE5 JOBAGGR 1 5 MMMDD YYYY 19:12 MMMDD YYYY MMMDD YYYY DSNB 20 TEST.AGGR.FILE6 JOBAGGR 1 6 MMMDD YYYY 19:12 MMMDD YYYY MMMDD YYYY DSNB 20 TEST.AGGR.FILE7 JOBAGGR 1 7 MMMDD YYYY 19:12 MMMDD YYYY MMMDD YYYY DSNB 20 TEST.AGGR.FILE8 JOBAGGR 1 8 MMMDD YYYY 19:12 MMMDD YYYY MMMDD YYYY DSNB 20 TEST.AGGR.FILE9 JOBAGGR 1 9 MMMDD YYYY 19:12 MMMDD YYYY MMMDD YYYY DSNB 20 980015 HICFR01.AIVSGDG.G0013V00 JOB0128M 1 1 MMMDD YYYY 14:59 CATALOG MMMDD YYYY SL 01 980016 HICFR01.AIVSGDG.G0014V00.DONTUSE JOBSLTAP 1 1 MMMDD YYYY 15:11 MMMDD YYYY MMMDD YYYY SL *SCRATCH* 65 980017 NOBGE01.TMS52.EOVDSA1 GLNEOVA1 1 1 MMMDD YYYY 16:42 MMMDD YYYY MMMDD YYYY SL E0 980018 NOBGE01.TMS52.EOVDSA1 GLNEOVA1 2 1 MMMDD YYYY 16:42 MMMDD YYYY MMMDD YYYY SL A0 980019 NOBGE01.TMS52.EOVDSA1 GLNEOVA1 3 1 MMMDD YYYY 16:42 MMMDD YYYY MMMDD YYYY SL A0 980020 NOBGE01.TMS52.TAPE01 GLNCAT01 1 1 MMMDD YYYY 12:32 MMMDD YYYY MMMDD YYYY SL E0 980021 NOBGE01.TMS52.TAPE02 GLNCAT01 1 1 MMMDD YYYY 12:33 MMMDD YYYY MMMDD YYYY SL E0 980022 NOBGE01.TMS52.TAPE03 GLNCAT01 1 1 MMMDD YYYY 12:33 MMMDD YYYY MMMDD YYYY SL E0 980023 SYS4.TEST.FOREIGN1 MYJOB 1 1 MMMDD YYYY 10:46 MMMDD YYYY MMMDD YYYY SL E0 980024 HICFR01.NOTAVIS.JOB0130O.FILE1 JOB0130O 1 1 MMMDD 1996 20:14 CATALOG MMMDD YYYY SL E1 980025 GDS.BLC.BLC958.G0014V00 SAMEJOB 1 1 MMMDD YYYY 21:10 MMMDD YYYY ZEROS SL *SCRATCH* 24 980026 HICFR01.NOTAVIS.JOB0130O.FILE1 JOB0130O 2 1 MMMDD YYYY 20:14 CATALOG MMMDD YYYY SL 41 980027 HICFR01.NOTAVIS.JOB0130O.FILE1 JOB0130O 3 1 MMMDD YYYY 20:14 CATALOG MMMDD YYYY SL DATASETS= 002 41 HICFR01.NOTAVIS.JOB0130Q.FILE2 JOB0130Q 3 2 MMMDD YYYY 20:28 CATALOG MMMDD YYYY DSNB 8B 980028 HICFR01.NOTAVIS.JOB0130O.FILE1 JOB0130O 4 1 MMMDD YYYY 20:14 CATALOG MMMDD YYYY SL DATASETS= 002 41 980031 ________________________________________ JOBA131M 1 1 MMMDD YYYY 12:12 MMMDD YYYY MMMDD YYYY NL *SCRATCH* E5 980032 SYS4.TEST.SHOW PAKING 1 1 MMMDD YYYY 15:20 MMMDD YYYY MMMDD YYYY SL E0 980034 VAULT.TEST.AX.MF VAULTEST 1 1 MMMDD YYYY 03:01 MMMDD YYYY MMMDD YYYY SL *SCRATCH* A4 980035 VAULT.TEST.AX VAULTEST 1 1 MMMDD YYYY 03:01 MMMDD YYYY MMMDD YYYY SL *SCRATCH* A4 980036 VAULT.TEST.AX VAULTEST 1 1 MMMDD YYYY 03:01 MMMDD YYYY MMMDD YYYY SL *SCRATCH* A4 980037 VAULT.TEST.AX VAULTEST 1 1 MMMDD YYYY 17:43 MMMDD YYYY MMMDD YYYY NL *SCRATCH* E5 980038 VAULT.TEST.AX VAULTEST 1 1 MMMDD YYYY 11:54 MMMDD YYYY MMMDD YYYY SL *SCRATCH* E5 980039 VAULT.TEST.AX VAULTEST 1 1 MMMDD YYYY 00:00 MMMDD YYYY MMMDD YYYY SL *SCRATCH* A4 END OF REPORT
Example 2 - CA-Earl Volume Serial Number Master
|
Copyright © 2013 CA Technologies.
All rights reserved.
|
|