Compaq COBOL AAQ2G1FTK - Manual (Page 373)

Producing Printed Reports
10.9 Report Writer Examples
Figure 10–18 EX1009.LIS Listing
*******************************
* *
* Customer Master File *
* *
* 11-08-2000 *
* *
* GROUP INDICATE *
* Detail Report EX1009 *
* *
* *
*******************************
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 $10,000.90
12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $10,000.90
12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $10,000.90
12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $10,000.90
12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $10,000.90
12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $10,000.90
12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $10,000.90
***************************************
TOTAL RECORDS: 7 * INVOICE SUB TOTAL: $70,006.30 *
***************************************
Adam Harold B 980 Main Street Nashua NH 03102 2-06-2000 000002 $21,008.90
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $21,008.90 *
***************************************
Albert Robert S 100 Meadow Lane Gardner MA 01420 2-06-2000 000003 $61,009.00
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $61,009.00 *
***************************************
Alexander Greg T 317 Narrows Road Westminster MA 01473 2-06-2000 000004 $10,000.71
317 Narrows Road Westminster MA 01473 2-06-2000 000004 $10,000.71
317 Narrows Road Westminster MA 01473 2-06-2000 000004 $10,000.71
317 Narrows Road East Westminster MA 01473 2-06-2000 000004 $10,000.71
317 Narrows Road Westminster MA 01473 2-06-2000 000004 $10,000.71
317 Narrows Road East Westminster MA 01473 2-06-2000 000004 $10,000.71
***************************************
TOTAL RECORDS: 6 * INVOICE SUB TOTAL: $60,004.26 *
***************************************
Allan David L 10 Wonder Lane Merrimack NH 03014 2-06-2000 000001 $24,101.00
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $24,101.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 3
+--------------------------------------------------------------------------------------------------------------+
| NAME | ADDRESS | INVOICE |
|--------------------------------------------------------------------------------------------------------------|
| LAST | FIRST |MI| STREET | CITY |ST| ZIP | DATE | NUMBER| AMOUNT |
+--------------------------------------------------------------------------------------------------------------+
Alwin Tom F 400 High Street Princeton NJ 12341 3-07-2000 000008 $70,000.17
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $70,000.17 *
***************************************
Ames Alice J 40 Center Road Nashua NH 03060 2-07-2000 000007 $10,000.00
40 Center Road Nashua NH 03060 2-07-2000 000007 $10,000.00
40 Center Road Nashua NH 03060 2-07-2000 000007 $10,000.00
***************************************
TOTAL RECORDS: 3 * INVOICE SUB TOTAL: $30,000.00 *
***************************************
Amico Art A 31 Athens Road Nashua NH 03060 2-06-2000 000007 $12,340.70
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $12,340.70 *
***************************************
Amos James A 71 State Rd East Westminster MA 01473 2-06-2000 000006 $41,000.90
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $41,000.90 *
***************************************
Berger Tom H 700 McDonald Lane Merrimack NH 03060 2-06-2000 000010 $12,341.60
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $12,341.60 *
***************************************
Carroll Alice L 192 Lewis Road London NH 03416 2-07-2000 000012 $16,789.00
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $16,789.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 VM-0663A-AI
(continued on next page)
Producing Printed Reports 10–73