COPY 记录布局

节目之一。

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.

方案二。

   DATA DIVISION.

   01 print-record.
      COPY record-layout.
   ...

   PROCEDURE DIVISION.
   ...
   print-line.
       COPY record-move.