Compaq COBOL AAQ2G1FTK User Manual
Page 369
Producing Printed Reports
10.9 Report Writer Examples
Example 10–9 (Cont.) Sample Program EX1009
PIC X(6) VALUE "STREET".
03
COLUMN 48
PIC X VALUE "|".
03
COLUMN 52
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".
PIC X VALUE "|".
03
COLUMN
92
PIC X(6) VALUE "NUMBER".
03
COLUMN 98
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 "+".
TYPE DETAIL
LINE PLUS 1.
02 COLUMN 1
PIC X(15) SOURCE LAST-NAME
GROUP INDICATE.
02 COLUMN 17
PIC X(10) SOURCE FIRST-NAME
GROUP INDICATE.
02 COLUMN 28
PIC XX
SOURCE MIDDLE-INIT
GROUP INDICATE.
02 COLUMN 30
PIC X(20) SOURCE ADDRESS.
02 COLUMN 51
PIC X(20) SOURCE CITY.
02 COLUMN 72
PIC XX
SOURCE STATE.
02 COLUMN 75
PIC 99999 SOURCE ZIP.
02 COLUMN 81
PIC Z9
SOURCE INV-DAY.
02 COLUMN 83
PIC X
VALUE "-".
02 COLUMN 84
PIC 99
SOURCE INV-MO.
02 COLUMN 86
PIC X
VALUE "-".
02 COLUMN 87
PIC 9999
SOURCE INV-YR.
02 COLUMN 92
PIC 9(6)
SOURCE INVOICE-NUMBER.
02 COLUMN 99
PIC $$$,$$$,$$$.99-
SOURCE INVOICE-SALES.
02 DETAIL-COUNT PIC S9(10) SOURCE ONE-COUNT.
02 INV-AMOUNT
PIC S9(9)V99 SOURCE INVOICE-SALES.
(continued on next page)
Producing Printed Reports 10–69