Compaq COBOL AAQ2G1FTK User Manual
Page 352
Producing Printed Reports
10.9 Report Writer Examples
Example 10–7 (Cont.) Sample Program EX1007
03
COLUMN
1
PIC X VALUE "|".
03
COLUMN 2
PIC X(110) VALUE ALL "-".
03
COLUMN 112
PIC X VALUE "|".
02
LINE
10.
03
COLUMN
1
PIC X(6) VALUE "| LAST".
03
COLUMN 16
PIC X(7) VALUE "| FIRST".
03
COLUMN 26
PIC X(4) VALUE "|MI|".
03
COLUMN
35
PIC X(6) VALUE "STREET".
03
COLUMN 48
PIC X VALUE "|".
PIC X(4) VALUE "CITY".
03
COLUMN
71
PIC X VALUE "|".
03
COLUMN 72
PIC X(2) VALUE "ST".
03
COLUMN 74
PIC X VALUE "|".
03
COLUMN 76
PIC X(3) VALUE "ZIP".
03
COLUMN 81
PIC X VALUE "|".
03
COLUMN 83
PIC X(4) VALUE "DATE".
03
COLUMN 90
PIC X VALUE "|".
03
COLUMN
92
PIC X(6) VALUE "NUMBER".
PIC X VALUE "|".
03
COLUMN 103
PIC X(6) VALUE "AMOUNT".
03
COLUMN 112
PIC X VALUE "|".
02
LINE
11.
03
COLUMN 1
PIC X VALUE "+".
03
COLUMN 2
PIC X(110) VALUE ALL "-".
03
COLUMN 112
PIC X VALUE "+".
(continued on next page)
10–52 Producing Printed Reports