PERFORM 235-MOVE-NEW-DATE-RTN UNTIL SUB-2 > TABLE-LENGTH
235-MOVE-NEW-DATE-RTN.
MOVE 0 TO SUB-1.
MOVE 2 TO SUB-2.
PERFORM VARYING SUB-1 FROM 1 BY 1 UNTIL SUB-1 > TABLE-LENGTH
IF RACE-DATE(SUB-1) NOT = RACE-DATE(SUB-2)
MOVE RACE-DATE(SUB-1) TO RACE-DATE-UNIQUE(SUB-1)
ELSE MOVE 0 TO RACE-DATE-UNIQUE(SUB-1)
END-IF
COMPUTE SUB-2 = SUB-2 + 1
END-PERFORM.
235-MOVE-NEW-DATE-RTN.
MOVE 0 TO SUB-1.
MOVE 2 TO SUB-2.
PERFORM VARYING SUB-1 FROM 1 BY 1 UNTIL SUB-1 > TABLE-LENGTH
IF RACE-DATE(SUB-1) NOT = RACE-DATE(SUB-2)
MOVE RACE-DATE(SUB-1) TO RACE-DATE-UNIQUE(SUB-1)
ELSE MOVE 0 TO RACE-DATE-UNIQUE(SUB-1)
END-IF
COMPUTE SUB-2 = SUB-2 + 1
END-PERFORM.