Compaq COBOL AAQ2G1FTK User Manual
Page 360
Producing Printed Reports
10.9 Report Writer Examples
Example 10–8 (Cont.) Sample Program EX1008
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 EX1008
*".
02
LINE 31.
03
COLUMN
45
PIC X(31) VALUE "*
Detail Report
*".
02
LINE 32.
03
COLUMN
45
PIC X VALUE "*".
03
COLUMN 75
PIC X VALUE "*".
03
COLUMN
45
PIC X VALUE "*".
03
COLUMN 75
PIC X VALUE "*".
02
LINE 34.
03
COLUMN
45
PIC X(31) VALUE ALL "*".
01
TYPE IS PAGE HEADING.
02
LINE
5.
03
COLUMN 1
PIC X(27) VALUE "CUSTOMER MASTER FILE REPORT".
03
COLUMN 105
PIC X(4)
VALUE "PAGE".
03
COLUMN 109
PIC ZZZ9
SOURCE PAGE-COUNTER.
02
LINE
7.
03
COLUMN
1
PIC X VALUE "+".
03
COLUMN 2
PIC X(110) VALUE ALL "-".
03
COLUMN 112
PIC X VALUE "+".
02
LINE
8.
03
COLUMN
1
PIC X VALUE "|".
03
COLUMN 10
PIC X(4) VALUE "NAME".
03
COLUMN
29
PIC X VALUE "|".
03
COLUMN 43
PIC X(7) VALUE "ADDRESS".
03
COLUMN
81
PIC X VALUE "|".
03
COLUMN
91
PIC X(7) VALUE "INVOICE".
03
COLUMN 112
PIC X VALUE "|".
(continued on next page)
10–60 Producing Printed Reports