Compaq COBOL AAQ2G1FTK User Manual page 352

Producing Printed Reports
10.9 Report Writer Examples
Example 10–7 (Cont.) Sample Program EX1007
03
03
03
02 LINE 10.
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
02
10–52 Producing Printed Reports
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 "|".
PIC X(4) VALUE "CITY".
COLUMN 71
PIC X VALUE "|".
COLUMN 72
PIC X(2) VALUE "ST".
COLUMN 74
PIC X VALUE "|".
COLUMN 76
PIC X(3) VALUE "ZIP".
COLUMN 81
PIC X VALUE "|".
COLUMN 83
PIC X(4) VALUE "DATE".
COLUMN 90
PIC X VALUE "|".
COLUMN 92
PIC X(6) VALUE "NUMBER".
PIC X VALUE "|".
COLUMN 103
PIC X(6) VALUE "AMOUNT".
COLUMN 112
PIC X VALUE "|".
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)