Ex1010-Summary Report Program - Compaq COBOL AAQ2G1FTK User Manual

Producing Printed Reports
10.9 Report Writer Examples
Figure 10–18 (Cont.) EX1009.LIS Listing
CUSTOMER MASTER FILE REPORT
+--------------------------------------------------------------------------------------------------------------+
| NAME |
|--------------------------------------------------------------------------------------------------------------|
| LAST | FIRST |MI|
+--------------------------------------------------------------------------------------------------------------+
Carter Winston R 123 Timpany Street
TOTAL RECORDS:
Cooper Frank J 300 Mohican Avenue
TOTAL RECORDS:
Dickens Arnold C 100 Bleak Street
TOTAL RECORDS:
Dickinson Rose E 21 Depot Road
TOTAL RECORDS:
Frost Alfred R 123 Amherst Street
TOTAL RECORDS:
Hemingway Joe E 10 Cuba Street
TOTAL RECORDS:
Thoreaux Ralph H 800 Emerson Street
CUSTOMER MASTER FILE REPORT
+--------------------------------------------------------------------------------------------------------------+
| NAME |
|--------------------------------------------------------------------------------------------------------------|
| LAST | FIRST |MI|
+--------------------------------------------------------------------------------------------------------------+
TOTAL RECORDS:
Williams Samuel A 310 England Road
TOTAL RECORDS:
GRAND TOTAL RECORDS:
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
ADDRESS
STREET | CITY
Brookline
1
Mohawk
1
Gardner
1
Amherst
1
Merrimack
1
Westminster
1
Walden
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
ADDRESS
STREET | CITY
1
Worcester
1
32
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
*
*******************************
| INVOICE
|ST| ZIP | DATE | NUMBER| AMOUNT
NH 03078 2-07-2000 000011 $23,416.76
***************************************
* INVOICE SUB TOTAL: $23,416.76 *
***************************************
MA 01480 2-07-2000 000014 $34,167.80
***************************************
* INVOICE SUB TOTAL: $34,167.80 *
***************************************
MA 01440 2-07-2000 000011 $12,341.67
***************************************
* INVOICE SUB TOTAL: $12,341.67 *
***************************************
MA 01423 2-07-2000 000019 $66,688.90
***************************************
* INVOICE SUB TOTAL: $66,688.90 *
***************************************
NH 03060 2-07-2000 000020 $11,114.90
***************************************
* INVOICE SUB TOTAL: $11,114.90 *
***************************************
MA 01473 2-07-2000 000013 $87,690.00
***************************************
* INVOICE SUB TOTAL: $87,690.00 *
***************************************
MA 01416 2-07-2000 000016
| INVOICE
|ST| ZIP | DATE | NUMBER| AMOUNT
***************************************
* INVOICE SUB TOTAL:
***************************************
MA 01400 2-07-2000 000017 $78,900.00
***************************************
* INVOICE SUB TOTAL: $78,900.00 *
***************************************
******************************************
* GRAND TOTAL INVOICES: $732,927.86 *
******************************************
*
*
*
*
*
*
*
VM-0663B-AI
PAGE 4
|
|
$6.00
PAGE 5
|
|
$6.00 *