Compaq COBOL AAQ2G1FTK User Manual page 362

Producing Printed Reports
10.9 Report Writer Examples
Example 10–8 (Cont.) Sample Program EX1008
02 LINE 11.
03
03
03
01 DETAIL-LINE
TYPE DETAIL LINE IS 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
NEXT GROUP NEXT PAGE.
02 LINE IS PLUS 2.
03
02 LINE IS PLUS 1.
03
03 FIA COLUMN 94 PIC $,$$$,$$$,$$$.99- SUM INVOICE-SALES.
03
02 LINE IS PLUS 1.
03
01 REPORT-FOOTER TYPE IS REPORT FOOTING.
02 LINE 24 ON NEXT PAGE COLUMN 45
02 LINE 25.
03
03
02 LINE 26.
03
02 LINE 27.
03
03
10–62 Producing Printed Reports
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 SAVE-INVOICE-SALES.
COLUMN 70
PIC X(43) VALUE ALL "*".
COLUMN 70 PIC X(24) VALUE "* GRAND TOTAL INVOICES:".
COLUMN 111 PIC XXX VALUE " * ".
COLUMN 70
PIC X(43) VALUE ALL "*".
PIC X(31) VALUE ALL "*".
COLUMN 45
PIC X VALUE "*".
COLUMN 75
PIC X VALUE "*".
COLUMN 45
PIC X(31) VALUE "* Customer Master File
COLUMN 45
PIC X VALUE "*".
COLUMN 75
PIC X VALUE "*".
*".
(continued on next page)