Compaq COBOL AAQ2G1FTK User Manual page 347

Example 10–6 (Cont.) Sample Program EX1006
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
01 FINAL-FOOTING TYPE IS CONTROL FOOTING FINAL
02
02 FDC COLUMN 40 PIC ZZZ,ZZZ,ZZ9 SUM ONE-COUNT.
02
02 FIA COLUMN 95 PIC $$$,$$$,$$$,$$$.99- SUM INVOICE-SALES.
PIC X(4) VALUE "CITY".
COLUMN 71
PIC X VALUE "|".
COLUMN 72
PIC X(2) VALUE "ST".
COLUMN 74
PIC X VALUE "|".
COLUMN 81
PIC X VALUE "|".
COLUMN 83
PIC X(4) VALUE "DATE".
COLUMN 90
PIC X VALUE "|".
COLUMN 92
PIC X(6) VALUE "NUMBER".
COLUMN 98
PIC X VALUE "|".
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-
PIC S9(9)V99 SOURCE INVOICE-SALES.
LINE PLUS 5
NEXT GROUP NEXT PAGE.
COLUMN 20 PIC X(17) VALUE "TOTAL RECORDS: ".
COLUMN 75 PIC X(15) VALUE "TOTAL SALES: ".
Producing Printed Reports
10.9 Report Writer Examples
(continued on next page)
Producing Printed Reports 10–47