結束檔案

在 INPUT PROGRAM—END INPUT PROGRAM 結構中使用 END FILE ，以告知程式在實際遇到檔案結尾之前停止讀取資料。 END FILE 可以與 END CASE 搭配使用，以連結原始資料檔，方法是讓程式延遲檔案結尾處理，直到它已讀取多個資料檔為止。 END FILE 也可以與 LOOP 和 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.