Sample Reports › Sample Type Z Reports › RPTDDB Sample Report (zOS and OS/390 Only) › Sample Input Program for the RPTDDB Report

Sample Input Program for the RPTDDB Report

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

NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * THIS EARL PROGRAM IS BASED ON THE CA ACF2 DB 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/12/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 ZRECORD
 
DEF TIME2      10‑15 N 'TIME' PIC 'Z9.99.99'
DEF RC=ACFSMFR 1‑4 B
 GET ACFFLT
GOTO EOJ (RC=‑1)
 
REPORT 'DDB TRANSMISSION REPORT'
TITLE 'RUN DATE:' DATEOFREPORT 'RUN TIME:' TIMEOFREPORT
 
NOTE  SELECT ONLY TYPE 'Z' RECORDS. PRINT SUMMARY LINE FOR EACH RECORD
NOTE  PRINT DETAIL LINE IF IT EXISTS.
 
 SELECT 'A' RECTYPE='Z' AND SEQUENCE ='1' AND ZACF NOT= 'ACF'
 SELECT 'B' RECTYPE='Z' AND SEQUENCE ='1' AND ZACF = 'ACF'
 SELECT 'C' RECTYPE='Z' AND SEQUENCE ='2'
 
 IFTAG B; PRINT DOUBLE SPACING
          ZLID DATE TIME2 ZSUBSYS ZFUNCTION ZTRANSMIT
          ZRNODE
          @78 ZANODE
          @88 ZRET
          @96 ZREA
         @103 ZCOMPON
         @114 ZMODULE
         @125 ZACF2MSG
 
 IFTAG B; PRINT ' '
 IFTAG B; PRINT @78 ZREQN
                @88 ZRETC
                @96 ZRESC
                @103 ZSUFCOMP
                @114 ZSUFMOD
                @125 ZMSGACF2
 
 IFTAG A; PRINT
          ZLID DATE TIME2 ZSUBSYS @36 ZFUNCTION ZTRANSMIT
          ZRNODE
          @78 ZANODE
          @88 ZRET
          @96 ZREA
         @103 ZCOMPON
         @114 ZMODULE
         @125 ZACF2MSG

 
 IFTAG C; PRINT @78 ZREQN
                @88 ZRETC
                @96 ZRESC
                @103 ZSUFCOMP
                @114 ZSUFMOD
                @125 ZMSGACF2
 
 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 ZRECORD file contains field definitions explicit to the type Z reports. The field called TIME2 redefines the TIME field to specify time in hours, minutes, and seconds. PIC 'Z9.99.99' formats the field as hh.mm.ss.

D READ FILE

Reads the input file records.

E SETUP

Sets up changes the title of the report to DDB TRANSMISSION REPORT, centered at the top of each page of the report. The TITLE statement adds a line below this containing the date (DATEOFREPORT) and time (TIMEOFREPORT) that the report was run. The SELECT statement selects all type Z records and assigns the records to groups based on sequence number and whether or not the record is a CA ACF2 record.

F PRINT LOGIC

Prints detail lines for a current type Z record based on the group (A, B, or C) that the record was assigned to by the SELECT statements described above. For each record in group A, one line prints. For each record in group B, two lines print, separated by a blank line. For each record in group C, one line prints.