A SERVICE OF

logo

Optimizing Your Compaq COBOL Program
15.6 I/O Operations
Figure 151 Sharing Record Areas
Program Without Shared
Record Area
MOVE INPREC TO OUTREC.
SAME RECORD AREA FOR
.
INPFILE OUTFILE.
.
.
IOCONTROL.
ZK1539GE
.
PROCEDURE DIVISION.
.
.
.
Program with Shared
Record Area
Process Without Shared Areas Process with Shared Areas
.
.
.
PROCEDURE DIVISION.
.
.
.
.
READ INPFILE ... READ INPFILE ...
.
WRITE OUTREC ... WRITE OUTREC ...
INPFILE buffer
READ
(move)
INPREC
MOVE
OUTREC
WRITE
(move)
OUTFILE buffer
READ
(move)
INPREC
OUTREC
WRITE
(move)
1514 Optimizing Your Compaq COBOL Program