对应排序的编程问题，求助。

shiyiming

to sxlion
今天真无聊，来做道题，给个笨办法

[code:12ffpqtn]

data a;
input a1        a2        a3        ta1        ta2        ta3;
id=_n_;
array _x{*}  a   ta;
array _a{*}  a1-a3;
array _ta{*}  ta1-ta3;
_name_='a';
do j=1 to dim(_a);
    _x[1]=_a[j];  _x[2]=_ta[j];
    seq=j;
    output;
end;

keep id  seq  a  ta;
cards;
10        22        30        5        10        23
10        22        30        50        10        23
10        22        30        5        100        23
;
run;

proc sort data=a  out=as  equals ;  by id  descending ta; run;


proc transpose data=as  out=b;
        by id;
                var a ta;
run;

data a2;
        merge  b(where=(_name_='a')  rename=(col1-col3=a1-a3) )
                   b(where=(_name_='ta')  rename=(col1-col3=ta1-ta3));
run;
[/code:12ffpqtn]

shiyiming

仰望虫虫
[quote="shiyiming":dk4je8gk]都是日月级别的大牛啊！相比之下我们之流只能是萤火啊。[/quote:dk4je8gk]