Ex1006-Detail Report Program; Sample Master.dat File - Compaq COBOL AAQ2G1FTK User Manual

Producing Printed Reports
10.9 Report Writer Examples
Figure 10–14 Sample MASTER.DAT File
Abbott
Adam
Albert
Alexander
Abbott
Allan
Amos
Amico
Abbott
Ames
Alwin
Alexander
Berger
Abbott
Ames
Carter
Alexander
Carroll
Abbott
Hemingway
Cooper
Alexander
Dickens
Thoreaux
Abbott
Williams
Alexander
Ames
Dickinson
Frost
Alexander
Abbott
10.9.2 EX1006—Detail Report Program
EX1006 uses the PAGE HEADING, DETAIL, and CONTROL FOOTING report
groups and produces a detail report—EX1006.LIS.
To get EX1006.LIS, you use the following commands:
On OpenVMS
$ COBOL EX1006
$ LINK EX1006
$ RUN EX1006
$ PRINT/NOFEED EX1006.LIS
Note that the case of the command parameters is insignificant in the preceding
command example.
On Tru64 UNIX
% cobol ex1006.cob
% a.out
% lpr EX1006.LIS
Note that the case of the file name, EX1006.LIS, is significant in the preceding
command example, because the file specification in the ASSIGN statement in
Example 10–6 was given in upper case. The program (EX1006) in Example 10–6
produces the output shown in Figure 10–15 (EX1006.LIS).
10–44 Producing Printed Reports
John B12 Pleasant Street
Harold B980 Main Street
Robert S100 Meadow Lane
Greg T317 Narrows Road
John B12 Pleasant Street
David L10 Wonder Lane
James A71 State Rd
Art A31 Athens Road
John B12 Pleasant Street
Alice J40 Center Road
Tom F400 High Street
Greg T317 Narrows Road
Tom H700 McDonald Lane
John B12 Pleasant Street
Alice J40 Center Road
Winston R123 Timpany Street
Greg T317 Narrows Road
Alice L192 Lewis Road
John B12 Pleasant Street
Joe E10 Cuba Street
Frank J300 Mohican Avenue
Greg T317 Narrows Road
Arnold C100 Bleak Street
Ralph H800 Emerson Street
John B12 Pleasant Street
Samuel A310 England Road
Greg T317 Narrows Road
Alice J40 Center Road
Rose E21 Depot Road
Alfred R123 Amherst Street
Greg T317 Narrows Road
John B12 Pleasant Street
Nashua NH0310212340000001100009007012000
Nashua NH0310223410000002210089002062000
Gardner MA0142012340000003610090002062000
Westminster MA0147334160000004100007102062000
Nashua NH0310212340000001100009007012000
Merrimack NH0301467800000001241010002062000
East Westminster MA0147312341000006410009002062000
Nashua NH0306089000000007123407002062000
Nashua NH0310212340000001100009007012000
Nashua NH0306078900000007100000002072000
Princeton NJ1234112341000008700001703072000
Westminster MA0147334160000004100007102062000
Merrimack NH0306012341000010123416002062000
Nashua NH0310212340000001100009007012000
Nashua NH0306078900000007100000002072000
Brookline NH0307823416000011234167602072000
Westminster MA0147334160000004100007102062000
London NH0341611117000012167890002072000
Nashua NH0310212340000001100009007012000
Westminster MA0147312341000013876900002072000
Mohawk MA0148034167000014341678002072000
East Westminster MA0147334160000004100007102062000
Gardner MA0144090000000011123416702072000
Walden MA0141641678000016000060002072000
Nashua NH0310212340000001100009007012000
Worcester MA0140012341000017789000002072000
Westminster MA0147334160000004100007102062000
Nashua NH0306078900000007100000002072000
Amherst MA0142341678000019666889002072000
Merrimack NH0306012341000020111149002072000
East Westminster MA0147334160000004100007102062000
Nashua NH0310212340000001100009007012000
VM-0659A-AI