IDENTIFICATION DIVISION.

PROGRAM-ID. CYU001.

*

ENVIRONMENT DIVISION.

INPUT-OUTPUT SECTION.

FILE-CONTROL.

SELECT 受注ファイル

　　ASSIGN TO infile

　　ORGANIZATION IS

　　LINE SEQUENTIAL.

SELECT 抽出後ファイル

　　 ASSIGN TO outfile2

　 　ORGANIZATION IS

　　 LINE SEQUENTIAL.

*

DATA DIVISION.

FILE SECTION.

FD 受注ファイル.

01 受注レコード.

　03 受注コード　　　　　　　PIC X(10).

　03 売上 　 　　　　　　　　 PIC 9(07).

　03 在庫数 　　　　　　　　 PIC 9(07).

FD 抽出後ファイル.

01 抽出後レコード.

　03 抽出後−受注コード　PIC X(10).

　03 抽出後−売上 　 　　 PIC 9(07).

　03 抽出後−在庫数　　　PIC 9(07).

WORKING-STORAGE SECTION.

01 END-FLG　PIC 9(1).

*

PROCEDURE DIVISION.

PERFORM 初期処理.

PERFORM 主処理

　UNTIL END-FLG = 1.

PERFORM 終了処理.

EXIT PROGRAM.

初期処理 SECTION.

OPEN INPUT 　受注ファイル.

OPEN OUTPUT　 抽出後ファイル.

PERFORM 受注ファイル読込.

主処理 SECTION.

IF 売上 >100

　WRITE 抽出後レコード

　FROM 受注レコード

ELSE

　 CONTINUE 　　　　　

END-IF.

PERFORM 受注ファイル読込.

終了処理 SECTION.

CLOSE 受注ファイル.

CLOSE 抽出後ファイル.

受注ファイル読込 SECTION.

READ 受注ファイル

　AT END

　　MOVE 1 TO

　　　END-FLG.