再読み取り

REREAD は、データ内のレコードを再読み取りするようにプログラムに指示します。 これは、 INPUT PROGRAM 構造体内でのみ使用可能であり、通常、レコードの直前の読み取りから取得した情報を使用してデータを定義するために使用されます。

REREAD [FILE=file]
       [COLUMN=expression]

例

INPUT PROGRAM.
DATA LIST /KIND 10-14 (A).
 
DO IF (KIND EQ 'FORD').
REREAD.
DATA LIST /PARTNO 1-2 PRICE 3-6 (DOLLAR,2) QUANTITY 7-9.
END CASE.
 
ELSE IF (KIND EQ 'CHEVY').
REREAD.
DATA LIST /PARTNO 1-2 PRICE 15-18 (DOLLAR,2) QUANTITY 19-21.
END CASE.
END IF.

END INPUT PROGRAM.

BEGIN DATA
111295100FORD
11       CHEVY 295015
END DATA.