不知道是四个一循环还是怎么样啊？第五个数据和第六个数据应该是什么样的

by obs notsorted; maybe needed.

data aa;
input obs  month $ p;
cards;
1  Jan   0.5
1  Feb   0.4
1  March 0.6
1  April 0.3
2  Jan  0.2
2  Feb  0.8
2 March  0.4
3 Feb  0.6
3 March 0.8
;
run;


data want;
  set aa;
  by obs;
  retain temp;
  if first.obs then do; temp = p; chazhi=p;end;
    else chazhi = p - temp;
  drop temp;
run;
修改了一下

楼上的程序不健壮，如果第一条record的obs值不是1的话，那就达不到楼主的要求了，
看下我这里的程序，由系统的自动变量_n_来进行处理。
data bb(drop = base);
   retain base;
   set aa;
   if _n_ = 1 then
      base = p;
   else
      p = p - base;
run;