！！紧急求助：这个怎么做？？？

shiyiming

一张表有3个字段：年月、货名、量
200801 a 8
200801 b 6
200801 c 9
200802 a 9
200802 b 8
200802 d 9
200803 a 4
现在需要新求一个字段：用当月的某个货的量－上个月的这个货的量，如果这个货存在，则相减，否则就为当月的量，如：
200801 a 8 .
200801 b 6 .
200801 c 9 .
200802 a 1
200802 b 8 2
200802 d 9 9
200803 a 4 -5
请教高手，这样的程序怎么写？？？？？

shiyiming

[code:1ituix2e]
data a;
input d $ g $ m;
cards;
200801 a 8
200801 b 6
200801 c 9
200802 a 9
200802 b 8
200802 d 9
200803 a 4
;
proc sort;by g d;

data b;
set a;
by g d;
m1=lag(m);
if dif(d)=1 then m2=sum(m,-m1);
if first.g+last.g=2 then m2=m ;
drop m1;
proc sort;by d;
run;
[/code:1ituix2e]