Compaq COBOL AAQ2G1FTK - Manual (Page 374)

Producing Printed Reports
10.9 Report Writer Examples
Figure 10–18 (Cont.) EX1009.LIS Listing
CUSTOMER MASTER FILE REPORT PAGE 4
+--------------------------------------------------------------------------------------------------------------+
| NAME | ADDRESS | INVOICE |
|--------------------------------------------------------------------------------------------------------------|
| LAST | FIRST |MI| STREET | CITY |ST| ZIP | DATE | NUMBER| AMOUNT |
+--------------------------------------------------------------------------------------------------------------+
Carter Winston R 123 Timpany Street Brookline NH 03078 2-07-2000 000011 $23,416.76
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $23,416.76 *
***************************************
Cooper Frank J 300 Mohican Avenue Mohawk MA 01480 2-07-2000 000014 $34,167.80
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $34,167.80 *
***************************************
Dickens Arnold C 100 Bleak Street Gardner MA 01440 2-07-2000 000011 $12,341.67
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $12,341.67 *
***************************************
Dickinson Rose E 21 Depot Road Amherst MA 01423 2-07-2000 000019 $66,688.90
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $66,688.90 *
***************************************
Frost Alfred R 123 Amherst Street Merrimack NH 03060 2-07-2000 000020 $11,114.90
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $11,114.90 *
***************************************
Hemingway Joe E 10 Cuba Street Westminster MA 01473 2-07-2000 000013 $87,690.00
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $87,690.00 *
***************************************
Thoreaux Ralph H 800 Emerson Street Walden MA 01416 2-07-2000 000016 $6.00
C O M P A N Y C O N F I D E N T I A L
C O M P A N Y C O N F I D E N T I A L
CUSTOMER MASTER FILE REPORT PAGE 5
+--------------------------------------------------------------------------------------------------------------+
| NAME | ADDRESS | INVOICE |
|--------------------------------------------------------------------------------------------------------------|
| LAST | FIRST |MI| STREET | CITY |ST| ZIP | DATE | NUMBER| AMOUNT |
+--------------------------------------------------------------------------------------------------------------+
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $6.00 *
***************************************
Williams Samuel A 310 England Road Worcester MA 01400 2-07-2000 000017 $78,900.00
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $78,900.00 *
***************************************
******************************************
GRAND TOTAL RECORDS: 32 * GRAND TOTAL INVOICES: $732,927.86 *
******************************************
C O M P A N Y C O N F I D E N T I A L
C O M P A N Y C O N F I D E N T I A L
*******************************
* *
* Customer Master File *
* *
* 11-08-2000 *
* *
* End of Report EX1009 *
* *
*******************************
VM-0663B-AI
10.9.6 EX1010—Summary Report Program
Example 10–10 (EX1010) is a Report Writer program that uses the REPORT
HEADING, PAGE HEADING, DETAIL, CONTROL FOOTING, PAGE FOOTING,
and REPORT FOOTING report groups. The program produces a summary
report—EX1010.LIS (shown in Figure 10–19)—because the GENERATE
statement specifies a report name (MASTER-LIST) rather than a DETAIL
report group.
10–74 Producing Printed Reports