Compaq COBOL AAQ2G1FTK User Manual page 346

Producing Printed Reports
10.9 Report Writer Examples
Example 10–6 (Cont.) Sample Program EX1006
REPORT SECTION.
RD MASTER-LIST
PAGE LIMIT IS 66
HEADING 1
FIRST DETAIL 13
LAST DETAIL 55
CONTROL IS FINAL.
01 TYPE IS PAGE HEADING.
02 LINE 5.
03
03
03
03
03
03
02 LINE 8.
03
03
03
03
03
03
03
03
03
03
02 LINE 10.
03
03
03
03
03
10–46 Producing Printed Reports
COLUMN 1
PIC X(27) VALUE "CUSTOMER MASTER FILE REPORT".
COLUMN 105
PIC X(4) VALUE "PAGE".
COLUMN 109
PIC ZZZ9
SOURCE PAGE-COUNTER.
COLUMN 1
PIC X VALUE "+".
COLUMN 2
PIC X(110) VALUE ALL "-".
COLUMN 112
PIC X VALUE "+".
COLUMN 1
PIC X VALUE "|".
COLUMN 10
PIC X(4) VALUE "NAME".
COLUMN 29
PIC X VALUE "|".
COLUMN 43
PIC X(7) VALUE "ADDRESS".
COLUMN 81
PIC X VALUE "|".
COLUMN 91
PIC X(7) VALUE "INVOICE".
COLUMN 112
PIC X VALUE "|".
COLUMN 1
PIC X VALUE "|".
COLUMN 2
PIC X(110) VALUE ALL "-".
COLUMN 112
PIC X VALUE "|".
COLUMN 1
PIC X(6) VALUE "| LAST".
COLUMN 16
PIC X(7) VALUE "| FIRST".
COLUMN 26
PIC X(4) VALUE "|MI|".
COLUMN 35
PIC X(6) VALUE "STREET".
COLUMN 48
PIC X VALUE "|".
(continued on next page)