data test;
input id a;
cards;
1  1
1  2
1  1
2  0
2  2
2  3
2  2
;

data wanted;
   set test;
   by id;
   retain b;
   if first.id then do until(last.id);
             set test(rename=(a=a1));
                         by id;
                         if first.id then b=0;
             b=sum(b,a1);
                        end;
        drop a1;
run;

See the sql below.

data test;
input id a;
cards;
1  1
1  2
1  1
2  0
2  2
2  3
2  2
;

proc sql;
  select *, sum(a) as b
  from test
  group by id
  ;
  quit;

非常感谢，这个看起来更容易理解一些。