[code:88c2d]
data ahuige;
input d1 $;
cards;
q
q
q
q
w
w
w
r
r
t
t
t
t
;
run;
proc sort;
by d1;
run;
data ahuige;
set ahuige;
n=_n_;
run;
proc sql;
create table final as
select d1,(n-min(n)+1) as d2,count(*) as d3
from ahuige
group by d1
order by d1,n
;
quit;
[/code:88c2d]