Example 7

Producing Customized Reports Using CA Earl › CA Earl Use › CA Earl Coding Examples › Example 7

Example 7

This example demonstrates how to use CA Earl to create a report using extracted information from a previous run of CA Earl. It is the same as Example 2 except the input is of extracted records only. See Example 6 for creating the extracted file. This example resides as member TMERPT02 in the CA 1 Source library.

! ! TMS REPORT-TMERPT02 SELECTED VOLUME SERIAL MASTER REPORT ! EXTRACTED RECORDS FROM TMERPT01 ! ! ! USE CA-EARL TO GENERATE THE VOLUME SERIAL MASTER RPT. ! USE EXTRACTED RECORDS ONLY. ! ! NOTES: ! 1) SEE MEMBER TMERPT01 FOR A SAMPLE EXTRACT PROGRAM. ! 2) IN THE JCL, TAPEDB SHOULD POINT TO THE EXTRACT FILE. ! 3) MODIFY THE CA-EARL CONTROL STATEMENTS BASED ON YOUR ! REQUIREMENTS. ! COPY EARLDEFS DEF FIRST_SW (X 1) = ' ' SET TYPRUN = R_REPORT GET TAPEDB GOTO EOJ TAPEDB = 'E' IF SCRATCH_IND = 'N' OR ACTIND = 'Y' THEN GOTO CONTINUE ELSE GOTO START 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

(continued on next page)

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-TMERPT02' 3 'SELECTED VOLUME SERIAL MASTER REPORT' CONTROL VOLSER FILESEQ PRINT VOLSER FILESEQ DSN CJOB VOLSEQ P_CDATE P_CTIME P_EXPDT P_LDATE LABEL_TYPE FLAG3_EDM END FRIDAY, JULY 21, 2005.201 Y O U R C O M P A N Y N A M E PAGE 1 TMS REPORT-TMERPT02 SELECTED VOLUME SERIAL MASTER REPORT ------------------------------------------------------------------------------------------------------------------------------ VOLSER FILE DATA SET NAME CREATE VOL CREATE CREATE EXPIRATION LAST USE LBL EDM SEQ JOBNAME SEQ DATE TIME DATE DATE TYP IND ------------------------------------------------------------------------------------------------------------------------------ 000003 2 MVMF.V000003.FILE2 CAICA11C 0 YYYY/100 07:06:00 YYYY/300 ZEROS 000003 3 MVMF.V000018.FILE3 CAICA11C 0 YYYY/100 07:06:00 YYYY/300 ZEROS 000003 4 MVMF.V000018.FILE4 CAICA11C 0 YYYY/100 07:06:00 YYYY/300 ZEROS 000003 5 MVMF.V000008.FILE5 CAICA11C 0 YYYY/100 07:06:00 YYYY/300 ZEROS 000006 2 MVMF.V000006.FILE2 CAICA11B 0 YYYY/105 07:06:00 YYYY/300 ZEROS 000006 3 MVMF.V000006.FILE3 CAICA11B 0 YYYY/105 07:06:00 YYYY/300 ZEROS 000006 4 MVMF.V000010.FILE4 CAICA11B 0 YYYY/105 07:06:00 YYYY/300 ZEROS 000006 5 MVMF.V000010.FILE5 CAICA11B 0 YYYY/105 07:06:00 YYYY/300 ZEROS 000009 2 MVMF.V000009.FILE2 CAICA11A 0 YYYY/102 07:06:00 YYYY/300 ZEROS 000009 3 MVMF.V000009.FILE3 CAICA11A 0 YYYY/102 07:06:00 YYYY/300 ZEROS 000009 4 MVMF.V000011.FILE4 CAICA11A 0 YYYY/102 07:06:00 YYYY/300 ZEROS 000009 5 MVMF.V000011.FILE5 CAICA11A 0 YYYY/102 07:06:00 YYYY/300 ZEROS 000015 2 MF.V000015.FILE2 CAICA11A 0 YYYY/100 07:06:00 CATALOG ZEROS 000015 3 MF.V000015.FILE3 CAICA11A 0 YYYY/100 07:06:00 CATALOG ZEROS 000015 4 MF.V000015.FILE4 CAICA11A 0 YYYY/100 07:06:00 YYYY/300 ZEROS 000019 2 MF.V000019.FILE2 CAICA11B 0 YYYY/100 07:06:00 CATALOG ZEROS 000019 3 MF.V000019.FILE3 CAICA11B 0 YYYY/100 07:06:00 CATALOG ZEROS 000019 4 MF.V000019.FILE4 CAICA11B 0 YYYY/100 07:06:00 CATALOG ZEROS 000023 2 MVMF.V000023.FILE2 CAICA11C 0 YYYY/100 07:06:00 YYYY/300 ZEROS 000023 3 MVMF.V000038.FILE3 CAICA11C 0 YYYY/100 07:06:00 YYYY/300 ZEROS 000023 4 MVMF.V000038.FILE4 CAICA11C 0 YYYY/100 07:06:00 YYYY/300 ZEROS 000023 5 MVMF.V000028.FILE5 CAICA11C 0 YYYY/100 07:06:00 YYYY/300 ZEROS 000026 2 MVMF.V000026.FILE2 CAICA11B 0 YYYY/105 07:06:00 YYYY/300 ZEROS 000026 3 MVMF.V000026.FILE3 CAICA11B 0 YYYY/105 07:06:00 YYYY/300 ZEROS 000026 4 MVMF.V000030.FILE4 CAICA11B 0 YYYY/105 07:06:00 YYYY/300 ZEROS 000026 5 MVMF.V000030.FILE5 CAICA11B 0 YYYY/105 07:06:00 YYYY/300 ZEROS 000029 2 MVMF.V000029.FILE2 CAICA11A 0 YYYY/102 07:06:00 YYYY/300 ZEROS 000029 3 MVMF.V000029.FILE3 CAICA11A 0 YYYY/102 07:06:00 YYYY/300 ZEROS 000029 4 MVMF.V000031.FILE4 CAICA11A 0 YYYY/102 07:06:00 YYYY/300 ZEROS 000029 5 MVMF.V000031.FILE5 CAICA11A 0 YYYY/102 07:06:00 YYYY/300 ZEROS END OF REPORT

Example 7 - CA Earl Selected Volume Serial Master Report