Sample Reports › Sample Type T Report › RPTCR Sample Report (z/OS and OS/390 Only) › Output › Sample Input Program for the RPTCR Report

Sample Input Program for the RPTCR Report

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

NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * THIS EARL PROGRAM IS BASED ON THE CA ACF2 CR REPORT  *
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
 OPTION PRINTER=132
 OPTION LIST OFF
 OPTION OMIT DETAIL BLANK LINES
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 TRECORD
 
DEF RC=ACFSMFR 1‑4 B
 
GET ACFFLT
GOTO EOJ (RC=‑1)
REPORT
TITLE 'TSO COMMAND DETAIL STATISTICS LOG'
TITLE 'RUN DATE:' DATEOFREPORT 'RUN TIME:' TIMEOFREPORT
      'PAGE' PAGENUMBER
 
 SELECT RECTYPE='T'
 
 PRINT DOUBLE SPACING @1 LOGONID
       TSEQ
       TCOMMAND
       TTOD
       TPROGRAM
       TENVIRONMENT
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * TO RUN THE FULL DETAIL REPORT REMOVE 'NOTE'       *
NOTE * FROM THE FOLLOWING PRINT LINES                    *
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE PRINT @27 TBUFF1
NOTE PRINT @27 TBUFF2
NOTE PRINT @27 TBUFF3
NOTE PRINT @27 TBUFF4
 
 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

Sorts with the user sort program. To sort the information using 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

COPY statements here imbed macro library file definitions into the source program. Further values are also defined in the source program. The HDRECORD file contains field definitions common to all CA Earl reports. The TRECORD file contains field definitions explicit to the type T reports.

D READ FILE

Reads the input file records.

E SETUP

Changes the title of the report to TSO COMMAND STATISTICS LOG, centered at the top of each page of the report. The TITLE statement adds a line below this line containing the date (RUN DATE) and time (RUN TIME) that the report was run. The SELECT statement selects all type T records for processing.

F PRINT LOGIC

Prints the headers across the page in the order shown. The headers are automatically spaced based on the value of the PRINTER= statement at the beginning of the program.

G VARIATIONS

Provides variations of the report.