怎么纵向合并251个数据集？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我又251个数据集需要纵向合并，我会合并1个两个。。。直接用set就好。但是怎么合并251个。。。我总不能在set后面手动输入251个数据集把。。。。。
这251个数据集在逻辑库data中，数据集的名字我存在一个数据集name中的变量name中。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：数据集 name Data Set 逻辑库

先把name全导出来变成宏文本，然后宏执行就好

1. data name;
   
2. set name;
   
3. file "d:\macro.txt";
   
4. put "%a(" name ");";
   
5. run;

复制代码

然后编个宏

1. data a;
   
2. run;
   
3. %macro a(name);
   
4. data a;
   
5. set a &name;
   
6. %mend a;
   
7. %a

复制代码

sorry， 不是执行宏%a, 把最后的%a 改成 %include "d:\macro.txt"; , 就是前面的宏文本

intheangel 发表于 2014-5-24 14:18
sorry， 不是执行宏%a, 把最后的%a 改成 %include "d:\macro.txt"; , 就是前面的宏文本

谢谢，很想知道不用宏能不能做

congmu 发表于 2014-5-24 14:54
谢谢，很想知道不用宏能不能做

本来就是重复计算的东西，不用宏怎么做。。。？额~~不过可以简单点把所有的赋值给一个宏变量

1. proc sql;
   
2. select name
   
3. into :index separated by ","  from name;
   
4. quit;
   
5. data a;
   
6. set &index;
   
7. run;

复制代码

congmu 发表于 2014-5-24 14:54
谢谢，很想知道不用宏能不能做

不知道对不对的，没调试，都是随手写的

intheangel 发表于 2014-5-24 15:03
不知道对不对的，没调试，都是随手写的

谢谢，我试试

Use

proc datasets lib=work mt=data;
run;

This will list all data set names in log.
Then goto SAS log

use Alt+mouse high-light do a column select
then copy + paste.



proc datasets lib=work kill;
quit;

data t1 a2 tc3;
x=1;
run;

options ps=500;

proc datasets lib=work mt=data;
run;
quit;

data all;
set
A2
T1
TC3
;
run;

1. proc contents data=work._all_ out=all (keep = LIBNAME MEMNAME) noprint;
   
2. run;
   
3. 
   
4. data all2;
   
5. set all;
   
6. length _all $ 20000 ;
   
7. by LIBNAME;
   
8. retain _all_;
   
9. if first.LIBNAME then _all=strip(MEMNAME);
   
10. else _all=strip(_all)||' '||strip(MEMNAME);
    
11. if last.LIBNAME then output;
    
12. run;
    
13. 
    
14. data _null_;
    
15. set all2;
    
16.   call execute ('data want;');
    
17.   call execute ('set '||strip(_all)||';');
    
18.   call execute ('run;');
    
19. run;

复制代码

You can use CALL EXECUTE to make it easy.

1. data a;i=1;run;
   
2. data b;i=2;run;
   
3. data c;i=3;run;
   
4. 
   
5. data name;
   
6. input name $ @@;
   
7. cards;
   
8. a b c
   
9. ;run;
   
10. 
    
11. data _null_;
    
12.   set name end = last;
    
13.   if _n_ = 1 then call execute('data want;set');
    
14.   call execute(name);
    
15.   if last then call execute(';run;');
    
16. run;

复制代码