Compaq COBOL AAQ2G1FTK - Manual (Page 370)

Producing Printed Reports
10.9 Report Writer Examples
Example 10–9 (Cont.) Sample Program EX1009
02 LINE 59.
03
COLUMN 45
PIC X(16) VALUE "C O M P A N Y
".
03 COLUMN 62
PIC X(25) VALUE "C O N F I D E N T I A L ".
02 LINE 60.
03
COLUMN 45
PIC X(16) VALUE "C O M P A N Y
".
03 COLUMN 62
PIC X(25) VALUE "C O N F I D E N T I A L ".
NEXT GROUP IS PLUS 2.
02 LINE IS PLUS 2.
03
COLUMN 73
PIC X(39) VALUE ALL "*".
02 LINE IS PLUS 1.
03
COLUMN 20 PIC X(17) VALUE " TOTAL RECORDS: ".
03 IDC COLUMN 40 PIC ZZZ,ZZZ,ZZ9 SUM ONE-COUNT.
03 COLUMN 73 PIC X(22) VALUE "* INVOICE SUB TOTAL: ".
03 IIA COLUMN 96 PIC $$$,$$$,$$$.99- SUM INVOICE-SALES.
03 COLUMN 111 PIC X VALUE "*".
02 LINE IS PLUS 1.
03
COLUMN 73
PIC X(39) VALUE ALL "*".
NEXT GROUP NEXT PAGE.
02 LINE IS PLUS 2.
03
COLUMN 70
PIC X(42) VALUE ALL "*".
02 LINE IS PLUS 1.
03
COLUMN 14 PIC X(21) VALUE "GRAND TOTAL RECORDS: ".
03 FDC COLUMN 40 PIC ZZZ,ZZZ,ZZ9 SUM IDC.
03 COLUMN 70 PIC X(24) VALUE "* GRAND TOTAL INVOICES:".
03 FIA COLUMN 94 PIC $,$$$,$$$,$$$.99- SUM IIA.
03 COLUMN 111 PIC X VALUE "*".
02 LINE IS PLUS 1.
03
COLUMN 70
PIC X(42) VALUE ALL "*".
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–70 Producing Printed Reports