data demo;
input  id     amount;
datalines;
001     100
003     200
005     500
009     700
001     400
005     600
;

proc sql;
  select id ,sum(amount) as sum_amount
  from demo
  group by id;
quit;

/*or do it in data step*/

proc sort data=demo;
  by id;
run;

data want;
    set demo;  
    by id;
if first.id then sum_amount=0;
   sum_amount+amount;
if last.id;
run;

data a;
input id $ amount;
datalines;
001     100
003     200
005     500
009     700
001     400
005     600
;
run;

proc sort data=a;
        by id;
run;

data b;
        set a(rename=(amount=amount1));
        by id;
        if first.id then amount=0;
        retain amount;
        amount=sum(amount,amount1);
        if last.id;
        drop amount1;
run;

运行结果：

id        amount
001     500
003     200
005     1100
009     700

data tmp;
input id $ amount;
cards;
001     100
003     200
005     500
009     700
001     400
005     600
;
run;
proc sql;
select id,  sum(amount) as sum
from tmp
group by id
;
quit;

谢谢楼上三位，帮助很大！