Filter
Top Products
Producing Printed Reports
10.6 Programming a Linage-File Compaq COBOL Report
Figure 10–7 A 28-Line Logical Page
P
P
P
P
P
P
P
FP
FP
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
VM-0324A-AI
Date: 99-XXX-99
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
X
X
X
X
X
One purchase per line
Column
Line
P
P
P
P
P
P
P
6
7
8
9
10
11
1
2
3
4
5
12345678901234567890123456789012345678901234567890123456789012
123456
Legend: T = Top margin
P = Page body
F = Footing area
B = Bottom margin
= lines 01-26
= lines 25-26
= lines 27-28
= none
P
P
P
16
17
18
19
20
12
13
14
15
B
B
24
25
26
27
28
21
22
23
P
P
P
P
P
P
P
------------------------------------------------------------
Name: XXXXXXXXXXX X XXXXXXXXXXXXXX
Address: XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Date: Amount Description
XYZ Clothing Store
STATEMENT OF ACCOUNT
Page: 999999999
Account Number: 999999999
X
X
X
X
X
X
X
X
X
X
FP
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
Example 10–4 Checking for End-of-Page on a 28-Line Logical Page
IDENTIFICATION DIVISION.
PROGRAM-ID. REPOVF.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE ASSIGN TO "INPUT.DAT".
SELECT REPORT-FILE ASSIGN TO "REPORT.DAT".
(continued on next page)
10–16 Producing Printed Reports