data temp;
 input A B C;
 cards;
 0 0 1
 0 1 1
 2 1 2
 ;
run;
proc transpose data = temp out = temp1;
run;

data temp1;
 set temp1;
 rank = sum(col1, col2, col3);
run;

%macro rank();
%do i =1 %to 3;
proc sort data = temp1 out = table&i (keep = _name_  rename=(_name_ = stock&i) );
by  descending rank descending col&i;
run;
%end;
%mend;

%rank();
data final;
 merge table1 table2 table3;
 label stock1 = "day1";
 label stock2 = "day2";
 label stock3 = "day3";
run;

/***It works, not efficient though. ***/

非常感谢olover 高人!!   谢谢回帖。好象还是不对。

[此贴子已经被作者于2008-2-8 22:11:20编辑过]

    为解决1楼提出的问题，高手还有其他方法吗？

[此贴子已经被作者于2008-2-12 11:41:56编辑过]

不知道这个怎样：

data a;                                                                                                                                
input id$ x1 x2 x3;   
cards;                                                                                                          
A 0 0 2                                                                                                                               
B 0 1 1                                                                                                                               
C 1 1 2                                                                                                                               
;                                                                                                                                     
run;

%let n=3;  
                                                                                                                            
%macro rank;                                                                                                                           
        %do i=1 %to &n;                                                                                                                
                proc sort data=a out=day&i(keep=id rename=(id=day&i));                                                                 
                        by                                                                                                             
                        %do j=&i %to 1 %by -1;                                                                                         
                        descending x&j                                                                                                 
                        %end;                                                                                                          
                        ;                                                                                                              
                run;                                                                                                                   
        %end;                                                                                                                          
%mend rank; 
                                                                                                                          
%rank;
                                                                                                                                
%macro print;                                                                                                                          
data out;                                                                                                                                
        merge                                                                                                                          
        %do i=1 %to &n;                                                                                                                
        day&i                                                                                                                          
        %end;                                                                                                                          
      ;                                                                                                                                
run;                                                                                                                                   
proc print;                                                                                                                            
run;                                                                                                                                   
%mend print;
                                                                                                                          
%print;