Compaq COBOL AAQ2G1FTK - Manual (Page 376)

Producing Printed Reports
10.9 Report Writer Examples
Example 10–10 (Cont.) Sample Program EX1010
REPORT SECTION.
RD
MASTER-LIST
PAGE LIMIT IS 66
HEADING
1
FIRST DETAIL 13
LAST DETAIL 55
FOOTING 58
CONTROLS ARE FINAL
NAME.
01 REPORT-HEADER TYPE IS REPORT HEADING NEXT GROUP NEXT PAGE.
02
LINE 24.
03
COLUMN 45
PIC X(31) VALUE ALL "*".
02 LINE 25.
03
COLUMN 45
PIC X VALUE "*".
03 COLUMN 75
PIC X VALUE "*".
03 COLUMN 45
PIC X(31) VALUE "*
Customer Master File *".
02 LINE 27.
03
COLUMN 45
PIC X VALUE "*".
03 COLUMN 75
PIC X VALUE "*".
02 LINE 28.
03
COLUMN 45
PIC X VALUE "*".
03 COLUMN 55
PIC Z9
SOURCE UE-DAY.
03 COLUMN 57
PIC X
VALUE "-".
03 COLUMN 58
PIC 99
SOURCE UE-MONTH.
PIC X
VALUE "-".
03 COLUMN 61
PIC 9999
SOURCE UE-YEAR.
03 COLUMN 75
PIC X VALUE "*".
02 LINE 29.
03
COLUMN 45
PIC X VALUE "*".
03 COLUMN 75
PIC X VALUE "*".
02 LINE 30.
03
COLUMN 45
PIC X(31) VALUE "* Report EX1010 *".
02 LINE 31.
03
COLUMN 45
PIC X(31) VALUE "* Summary Report *".
(continued on next page)
10–76 Producing Printed Reports