如何根据已有的名单批量复制数据集

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求教各位大神：我有一份名单，里面是一列六位数的编码，但是编码变化得无任何规律，比如000001,000009,103424,690544……。我还有一个逻辑库，里面有大量数据集，其中部分数据集的名字和这份名单里的编码一样。现在需要将这些符合名单的数据集复制到另外一个逻辑库里。求问应该如何编写宏程序呢？谢谢了！！补充一下：因为每个数据集里的数据量非常大 有几十万条 但是我只需要某个时间点 比如2010年6月5日以后的 所以复制的时候最好只复制这个时间段的以提高程序的效率~

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据集 部分数据 逻辑库 时间段 宏程序 如何

1. data list;
   
2. input code $8.;
   
3. cards;
   
4. 000001
   
5. 015392
   
6. 308123
   
7. ;
   
8. run;
   
9. 
   
10. %macro test(listname);
    
11.         %let dsid=%sysfunc(open(work.&listname.));
    
12.         %if &dsid. gt 0 %then %do;
    
13.                 %let nobs=%sysfunc(attrn(&dsid.,nobs));
    
14.                 %do i=1 %to &nobs.;
    
15.                         %let rc=%sysfunc(fetchobs(&dsid.,&i.));
    
16.                         %let varnume=%sysfunc(varnum(&dsid.,code));
    
17.                         %let value=%sysfunc(getvarc(&dsid.,&varnume));
    
18.                         data a&value.;
    
19.                         a=123;
    
20.                         run;
    
21.                         proc datasets;
    
22.                         copy in=work out=jj;
    
23.                         select a&value.;
    
24.                         run;
    
25.                 %end;
    
26.                 %let dsid=%sysfunc(close(&dsid.));
    
27.         %end;
    
28. %mend;
    
29. 
    
30. %test(list)

复制代码

数据集名称不能以数字打头，这里以a000001为例

万分感谢大神！！受教了！！抱回去认真研究一下~