Producing Printed Reports
10.9 Report Writer Examples
Figure 10–17 EX1008.LIS Listing
*******************************
* *
* Customer Master File *
* *
* 11-08-2000 *
* *
* Report EX1008 *
* Detail Report *
* *
* *
*******************************
CUSTOMER MASTER FILE REPORT PAGE 2
+--------------------------------------------------------------------------------------------------------------+
| NAME | ADDRESS | INVOICE |
|--------------------------------------------------------------------------------------------------------------|
| LAST | FIRST |MI| STREET | CITY |ST| ZIP | DATE | NUMBER| AMOUNT |
+--------------------------------------------------------------------------------------------------------------+
Abbott John B 12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $70,006.30
Adam Harold B 980 Main Street Nashua NH 03102 2-06-2000 000002 $21,008.90
Albert Robert S 100 Meadow Lane Gardner MA 01420 2-06-2000 000003 $61,009.00
Alexander Greg T 317 Narrows Road East Westminster MA 01473 2-06-2000 000004 $60,004.26
Allan David L 10 Wonder Lane Merrimack NH 03014 2-06-2000 000001 $24,101.00
Alwin Tom F 400 High Street Princeton NJ 12341 3-07-2000 000008 $70,000.17
Ames Alice J 40 Center Road Nashua NH 03060 2-07-2000 000007 $30,000.00
Amico Art A 31 Athens Road Nashua NH 03060 2-06-2000 000007 $12,340.70
Amos James A 71 State Rd East Westminster MA 01473 2-06-2000 000006 $41,000.90
Berger Tom H 700 McDonald Lane Merrimack NH 03060 2-06-2000 000010 $12,341.60
Carroll Alice L 192 Lewis Road London NH 03416 2-07-2000 000012 $16,789.00
Carter Winston R 123 Timpany Street Brookline NH 03078 2-07-2000 000011 $23,416.76
Cooper Frank J 300 Mohican Avenue Mohawk MA 01480 2-07-2000 000014 $34,167.80
Dickens Arnold C 100 Bleak Street Gardner MA 01440 2-07-2000 000011 $12,341.67
Dickinson Rose E 21 Depot Road Amherst MA 01423 2-07-2000 000019 $66,688.90
Frost Alfred R 123 Amherst Street Merrimack NH 03060 2-07-2000 000020 $11,114.90
Hemingway Joe E 10 Cuba Street Westminster MA 01473 2-07-2000 000013 $87,690.00
Thoreaux Ralph H 800 Emerson Street Walden MA 01416 2-07-2000 000016 $6.00
Williams Samuel A 310 England Road Worcester MA 01400 2-07-2000 000017 $78,900.00
*******************************************
* GRAND TOTAL INVOICES: $732,927.86 *
*******************************************
*******************************
* *
* Customer Master File *
* *
* 11-08-2000 *
* *
* End of Report EX1008 *
* *
******************************* VM-0662A-AI
10.9.5 EX1009—Detail Report Program
Example 10–9 (EX1009) is a Report Writer program that uses the REPORT
HEADING, PAGE HEADING, DETAIL,PAGE FOOTING, CONTROL FOOTING,
and REPORT FOOTING report groups. The program also uses the TYPE
DETAIL clause—GROUP INDICATE.The program produces a detail report—
EX1009.LIS (shown in Figure 10–18).
Example 10–9 Sample Program EX1009
IDENTIFICATION DIVISION.
PROGRAM-ID. EX1009.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT CUSTOMER-FILE ASSIGN TO "MASTER.DAT".
SELECT SORT-FILE ASSIGN TO "EX1009-SORTIN.TMP".
SELECT SORTED-FILE ASSIGN TO "EX1009-SORTOUT.TMP".
SELECT PRINTER-FILE ASSIGN TO "EX1009.LIS".
(continued on next page)
Producing Printed Reports 10–65