问一个简单的问题

再次感谢帮助我的人！

1. data b;
   
2.         set a;
   
3.         array xAry x1-x4; *loading values;       
   
4.         array x_Ary x_1-x_4; *give a transit array;
   
5.         do over xAry;
   
6.                 x_Ary=-1*xAry;
   
7.         end;
   
8.         call sortn(of x_1-x_4);
   
9.         do over x_Ary;
   
10.                 xAry=-1*x_Ary;
    
11.         end;
    
12.         drop x_1-x_4;
    
13. run;

复制代码

jingju11 发表于 2009-10-13 21:51

1. data b;
   
2.         set a;
   
3.         array xAry x1-x4; *loading values;       
   
4.         array x_Ary x_1-x_4; *give a transit array;
   
5.         do over xAry;
   
6.                 x_Ary=-1*xAry;
   
7.         end;
   
8.         call sortn(of x_1-x_4);
   
9.         do over x_Ary;
   
10.                 xAry=-1*x_Ary;
    
11.         end;
    
12.         drop x_1-x_4;
    
13. run;

复制代码

抄袭一下~~

        data b;
        set a;
        array xAry x1-x4;      
        do over xAry;
        call sortn(of x4-x1);
        end;run;

1. data b;
   
2.         set a;
   
3.         call sortn(of x4-x1);
   
4. run;

复制代码

再抄一遍。

谢谢各位了。