SAS数据集按照观测拆分，利用宏

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如题，鄙人想按照变量date的值来拆分数据集
如date=19960131生成一个数据集，date=19960228生成一个
现在有很多个，到20080731了
每月一个
所有想用一个宏来操作
不知道如何进行
O(∩_∩)O谢谢

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：sas数据集 数据集 date ATE 不知道 如何

这个似乎不是太难。

只是怎么写一个简单的宏程序，还是要化些功夫。

求宏啊，O(∩_∩)O谢谢

思路是先把distinct date的值变为宏变量，然后用data步输出。
比如说如下这段code:
data a;
do date=1991 to 2011;
output;
end;
run;
data _null_;
set a end=last;
call symputx('date'||left(_n_),date);
if last then call symput ('n',_n_);
run;
%macro split;
%do i=1 %to &n;
data b&i;
set a;
where date=&&date&i;
run;
%end;
%mend;
%split;

楼上用if吧，这样只读原表一次，如果是股票类高频数据，一次循环一个data步还是会很慢

对，会非常慢的

用sas生产一段if output的代码就好了 很容易的！

这种情况我推荐使用call execute语句，用不着宏，不过要看你的具体情况，我假设楼主需要生成数据的日期都在一个数据集里，对另外一个数据集进行拆分，可如下折腾：

1. data date;
   
2.         date=input("19960131",yymmdd8.);
   
3.         output;
   
4.         date=input("19960228",yymmdd8.);
   
5.         output;
   
6.         date=input("19960309",yymmdd8.);
   
7.         output;
   
8. run;
   
9. 
   
10. data _null_;
    
11.         set have;
    
12.         call execute ("data data_"||strip(put(date,yymmddn8.))||";set YOURDATA;if date="||date||";run;");
    
13. run;

复制代码

Here is my way.

1. data a;
   
2. format target_day $8.;
   
3. input target_day $;
   
4. cards;
   
5. 20120730
   
6. 20120731
   
7. 20120810
   
8. 20120817
   
9. ;run;
   
10. %macro segmentation();
    
11. proc sort data = a out = work.t1(keep = target_day) nodupkey;
    
12. by target_day;
    
13. run;
    
14. data _null_;
    
15. set work.t1 nobs=n;
    
16. call symputx(compress("set_"||_n_), put(input(target_day, yymmdd8.), yymmddn8.));
    
17. if _n_ = 1 then call symputx('n',n);
    
18. run;
    
19. data %do ii = 1 %to &n.;
    
20.   data_&&set_&ii..
    
21.   %end;;
    
22. set a;
    
23. select (target_day);
    
24.   %do ii = 1 %to &n.;
    
25.    when ("&&set_&ii..") output data_&&set_&ii..;
    
26.   %end;
    
27.   otherwise;
    
28. end;
    
29. run;
    
30. proc sql;
    
31. drop table work.t1;
    
32. quit;
    
33. %mend;
    
34. %segmentation();

复制代码