ファイルの終了

END FILE は、ファイルの終わりを実際に検出する前にデータの読み取りを停止するようにプログラムに指示するために、 INPUT PROGRAM—END INPUT PROGRAM 構造体で使用されます。 END FILEEND CASE と一緒に使用すると、プログラムが複数のデータ・ファイルを読み取るまでファイルの終わり処理を遅らせることによって、生データ・ファイルを連結することができます。 END FILELOOP および END CASE とともに使用して、データ入力なしでデータを生成することもできます。

END FILE

INPUT PROGRAM.
DATA LIST FILE=PRICES /YEAR 1-4 QUARTER 6 PRICE 8-12(2).
DO IF (YEAR GE 1881).  /*Stop reading before 1881
END FILE.
END IF.
END INPUT PROGRAM.