Compaq COBOL AAQ2G1FTK - Manual (Page 362)

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