Optimizing YourCompaq 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 YourCompaq COBOL Program