Compaq COBOL AAQ2G1FTK User Manual page 350

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