Compaq COBOL AAQ2G1FTK - Manual (Page 381)

Producing Printed Reports
10.9 Report Writer Examples
Figure 10–19 EX1010.LIS Listing
*******************************
* *
* Customer Master File *
* *
* 11-08-2000 *
* *
* Report EX1010 *
* Summary Report *
* *
* *
*******************************
CUSTOMER MASTER FILE REPORT PAGE 2
+--------------------------------------------------------------------------------------------------------------+
| NAME | ADDRESS | INVOICE |
|--------------------------------------------------------------------------------------------------------------|
| LAST | FIRST |MI| STREET | CITY |ST| ZIP | DATE | NUMBER| AMOUNT |
+--------------------------------------------------------------------------------------------------------------+
***************************************
TOTAL RECORDS: 7 * INVOICE SUB TOTAL: $70,006.30 *
***************************************
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $21,008.90 *
***************************************
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $61,009.00 *
***************************************
***************************************
TOTAL RECORDS: 6 * INVOICE SUB TOTAL: $60,004.26 *
***************************************
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $24,101.00 *
***************************************
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $70,000.17 *
***************************************
***************************************
TOTAL RECORDS: 3 * INVOICE SUB TOTAL: $30,000.00 *
***************************************
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $12,340.70 *
***************************************
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 |
+--------------------------------------------------------------------------------------------------------------+
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $41,000.90 *
***************************************
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $12,341.60 *
***************************************
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $16,789.00 *
***************************************
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $23,416.76 *
***************************************
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $34,167.80 *
***************************************
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $12,341.67 *
***************************************
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $66,688.90 *
***************************************
***************************************
TOTAL RECORDS: 1 * INVOICE SUB TOTAL: $11,114.90 *
***************************************
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-0664A-AI
(continued on next page)
Producing Printed Reports 10–81