如何将数据集aaa转换成数据集bbb

如何将数据集aaa转换成数据集bbb ，谢谢！
data.rar (1.35 KB) 本附件包括：

• bbb.sas7bdat
• aaa.sas7bdat

2012-9-16 18:17:05 上传

1. libname tt 'D:\tst';
   
2. 
   
3. proc sort data=tt.aaa;
   
4.   by var1;
   
5. run;
   
6. 
   
7. options mprint symbolgen;
   
8. 
   
9. %macro trans(i);   
   
10.   %do j=2 %to  &i;
    
11.     proc transpose data=tt.aaa out=tt.var&j  (drop=_name_)  prefix=var&j._;
    
12.     var var&j;
    
13.         by var1;
    
14.   run;
    
15. %end;
    
16. %mend trans;
    
17. 
    
18. %trans(5);
    
19. 
    
20. %macro varlist;
    
21.    %do  i=1 %to 3;
    
22.    %do j=2 %to 5;
    
23.    var&j._&i
    
24.    %end;
    
25.    %end;
    
26. %mend varlist;
    
27. 
    
28. data tt.bb;
    
29.   retain var1 %varlist;
    
30.   merge  tt.var2  tt.var3  tt.var4 tt.var5;
    
31.   by var1;
    
32. run;

复制代码

没细想，应该还有更好的方法。

proc transpose data=aaa out=aaa1;
    by var1;
        var var2-var5;
run;

proc transpose data=aaa1(rename=(_name_=name)) out=aaa2;
    by var1 name;
        var col:;
run;

data aaa3;
    set aaa2;
        by var1 name;
        if first.name then i=0;
        else i+1;
        if not first.name then name=catx("_",name,put(i,z2.));
        if ^missing(col1);
run;
   
proc transpose data=aaa3 out=bbb;
     by var1;
         var col1;
         id name;
run;

要别人回答还要收币，你都是牛的了