IDENTIFICATION   DIVISION.
       PROGRAM-ID.      EX2-1-2.
      *
       ENVIRONMENT      DIVISION.
       INPUT-OUTPUT     SECTION.
       FILE-CONTROL.
            SELECT BUIN-FILE     ASSIGN TO "h:\EX2-1-2.DAT"
                                 ORGANIZATION LINE SEQUENTIAL.
            SELECT ICHIRAN-FILE  ASSIGN TO "h:\EX2-1-2.txt".
.
      *
       DATA  DIVISION.
       FILE  SECTION.
       FD  BUIN-FILE.
       01  BUIN-REC.
           02 B-NEN     PIC  9(1).
           02 B-KUMI    PIC  9(1).
           02 B-BANGOU  PIC  9(2).
           02 B-SHIMEI  PIC  X(12).
           02 B-DENWA   PIC  X(12).
           02           PIC  X(52).
       FD  ICHIRAN-FILE.
       01  ICHIRAN-REC  PIC  X(132).
       WORKING-STORAGE  SECTION.
       01  SHURYO-MARK  PIC  X(4).
       01  MEISAI-GYO.
           02           PIC  X(2)  VALUE  SPACE.
           02 M-SHIMEI  PIC  X(12).
           02           PIC  X(2)  VALUE  SPACE.
           02 M-DENWA   PIC  X(12).
           02           PIC  X(4)  VALUE  SPACE.
           02 M-NEN     PIC  9(1).
           02           PIC  X(3)  VALUE  SPACE.
           02 M-KUMI    PIC  9(1).
           02           PIC  X(3)  VALUE  SPACE.
           02 M-BANGOU  PIC  9(2).
      *
       PROCEDURE  DIVISION.
       HAJIME.
           OPEN  INPUT   BUIN-FILE
           OPEN  OUTPUT  ICHIRAN-FILE
           MOVE  "処理"  TO  SHURYO-MARK.
       BUIN-SHORI.
           PERFORM  UNTIL  SHURYO-MARK = "終了"
             READ  BUIN-FILE
               AT END
                 MOVE  "終了"  TO  SHURYO-MARK
               NOT AT END
                 MOVE  B-SHIMEI    TO  M-SHIMEI
                 MOVE  B-DENWA     TO  M-DENWA
                 MOVE  B-NEN       TO  M-NEN
                 MOVE  B-KUMI      TO  M-KUMI
                 MOVE  B-BANGOU    TO  M-BANGOU
                 MOVE  MEISAI-GYO  TO  ICHIRAN-REC
                 WRITE  ICHIRAN-REC  AFTER 2
             END-READ
           END-PERFORM.
       OWARI.
           CLOSE  BUIN-FILE  ICHIRAN-FILE
           STOP RUN.