Compaq COBOL AAQ2G1FTK - Manual (Page 365)

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