Sample Reports › Sample Type D Reports › RPTEL1 Sample Report (z/OS and OS/390 Only) › Output

Output

Following is a sample of the RPTEL1 output.

03/29/02                 INFO‑STOR MODIFICATION SUMMARY             PAGE1
                  RUN DATE:    03‑29‑02     RUN TIME:    17.37.38  
‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑  
 CHANGE      RECORD                                              DATE     TIME 
             KEY  
‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑ 
0 CHANGE      CTSOSSDBAD                                      03‑29‑02    12.43 
              CTSOSSDBAD                                      03‑29‑02    15.07 
              CTSOSSDRPW1                                     03‑29‑02     8.32 
              CTSOSSDRPW1                                     03‑29‑02     8.52 
              CTSOTLCCBU                                      03‑29‑02    15.30

  CHANGE

 END OF REPORT

1  REPORT   RECORDS READ   LINES PRINTED 
        1              5              17 
‑**** REPORT PHASE ENDED   0.10 SECONDS. 

Use this report for an overview of changes to infostorage records. You can run RPTEL to examine in detail changes that look suspicious.

Sample Input Program for the RPTEL1 Report

The following is a brief explanation of the program for this report.

NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * THIS EARL PROGRAM IS BASED ON THE CA ACF2 EL REPORT*
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
 
 OPTION PRINTER=80
NOTE OPTION LIST OFF
 
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * CHANGE LOG:                                            *
NOTE *                                                        *
NOTE * RELEASE: 6.3                                           *
NOTE *                                                        *
NOTE * TA3985D  07/14/98  Z0012                               * TA3985D
NOTE *          INCREASED RECORD LENGTH OF ACFSMFR FILE       * TA3985D
NOTE *          FOR LONGER OMVS SMF RECORDS.                  * TA3985D
NOTE *                                                        *
NOTE * RELEASE: 6.5                                           *
NOTE *                                                        *
NOTE * TA6015G  03/13/02  Z0037                               * TA6015G
NOTE *          REBRANDING CHANGES.                           * TA6015G
NOTE *                                                        *
NOTE * END OF LOG.                                            *
NOTE *                                                        *
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
 
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * TO USE SRAM SORT REMOVE NOTE BELOW                *
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE OPTION SORT=SRAM
 
 ACFFLT: FILE ACFSMFR RECORD=23756                            ! TA3985D
 
COPY HDRECORD
COPY ERECORD1
COPY ERECORD2
 
DEF WHOLEHDR   8‑232 X
DEF RC=ACFSMFR 1‑4 B

GET ACFFLT
GOTO EOJ (RC=‑1)
 
REPORT 'INFO‑STOR MODIFICATION SUMMARY'
TITLE 'RUN DATE:' DATEOFREPORT 'RUN TIME:' TIMEOFREPORT
 
NOTE  SELECT ONLY TYPE 'E' RECORDS. PRINT SUMMARY LINE FOR EACH RECORD
NOTE  PRINT DETAIL LINE IF IT EXISTS.
 
 SELECT RECTYPE='E' AND SEQUENCE = '1' AND EFUNCTION NOT = 'BFORREPL'
 CONTROL (EFUNCTION) BREAK EKEY DATE TIME
 
 PRINT EFUNCTION EKEY DATE TIME
 
 END

Highlights

The following letters correspond directly to the letters and braces on the previous page. Each brace highlights a significant part of the customized CA Earl report.

A OPTIONS. In this example, this information is sorted with the user sort program. To sort the information with the CA‑SRAM method, remove the word NOTE from the line containing the statement OPTION SORT=SRAM. To sort by another method, use this option to specify that method.

Note: If you are a VM site, SRAM SORT is the default.

B INPUT FILE. Specifies which file is used as input. You must include this statement exactly as it is shown in the sample.

C FIELD DEFS. This sample imbeds HDRECORD, ERECORD1, and ERECORD2. In addition to the COPY statements, we have also defined an item called WHOLEHDR to be columns 8 through 232 of each record. This item is used in the sort logic to pair off any records that together report a single modification event. That is, if an infostorage modification resulted in two flat file records being written, we want to pair those records off together. Since for each of those pairs, columns 8 through 232 is identical, we can use that portion of the record as the primary sort field, thus assuring that those pairs occur together in the sorted flat file.

D READ FILE. The file the report reads for processing.

E SETUP. Defines a report header and one additional header (TITLE) line for pages of the report. Selects the current record for further processing based on the contents of certain record fields. In particular, if the record has the value E in the RECTYPE field and the value 1 in the SEQUENCE field, and the EFUNCTION value is not BFORREPL, then the record is selected for further processing. If the record does not meet these criteria, then further statements in this report do not process the record.

F PRINT LOGIC. The CONTROL statement sorts the records first by the value of EFUNCTION, then sorts each group of records with like EFUNCTION values into groups with like EKEY values. The records are then sorted by DATE, and finally by TIME.

The BREAK statement following EFUNCTION causes this field to print only once each time the EFUNCTION value changes and suppresses it until the next time the value changes. EKEY, DATE, and TIME print for every report entry.

One line prints containing EFUNCTION (if changed from the previous entry), EKEY, DATE, and TIME.