Compaq COBOL AAQ2G1FTK User Manual page 369

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