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

Example 6

This example demonstrates how to use CA Earl to extract information from the CA 1 TMC to be used as input to one or more subsequent CA Earl jobs. This particular example extracts records which have a file sequence number greater than one. See Example 7 for using the extracted file. This example resides as member TMERPT01 in the CA 1 Source library.

!
!  TMS REPORT-TMERPT01   EXTRACT RECORDS USED WITH TMERPT02
!        VOLUME AND DSNB RECORDS
!

!
!  USE CA-EARL TO EXTRACT RECORDS FROM THE CA-1 TMC
!  AND CREATE A FILE CONTAINING ONLY THE EXTRACTED RECORDS.
!  THIS FILE WILL BE USED AS INPUT TO MEMBER TMERPT02 WITH
!  TYPRUN SET TO REPORT.
!
!  NOTES:
!     1)  ADD AN OUTFILE DD STATEMENT WITH LRECL=512 TO THE JCL.
!         THIS WILL CONTAIN THE EXTRACTED RECORDS AND BE THE
!         INPUT FOR AN EARL PROGRAM WITH TYPRUN = REPORT.
!     2)  MODIFY THE CA-EARL CONTROL STATEMENTS BASED ON YOUR
!         REQUIREMENTS.
!     3)  NO REPORT WILL BE PRODUCED BY THIS JOB SINCE THE OUTPUT
!         RECORDS ARE WRITTEN TO THE OUTPUT FILE.
!
!

 COPY EARLDEFS


 OUTFILE: FILE OUTPUT RECORD=512          ! DEFINE AN OUTPUT FILE
           DEF OUT_REC 1-512 X


 SET TYPRUN = R_SEQUENTIAL                ! LOOK AT ALL RECORDS

 GET TAPEDB

 GOTO EOJ TAPEDB ='E'

 IF FILESEQ > 1                           ! SELECT SECONDARY DATA SETS

     THEN
       SET OUT_REC = TAPE_DB_RECORD       ! COPY ALL DATA TO OUTPUT
       PUT OUTFILE                        ! AND WRITE IT
     ENDIF

END