data pinggu;
infile'd:\sas\sas\pinggu.txt';
input date ddmmyy10. company&$ proceeds;
format date ddmmyy10.;
run;
proc sort data=pinggu;
by company;
run;
data pinggunew;
set pinggu;
by company;
if missing(company) then delete;
if first.company then a=proceeds;
if last.company then do;
a=a+proceeds;
output;
retain a 0;
end;
drop a;
run;
proc print data=pinggunew;
run;

你可以把路径改一下，我测出了结果的，不过就只有这五个数据，更多的数据，我需要再验证才行，希望能给你一点点帮助

以下是引用SignPingGu在2008-8-2 22:38:00的发言：
Assume you have created the new dataset ttt with new variable yeara, the following code will solve your problem:

proc sort data = ttt;
    by business yeara;

proc means NOPRINT
    data = ttt;
    Class business yeara;
    var proceeds;
    output out = new1 sum = sumproceeds;
run;

The output dataset new1 will give you the results.

     我觉得既然打算用proc means 或 proc summary了 应该不需要再提前对数据按business 和 yeara排序了。 另外用proc means noprint, 可以直接换成proc summary 就好了。  另外如果只想保留一个business一年只有一条记录，在使用proc summary的时候应该加nway

     proc summary data = ttt nway;
     Class business yeara;
     var proceeds;
     output out = new1 sum = sumproceeds;
     run;