Compaq COBOL AAQ2G1FTK User Manual page 378

Producing Printed Reports
10.9 Report Writer Examples
Example 10–10 (Cont.) Sample Program EX1010
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 TYPE IS CONTROL FOOTING NAME
NEXT GROUP IS PLUS 2.
02 LINE IS PLUS 2.
03
02 LINE IS PLUS 1.
03
03 IDC COLUMN 40 PIC ZZZ,ZZZ,ZZ9 SUM ONE-COUNT.
03
03 IIA COLUMN 96 PIC $$$,$$$,$$$.99- SUM INVOICE-SALES.
03
02 LINE IS PLUS 1.
03
10–78 Producing Printed Reports
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".
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-
SOURCE INVOICE-SALES.
PIC S9(9)V99 SOURCE INVOICE-SALES.
COLUMN 73
PIC X(39) VALUE ALL "*".
COLUMN 20 PIC X(17) VALUE " TOTAL RECORDS: ".
COLUMN 73 PIC X(22) VALUE "* INVOICE SUB TOTAL: ".
COLUMN 111 PIC X VALUE "*".
COLUMN 73
PIC X(39) VALUE ALL "*".
GROUP INDICATE.
GROUP INDICATE.
GROUP INDICATE.
(continued on next page)