data a;
input a b;
cards;
1 2
1 .
2 .
2 1
2 1
;

run;

proc sort data=a;
by a descending b;
run;

data b;
set a;
by a;
retain c .;
if first.a then c=b;
drop b;
rename c=b;
run;

谢谢大侠了，程序很好用！！祝学习工作顺利！

proc sort data=dianzi.p1 out=dianzi.p2;                                                                                                               
  by assn descending cpc;                                                                                                               
run;                                                                                                                                    
data dianzi.p3;                                                                                                                                
     set dianzi.p2;                                                                                                                           
       by assn;                                                                                                                        
       length cpc0 $50;                                                                                                                 
      retain cpc0 "";                                                                                                                  
      if first.assn then cpc0=cpc;                                                                                                      
          drop cpc;                                                                                                                     
              rename cpc0=cpc;                                                                                                         
run;                                                                                                                                    
proc print data=p3;                                                                                                                     
run;      

我也试了下，你可以参照《SAS编程与数据挖掘商业案例》P69