Programming A Linage-File Compaq Cobol Report; A Double-Spaced Master Listing - Compaq COBOL AAQ2G1FTK User Manual

Producing Printed Reports
10.5 Programming a Conventional File Report
The second report, Figure 10–5, is a double-spaced master listing of all input
records. While this report's logical page is identical to the default logical page
for the system (in this case, 66 vertical lines and 132 horizontal characters), this
report uses only the first 55 lines on the page. Both reports are output to a disk
for later printing.
Figure 10–5 A Double-Spaced Master Listing
Harold AHuit
Mary QJewitt
George DCarport
Catherine FBallet
Amanda DModel
Robert RLumber

10.6 Programming a Linage-File Compaq COBOL Report

A linage-file report has sequential organization and access mode, and consists of
one or more logical pages. A Compaq COBOL program that produces a linage-file
report uses the LINAGE and LINAGE-COUNTER capabilities in addition to the
facilities used for conventional reports.
In contrast to the conventional COBOL report, you can use the LINAGE clause to
do the following:
• Define the number of lines on the logical page.
• Divide the logical page into sections.
Additionally, a linage-file report has a LINAGE-COUNTER special register
assigned to it that monitors the number of lines written to the current logical
page.
To program a linage report, you should understand how to do the following:
• Define the logical page with the LINAGE clause.
• Use the LINAGE-COUNTER special register.
• Advance to the next logical page.
• Program for the page-overflow condition.
On OpenVMS Alpha, the linage file contains variable length with fixed control
records. All advancing information is encoded in the fixed control portion of the
record.
10–12 Producing Printed Reports
PERSONNEL MASTER LISTING
**** COMPANY CONFIDENTIAL ****
1234 Main Street
18673 S. 126 Avenue Kreosote
990 North St., Apt 3 Waymouth
2244 Maple St
Pease AFB
2 Wayne St.
Page 1
Southbend VT12345
NB87655
AL00001
Laconia NH03456
Portsmouth VT24567
Ackensack NJ56243
ZK−6083−GE