Compaq COBOL AAQ2G1FTK, Руководство пользователя

Страница: 357 / 620

Producing Printed Reports
10.9 Report Writer Examples
Figure 10–16 (Cont.) EX1007.LIS Listing
CUSTOMER MASTER FILE REPORT PAGE 4
+--------------------------------------------------------------------------------------------------------------+
| NAME | ADDRESS | INVOICE |
|--------------------------------------------------------------------------------------------------------------|
| LAST | FIRST |MI| STREET | CITY |ST| ZIP | DATE | NUMBER| AMOUNT |
+--------------------------------------------------------------------------------------------------------------+
Amos James A 71 State Rd East Westminster MA 01473 2-06-2000 000006 $41,000.90
*****************************************
TOTAL RECORDS: 1 $41,000.90
*****************************************
Berger Tom H 700 McDonald Lane Merrimack NH 03060 2-06-2000 000010 $12,341.60
*****************************************
TOTAL RECORDS: 1 $12,341.60
*****************************************
Carroll Alice L 192 Lewis Road London NH 03416 2-07-2000 000012 $16,789.00
*****************************************
TOTAL RECORDS: 1 $16,789.00
Carter Winston R 123 Timpany Street Brookline NH 03078 2-07-2000 000011 $23,416.76
*****************************************
TOTAL RECORDS: 1 $23,416.76
*****************************************
Cooper Frank J 300 Mohican Avenue Mohawk MA 01480 2-07-2000 000014 $34,167.80
*****************************************
TOTAL RECORDS: 1 $34,167.80
*****************************************
Dickens Arnold C 100 Bleak Street Gardner MA 01440 2-07-2000 000011 $12,341.67
CUSTOMER MASTER FILE REPORT PAGE 5
+--------------------------------------------------------------------------------------------------------------+
| NAME | ADDRESS | INVOICE |
|--------------------------------------------------------------------------------------------------------------|
| LAST | FIRST |MI| STREET | CITY |ST| ZIP | DATE | NUMBER| AMOUNT |
+--------------------------------------------------------------------------------------------------------------+
*****************************************
TOTAL RECORDS: 1 $12,341.67
*****************************************
Dickinson Rose E 21 Depot Road Amherst MA 01423 2-07-2000 000019 $66,688.90
*****************************************
TOTAL RECORDS: 1 $66,688.90
*****************************************
Frost Alfred R 123 Amherst Street Merrimack NH 03060 2-07-2000 000020 $11,114.90
*****************************************
TOTAL RECORDS: 1 $11,114.90
*****************************************
Hemingway Joe E 10 Cuba Street Westminster MA 01473 2-07-2000 000013 $87,690.00
*****************************************
TOTAL RECORDS: 1 $87,690.00
*****************************************
Thoreaux Ralph H 800 Emerson Street Walden MA 01416 2-07-2000 000016 $6.00
*****************************************
TOTAL RECORDS: 1 $6.00
*****************************************
Williams Samuel A 310 England Road Worcester MA 01400 2-07-2000 000017 $78,900.00
*****************************************
TOTAL RECORDS: 1 $78,900.00
*****************************************
CUSTOMER MASTER FILE REPORT PAGE 6
+--------------------------------------------------------------------------------------------------------------+
| NAME | ADDRESS | INVOICE |
|--------------------------------------------------------------------------------------------------------------|
| LAST | FIRST |MI| STREET | CITY |ST| ZIP | DATE | NUMBER| AMOUNT |
+--------------------------------------------------------------------------------------------------------------+
*****************************************
GRAND TOTAL RECORDS: 32 GRAND TOTAL INVOICES: $732,927.86
*****************************************
*******************************
* *
* Customer Master File *
* *
* 11-08-2000 *
* *
* End of EX1007.LIS *
* *
*******************************
VM-0661B-AI
10.9.4 EX1008—Detail Report Program
Example 10–8 (EX1008) is a Report Writer program that uses the REPORT
HEADING, PAGE HEADING, DETAIL, CONTROL FOOTING, and REPORT
FOOTING report groups and produces a detail report—EX1008.LIS (shown in
Figure 10–17).
Producing Printed Reports 10–57