Checking For End-Of-Page On A 28-Line Logical Page; A 28-Line Logical Page - Compaq COBOL AAQ2G1FTK User Manual

Producing Printed Reports
10.6 Programming a Linage-File Compaq COBOL Report
Figure 10–7 A 28-Line Logical Page
Column
Line
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 FP
26 FP FP
27
28
Legend: T = Top margin
P = Page body
F = Footing area
B = Bottom margin
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".
10–16 Producing Printed Reports
1
12345678901234567890123456789012345678901234567890123456789012
P XYZ Clothing Store
P STATEMENT OF ACCOUNT
P
P Name: XXXXXXXXXXX X XXXXXXXXXXXXXX
P Address: XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
P Date: Amount
------------------------------------------------------------
P
P XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
P X
P X
P X
P X
P X
X
P
P X
P X
P X
P X
P X
P X
P X
P X
P X
P X
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
B
B
= none
= lines 01-26
= lines 25-26
= lines 27-28
2 3 4
Account Number: 999999999
Description
One purchase per line
5 6
Page: 999999999
Date: 99-XXX-99
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
VM-0324A-AI
(continued on next page)