IDENTIFICATION DIVISION.

　　　 PROGRAM-ID.　　REI2-1.

　　　* 作成者.　　　 2-A 18 村田春香.

　　　*

　　　 ENVIRONMENT　　　DIVISION.

　　　 CONFIGURATION　　SECTION.

　　　 SOURCE-COMPUTER. PC-98.

　　　 OBJECT-COMPUTER. PC-98.

　　　 INPUT-OUTPUT　　 SECTION.

　　　 FILE-CONTROL.

　　　　　　SELECT URIAGE-FILE　 ASSIGN TO "h:\REI2-1.DAT"

　　　　　　　　　　　　　　　　 ORGANIZATION LINE SEQUENTIAL.

　　　　　　SELECT ICHIRAN-FILE　ASSIGN TO "h:\PRN2-1.txt".

　　　*

　　　 DATA DIVISION.

　　　 FILE SECTION.

　　　 FD　URIAGE-FILE.

　　　 01　URIAGE-REC.

　　　　　 02 U-CODE　　PICTURE　X(3).

　　　　　 02 U-NAMAE　 PICTURE　X(10).

　　　　　 02 U-SURYO　 PICTURE　9(3).

　　　　　 02　　　　　 PICTURE　X(64).

　　　 FD　ICHIRAN-FILE.

　　　 01　ICHIRAN-REC　PICTURE　X(132).

　　　 WORKING-STORAGE SECTION.

　　　 01　SHURYO-MARK　PICTURE　X(4).

　　　 01　MEISAI-GYO.

　　　　　 02　　　　　 PICTURE　X(2)　VALUE　SPACE.

　　　　　 02 M-CODE　　PICTURE　X(3).

　　　　　 02　　　　　 PICTURE　X(3)　VALUE　SPACE.

　　　　　 02 M-NAMAE　 PICTURE　X(10).

　　　　　 02　　　　　 PICTURE　X(2)　VALUE　SPACE.

　　　　　 02 M-SURYO　 PICTURE　9(3).

　　　*

　　　 PROCEDURE DIVISION.

　　　 HAJIME.

　　　　　 OPEN　INPUT　 URIAGE-FILE

　　　　　 OPEN　OUTPUT　ICHIRAN-FILE

　　　　　 MOVE　"処理"　TO　SHURYO-MARK.

　　　 URIAGE-SHORI.

　　　　　 PERFORM　UNTIL SHURYO-MARK = "終了"

　　　　　　 READ　 URIAGE-FILE

　　　　　　　 AT END

　　　　　　　　 MOVE　"終了"　　　TO　SHURYO-MARK

　　　　　　　 NOT AT END

　　　　　　　　 MOVE　U-CODE　　　TO　M-CODE

　　　　　　　　 MOVE　U-NAMAE　　 TO　M-NAMAE

　　　　　　　　 MOVE　U-SURYO　　 TO　M-SURYO

　　　　　　　　 MOVE　MEISAI-GYO　TO　ICHIRAN-REC

　　　　　　　　 WRITE ICHIRAN-REC AFTER 2

　　　　　　 END-READ

　　　　　 END-PERFORM.

　　　 OWARI.

　　　　　 CLOSE URIAGE-FILE ICHIRAN-FILE

　　　　　 STOP RUN.