按照列提取数据组成新的表

原料：有这么一堆表，表间的字段有重复的，有总结好的sas数据集，见附件，
table_name就是来源表， unique_name就是要生成的表名，两者是多对一的关系，多个原始表生成一个目标表。

阶段目标：
将表中的共有字段都提取出来，分别组成新的表，即：按照列提取，提取表中相同的列，组成新的表，生成的目标表会有很多。
例子：
从a表里有aa, b表里也有aa，两个aa纵向合并形成一个新的表aa（不去除重复）;
从a表里有cc, c表里有cc，b表里有cc, 三个cc纵向合并形成一个新的表cc（不去除重复）……;


可以用下列的语句单个的实现：
proc sql;
create table table3 as
select name from birth1
outer union
select name  from  birth2 ;quit;


最终目标：
批量实现，附件中可以看出非常有规律，希望可以通过宏实现，谢谢大家。

没有调试，有问题再联系

1. %let object=question;/*你给的总结性的数据表*/
   
2. 
   
3. %macro a;
   
4. %do i=1 %to 871;/*共有871张表，分开来做数据的合并*/
   
5. 
   
6. data x;
   
7. set &object.;
   
8. if a=&i.;
   
9. run;/*得到第一组等待合并的数据集信息*/
   
10. 
    
11. data y;
    
12. set x nobs=n;
    
13. if _n_=1;
    
14. var=scan(unique_name,1,'_');
    
15. call symput('var',var);/*得到待匹配的变量名，并赋值给宏变量var*/
    
16. call symput('n',n);/*得到共有多少组数据集要合并，并赋值给宏变量n*/
    
17. call symput('name',unique_name);/*得到新的表的名字*/
    
18. run;
    
19. 
    
20. /*
    
21. %put &var.;
    
22. %put &n.;
    
23. */
    
24. 
    
25. data &name.;
    
26. &var.=.;
    
27. run;
    
28. 
    
29. %do j=1 %to &n.;
    
30. data x_&j.;
    
31. set x;if _n_=&j.;call symput("data_&j",table_name);run;/*分别把要合并的变量名赋值给宏变量data_&j*/
    
32. 
    
33. 
    
34. data &name.;
    
35. set &name. &&data_&j(keep=&var);
    
36. by &var.
    
37. run;
    
38. %end;
    
39. %end;
    
40. %mend a;
    
41. %a

复制代码

我看了附件觉得很乱啊，因为数据你自己才有，我看那个表根本就看不明白。
思路：
1、使用dictionary.column这个表，查看不同数据集里面的变量名
2、根据变量名排序，这样就可以看到哪些变量名需要从哪些表格里面批量提取
3、然后结合宏的应用批量生成表格

如果你不需要去重的话，而且相同变量名的数据格式都一样，不会出现数据截断问题的话，可以考虑使用
proc append

6皮皮9 发表于 2014-4-23 17:37
我看了附件觉得很乱啊，因为数据你自己才有，我看那个表根本就看不明白。
思路：
1、使用dictionary.colu ...

就3列，table_name abc he unique_name

abc相同的说明对应的table_name含有相同的变量 变量的名字都为unique_name，比如：

table_name                          abc          unique_name
BIRTH_DAORUBIAO_2007          1               ABCODE_VARCHAR2
BIRTH_OUT_HOSPITAL2009          1       

意思是从birth_baorubiao_2007和birth_out_hospital2009两张表里面提取 abcode这个变量，组成新的表，新表的表名为abcode_varchar2

1. %let yourlibrary=;
   
2. proc sql ;
   
3. create table cols as
   
4. select  distinct name
   
5. from dictionary.columns
   
6. where upcase(libname)=upcase("&yourlibrary")
   
7. order by name
   
8. ;
   
9. quit;
   
10. %macro aa(cols, library);
    
11.     proc sql noprint;
    
12.     select memname into :memname separated by '(keep="&cols")  '
    
13.     from dictionary.columns
    
14.     where upcase(libname)=upcase("&library")
    
15.       and upcase(name)   =upcase("&cols");
    
16.     data &cols;
    
17.       set &memname;
    
18.     run;
    
19. %mend;
    
20. data _null_;
    
21.     set cols;
    
22.     call execute("%aa("||name||", &yourlibrary)");
    
23. run;

复制代码

有问题请反馈。。