REREAD

REREAD indica al programa que vuelva a leer un registro en los datos. Solo está disponible dentro de una estructura INPUT PROGRAM y generalmente se utiliza para definir datos utilizando la información obtenida de una lectura anterior del registro.

REREAD [FILE=file]
       [COLUMN=expression]

Ejemplo

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.