INPUT PROGRAM-END INPUT PROGRAM (入力プログラムの終了)

INPUT PROGRAM コマンドおよび END INPUT PROGRAM コマンドは、入力レコードからケースを作成するデータ定義コマンドおよび変換コマンドを囲みます。 多くの場合、入力プログラムは 1 つ以上の DO IF-END IF または LOOP-END LOOP 構造体を囲みます。

INPUT PROGRAM

commands to create or define cases

END INPUT PROGRAM

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.