data have;
id=1;
X="111110000110AAAB";
start="01jan2006"d;
output;
run;
data temp;
set have;
do i=1 to length(x);
x1=char(x,i);output;
end;
drop x;
run;
proc summary data=temp;
by id start x1 notsorted;
output out=temp1;
run;
data want;
set temp1;
by id;
retain lag_cum;
if first.id then do;cum=0; cum+_freq_;start_ndx=1; end_ndx=_freq_;end;
else do; cum+_freq_;start_ndx=lag_cum+1; end_ndx=cum; end;
lag_cum=cum;
format start date9.;
drop _:;
run;
... View more
