重新讀取

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.