Compaq COBOL AAQ2G1FTK User Manual page 353

Example 10–7 (Cont.) Sample Program EX1007
TYPE DETAIL
LINE PLUS 2.
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
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 IIA COLUMN 99 PIC $$$,$$$,$$$.99- SUM INVOICE-SALES.
02 LINE IS PLUS 1.
03
01 FINAL-FOOTING TYPE IS CONTROL FOOTING FINAL
NEXT GROUP NEXT PAGE.
02 LINE IS PLUS 2.
03
03
03 FDC COLUMN 40 PIC ZZZ,ZZZ,ZZ9 SUM IDC.
03
03 FIA COLUMN 95 PIC $,$$$,$$$,$$$.99- SUM IIA.
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
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 72
PIC X(41) VALUE ALL "*".
COLUMN 20 PIC X(17) VALUE " TOTAL RECORDS: ".
COLUMN 72
PIC X(41) VALUE ALL "*".
COLUMN 72
PIC X(41) VALUE ALL "*".
COLUMN 14 PIC X(21) VALUE "GRAND TOTAL RECORDS: ".
COLUMN 72 PIC X(22) VALUE " GRAND TOTAL INVOICES:".
COLUMN 72
PIC X(41) 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
Producing Printed Reports
10.9 Report Writer Examples
*".
(continued on next page)
Producing Printed Reports 10–53