Compaq COBOL AAQ2G1FTK - Manual (Page 504)

Optimizing Your Compaq COBOL Program
15.6 I/O Operations
Figure 15–1 Sharing Record Areas
Program Without Shared
Record Area
MOVE INP−REC TO OUT−REC.
SAME RECORD AREA FOR
.
INP−FILE OUT−FILE.
.
.
I−O−CONTROL.
ZK−1539−GE
.
PROCEDURE DIVISION.
.
.
.
Program with Shared
Record Area
Process Without Shared Areas Process with Shared Areas
.
.
.
PROCEDURE DIVISION.
.
.
.
.
READ INP−FILE ... READ INP−FILE ...
.
WRITE OUT−REC ... WRITE OUT−REC ...
INP−FILE buffer
READ
(move)
INP−REC
MOVE
OUT−REC
WRITE
(move)
OUT−FILE buffer
READ
(move)
INP−REC
OUT−REC
WRITE
(move)
15–14 Optimizing Your Compaq COBOL Program