data temp1;
set dy1;
retain continut_n index;
if dy = lag(dy) then ; continut_n+1;
else do; continut_n = 1; index + 1; end;
run;
data new;
set temp1;
by index;
if last.index;
run;