data        tmp;
        infile datalines;
        length a b 8.;
        input a b ;
datalines;
1  4
1  3
1  5
1  2
2  5
2  6
2  4
;
run;


proc sort data=tmp out=tmp_01;by a descending b;run;

data        tmp_02;
        set tmp_01;
         by a descending b;
format c 8.;
retain c;
         if first.a then
                 c=b;
   else c=sum(b,c);
                   d=sum(c,-b);
run;

proc sql;
        create table result as
        select a1.a
                  ,a1.b
                  ,b1.d
          from tmp a1
                     left outer join
                   tmp_02 b1
                on a1.a=b1.a
           and a1.b=b1.b
           ;
quit;

大神太厉害啦，好奇一下，假如我把第一行4换成5，那它的值是5，该怎么办呀？

data        tmp;
        infile datalines;
        length a b 8.;
        input a b ;
datalines;
1  5
1  3
1  5
1  2
2  5
2  6
2  4
;
run;


proc sort data=tmp out=tmp_01;by a descending b;run;

data        tmp_02;
        set tmp_01;
         by a descending b;
format c 8.;
retain c;
         if first.a then
                 c=b;
   else c=sum(b,c);
                   d=sum(c,-b);
run;

/*增加代码段*/
data        tmp_03;
        set tmp_02;
         by a descending b;
         if first.b;
run;

proc sql;
        create table result as
        select a1.a
                  ,a1.b
                  ,b1.d
          from tmp a1
                     left outer join
                   tmp_03 b1
                on a1.a=b1.a
           and a1.b=b1.b
           ;
quit;

大神太厉害了，这都可以，但可能我举得例子不具有普遍性，我想问的是怎么把重复选项不加进去
好比数据如下：
1  5
1  3
1  5
1  2
2  5
2  6
2  4
2  5
2  4
2  4

修改一下这句：
proc sort data=tmp out=tmp_01 nodupkey;by a descending b;run;