读

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.