WRITEの規則

• WRITEの後ろは3カラムあけます。
• 同じ行にレコード名を書きます。
• FROM句を書く場合は、レコード名の書き始めから12カラム後ろから項目 名を書きます。
• AFTER句を書く場合は、改行しWRITEから4カラム下げて書き始め、後ろ は3カラムあけます。
• BEFORE句は使用出来ません。

【例】
     1   1   2   2   2   3   3   4   4   4   5   5   6   6   6   7
7----2---6---0---4---8---2---6---0---4---8---2---6---0---4---8---2
     OPEN    INPUT
         INP-FILE.
     OPEN    OUTPUT
         OUT-FILE
         REF-FILE.
     READ    INP-FILE    AT  END
         MOVE    FLG-TRUE    TO  FLG-END
     END-READ.
     WRITE   OUT-REC     FROM    INP-REC.
     WRITE   REF-REC     FROM    WK1-HEAD
         AFTER   2.
     CLOSE
         INP-FILE
         OUT-FILE
         REF-FILE.