How to move unique entries in an array to a new one?
Posted: Wed Aug 08, 2012 5:36 am
I have an array with dates, some dates repeat. I need to move unique, non repeating dates to a new array. I am trying this piece of code and it isn't working for me. It isn't moving any dates nor zeros. When I display the new array it is empty.
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.