data test;
   infile datalines;
   input r1 $ r2 $12. r3;
datalines;
a  2007-01-01  11
a  2007-01-01  1
a  2007-02-02  13
b  2007-01-02  2
;
run;
/*proc means or summary*/
proc means data=test sum;
   var r3;
   by r1 r2 notsorted;
   ods output summary=resutl;
run;
/*proc sql*/
proc sql;
   create table new as
   select distinct a.r1
     ,a.r2
     ,sum(r3) as r3
   from test as a
   group by r2
   ;
quit;

data test;
   infile datalines;
   input r1 $ r2 $12. r3;
datalines;
a  2007-01-01  11
a  2007-01-01  1
a  2007-02-02  13
b  2007-01-02  2
;
run;
/*proc sort;*/
/*by r2;*/
/*run;*/
data sum;
        r4=0;
        do until(last.r1);
            set test ;
                by r2 r1  notsorted;
                r4+r3;
        end;
run;

谢谢！！！！！！！