Compaq COBOL AAQ2G1FTK - Manual (Page 356)

Producing Printed Reports
10.9 Report Writer Examples
Figure 10–16 EX1007.LIS Listing
*******************************
* *
* Customer Master File *
* *
* 11-08-2000 *
* *
* Report EX1007 *
* 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 $10,000.90
Abbott John B 12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $10,000.90
Abbott John B 12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $10,000.90
Abbott John B 12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $10,000.90
Abbott John B 12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $10,000.90
Abbott John B 12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $10,000.90
Abbott John B 12 Pleasant Street Nashua NH 03102 7-01-2000 000001 $10,000.90
*****************************************
TOTAL RECORDS: 7 $70,006.30
*****************************************
Adam Harold B 980 Main Street Nashua NH 03102 2-06-2000 000002 $21,008.90
*****************************************
TOTAL RECORDS: 1 $21,008.90
*****************************************
Albert Robert S 100 Meadow Lane Gardner MA 01420 2-06-2000 000003 $61,009.00
*****************************************
TOTAL RECORDS: 1 $61,009.00
*****************************************
Alexander Greg T 317 Narrows Road Westminster MA 01473 2-06-2000 000004 $10,000.71
Alexander Greg T 317 Narrows Road Westminster MA 01473 2-06-2000 000004 $10,000.71
Alexander Greg T 317 Narrows Road Westminster MA 01473 2-06-2000 000004 $10,000.71
Alexander Greg T 317 Narrows Road East Westminster MA 01473 2-06-2000 000004 $10,000.71
CUSTOMER MASTER FILE REPORT PAGE 3
+--------------------------------------------------------------------------------------------------------------+
| NAME | ADDRESS | INVOICE |
|--------------------------------------------------------------------------------------------------------------|
| LAST | FIRST |MI| STREET | CITY |ST| ZIP | DATE | NUMBER| AMOUNT |
+--------------------------------------------------------------------------------------------------------------+
Alexander Greg T 317 Narrows Road Westminster MA 01473 2-06-2000 000004 $10,000.71
Alexander Greg T 317 Narrows Road East Westminster MA 01473 2-06-2000 000004 $10,000.71
*****************************************
TOTAL RECORDS: 6 $60,004.26
*****************************************
Allan David L 10 Wonder Lane Merrimack NH 03014 2-06-2000 000001 $24,101.00
*****************************************
TOTAL RECORDS: 1 $24,101.00
*****************************************
Alwin Tom F 400 High Street Princeton NJ 12341 3-07-2000 000008 $70,000.17
*****************************************
TOTAL RECORDS: 1 $70,000.17
*****************************************
Ames Alice J 40 Center Road Nashua NH 03060 2-07-2000 000007 $10,000.00
Ames Alice J 40 Center Road Nashua NH 03060 2-07-2000 000007 $10,000.00
Ames Alice J 40 Center Road Nashua NH 03060 2-07-2000 000007 $10,000.00
*****************************************
TOTAL RECORDS: 3 $30,000.00
*****************************************
Amico Art A 31 Athens Road Nashua NH 03060 2-06-2000 000007 $12,340.70
*****************************************
TOTAL RECORDS: 1 $12,340.70
*****************************************
VM-0661A-AI
(continued on next page)
10–56 Producing Printed Reports