program-one.
FD important-file.
01 file-record.
COPY record-layout.
DATA DIVISION.
01 memory-record.
COPY record-layout.
PROCEDURE DIVISION.
...
COPY record-move.
...
COPY record-move.
program-two.
DATA DIVISION.
01 print-record.
COPY record-layout.
...
PROCEDURE DIVISION.
...
print-line.
COPY record-move.