cobolのコントロールブレイク

趣味の一環としてcobolのファイル入出力プログラムを勉強しているのですが、
リング構造を利用したコントロールブレイク機能の実装で躓いてしまいました。
知恵をお貸しいただければ幸いです。

ソースコードここから

IDENTIFICATIONDIVISION.
PROGRAM-ID.BREAKDV1.
ENVIRONMENTDIVISION.
INPUT-OUTPUTSECTION.
FILE-CONTROL.
SELECT INF ASSIGN TO "C:\cobol\sample.cbl" STATUS FST.
SELECT OUF ASSIGN TO "C:\cobol\data.txt".
DATADIVISION.
FILESECTION.
FD INF.
01 F1RPIC X(72).
WORKING-STORAGESECTION.
01 INKEYPIC 9(01).
01 SAVKEYPIC 9(01).
01 FSTPIC X(02).
PROCEDUREDIVISION.
ACCEPT INF
OPEN INPUT INF OUTPUT OUF
PERFORM 読込処理 THRU 読込出口
PERFORM UNTIL INKEY = HIGH-VALUE
MOVE SAVKEY TO INKEY
PERFORM UNTIL INKEY NOT = SAVKEY
PERFORM 同一処理 THRU 同一出口
PERFORM 読込処理 THRU 読込出口
END-PERFORM
PERFORM 合計処理 THRU 合計出口
END-PERFORM
PERFORM 総計処理 THRU 総計出口
CLOSE INF OUF
STOP RUN.

同一処理. DISPLAY "SAME"
WRITE F1R
DISPLAY F1R
同一出口. EXIT.

合計処理. DISPLAY "TOTAL"
合計出口. EXIT.

総計処理. DISPLAY "END"
総計出口. EXIT.

読込処理. PERFORM UNTIL FST NOT "00"
READ INF
END
MOVE HIGH-VALUE TO INKEY
NOT END
CONTINUE
END-READ
END-PERFORM
読込出口. EXIT.

ソースコードここまで（処理内容は仮のものです）

参考文献ではこのような組み方でよいはずなのですが、コンパイルした際に
BREAKDV1.cbl:19: Error: syntax error, unexpected "end of file"
とエラーが発生してしまいました。
このエラーを解消する方法をお教え下さい。

開発環境：
Windows7SP1+MinGW32、サクラエディタ

No.1 ベストアンサー 回答者： jjon-com 回答日時： 2013/08/29 14:15

キーワード "syntax error, unexpected end of file" でGoogle検索すると，上位に次のページがヒットします。

http://ameblo.jp/to-ri-e/entry-10871979829.html
http://detail.chiebukuro.yahoo.co.jp/qa/question …

COBOLコンパイラがUNIX系のプログラムであるならこれが原因かもしれません。

そうでないなら，BREAKDV1.cblの19行目とその前後行をCopy&Pasteで提示していただけば，さらに気づくことがあるかもしれません。

この回答へのお礼

ご回答ありがとうございます。

文字コードをＵＴＦ-８、改行コードをＬＦに直したところ
エラーが解消されました。

エディタのデフォルト設定のままでも他のcobolプログラムはコンパイルを通っていたので
文字コード、改行コードは盲点でした。

これで作業を前進させられます。
ご回答、誠に感謝いたします。

お礼日時：2013/08/29 16:44