Sample Reports › Sample Type D Reports › RPTDS Sample Report › Sample Input Program for the RPTDS Report

Sample Input Program for the RPTDS Report

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

NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * THIS EARL PROGRAM IS BASED ON THE CA ACF2 DS REPORT*
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
 
 OPTION PRINTER=132
 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 DRECORD
 
DEF RC=ACFSMFR 1‑4 B
GET ACFFLT
GOTO EOJ (RC=‑1)
 
REPORT EXCLUDE 'DATASET ACCESS REPORT'
TITLE ' '
TITLE 'RUN DATE:' DATEOFREPORT  'RUN TIME:' TIMEOFREPORT
 
 
NOTE  SELECT ONLY TYPE 'D' RECORDS.
NOTE  PRINT 3 DETAIL LINES FOR EACH RECORD WITHOUT NEXTKEYS AND
NOTE  PRINT 6 DETAIL LINES FOR EACH RECORD WITH NEXTKEYS
 
 SELECT 'A' RECTYPE  'D' AND NEXTKEY_COUNT NOT = 0
 SELECT 'B' RECTYPE  'D' AND NEXTKEY_COUNT = 0
 PRINT DOUBLE SPACING
       @2  DSN     @57 UID     @89 LIBRARY
 PRINT @13 MAJOR   @20 MINOR @29 RMRC    @48 STAPE
       @59 LOGONID @68 NAME  @90 PGMNAME @99 DDNAME @108 LIBVOL
 PRINT @13  VOLUME  @20  RULEKEY  @29 DRTYPE  DSTYPE     PATH
       @59  JOBNAME @68  STEPNAME @77 JOBID   @86 CPU    @91 SOURCE
       @107 DATE    @116 TIME
 
IFTAG A; PRINT 'NEXTKEYS:' @13 NEXTKEY1
IFTAG A; PRINT @13 NEXTKEY2
IFTAG A; PRINT @13 NEXTKEY3
 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 the information 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 to use 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 DRECORD file contains field definitions explicit to the type D reports.

D READ FILE

Reads the input file records.

E SETUP

Tells CA Earl not to print the default headings of the columns.

All type D records are selected for this report. These type D records are then tagged A if they have a NEXTKEY value; or these records are tagged B if no NEXTKEY value is found. The IFTAG statements later in the report define the disposition of these two categories.

F PRINT LOGIC

Prints detail lines for a current type D record based on the group that the SELECT statements (described above) assigned to the record. Each PRINT statement specifies explicit column placements. The first three PRINT statements print for all records, regardless of group. The first of these printed lines is double‑spaced. For each record assigned to group A, three additional lines containing the first three NEXTKEY values print.