菜鸟求助：如何加入排序号

shiyiming

对于dataset :
ID    Date
001 19980101
001 19980103
001 19980104
001 19980105
001 19980201
002 19980101
002 19980301
002 19980311
002 19980501
002 19980601
...

我想加一个列Seq,针对同一ID，当前是按Date排的第几个，结果应为：
ID    Date         Seq
001 19980101  1
001 19980103  2
001 19980104  3
001 19980105  4
001 19980201  5
002 19980101  1
002 19980301  2
002 19980311  3
002 19980501  4
002 19980601  5
...

请教各位高手，该怎么写？

shiyiming

data dataset;
input ID $ Date $;
cards;
001 19980101
001 19980103
001 19980104
001 19980105
001 19980201
002 19980101
002 19980301
002 19980311
002 19980501
002 19980601
003 19880405
001 13460809
;
run;
proc sort;
by  ID  Date;
data new;
set dataset;
retain seq 0;
seq=seq+1;
if first.id=1 then seq=1;
by id;
run;
proc print;
run;