请问如何将下面2个宏嵌套成1个宏？谢谢。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问如何将下面2个宏嵌套成1个宏？
谢谢.

1. /*1. %directory;*/
   
2. 
   
3. %macro directory(dir=);
   
4.         /*%global nobs name;  */                      /*定义nobs 与 name为全局宏变量;*/
   
5.         %let rs=%sysfunc(filename(filref,&dir));  /*为外部文件（文件夹）指定一个fileref，指定位置&dir;*/
   
6.         %let did=%sysfunc(dopen(&filref));        /*打开文件夹，%sysfunc(dopen(fileref));*/
   
7.         %let nobs=%sysfunc(dnum(&did));           /*确定（return）文件夹中文件（txt/excel/csv...)的个数,%sysfunc(dnum(directory-id));*/
   
8. 
   
9.         %do i=1 %to &nobs.;         
   
10.             %let name=%qscan(%qsysfunc(dread(&did,&i)),1,.);  /*%qscan()查找dread返回的文件名，从位置1开始查，遇见分隔符 . 则忽略;*/
    
11.                                                       /*宏函数中的分隔符不用单引号或双引号括起来，但scan函数中的分隔符要加单引号;*/
    
12.            /* %let txt=%qscan(%qsysfunc(dread(&did,&i)),-1,.);*/   /*-1是从反向第1个位置查, 这句可以不要;*/
    
13. 
    
14.          data WORK.&name.    ;
    
15.                %let _EFIERR_ = 0; /* set the ERROR detection macro variable */
    
16.                        infile "&dir.\&name..txt" delimiter='09'x MISSOVER DSD dlm="" lrecl=32767 firstobs=1 ;
    
17.          
    
18.           informat var1 best1.;
    
19.                   informat var2 best2.;
    
20. 
    
21.           format var1 best1.;
    
22.                   format var2 best2.;
    
23. 
    
24.                   input  var1
    
25.                                  var2
    
26.        ;
    
27.        if _ERROR_ then call symputx('_EFIERR_',1);  /* set ERROR detection macro variable */
    
28.     run;
    
29. 
    
30.         %end;
    
31.         %let rc=%sysfunc(dclose(&did));   /*dclose是关闭文件夹;*/
    
32. %mend;
    
33. %directory(dir=d:\all_txt);
    
34. 
    
35. 
    
36. 
    
37. /*2. %freq;*/
    
38. 
    
39.         /***（1）因原始txt数据文件有两列，依次是阳性频数列与总频数列,
    
40.                         需要根据proc freq进行chi-square test的数据格式要求生成频数列;*/
    
41. 
    
42. data zgroup;
    
43.         do group = 1 to 2;
    
44.                 do r = 1 to 2;
    
45.                         output;
    
46.                 end;
    
47.         end;
    
48. run;
    
49. %macro freq(dir=);
    
50.         %let rs=%sysfunc(filename(filref,&dir));  /*为外部文件（文件夹）指定一个fileref，指定位置&dir;*/
    
51.         %let did=%sysfunc(dopen(&filref));        /*打开文件夹，%sysfunc(dopen(fileref));*/
    
52.         %let nobs=%sysfunc(dnum(&did));           /*确定（return）文件夹中文件（txt/excel/csv...)的个数,%sysfunc(dnum(directory-id));*/
    
53. 
    
54.         %do i=1 %to &nobs.;         
    
55.             %let name=%qscan(%qsysfunc(dread(&did,&i)),1,.);  /*%qscan()查找dread返回的文件名，从位置1开始查，遇见分隔符 . 则忽略;*/
    
56.                                                              /*宏函数中的分隔符不用单引号或双引号括起来，但scan函数中的分隔符要加单引号;*/
    
57.                           data work.&name.(keep=freq);       
    
58.                                 set work.&name.;
    
59.                                         var1_=var2-var1;
    
60. 
    
61.                                         freq=var1; output;
    
62.                                         freq=var1_; output;
    
63.                         run;                           
    
64.         data work.&name.;                                                                         /***将（1）与group数据集横向合并生成所需数据格式;*/
    
65.                 merge work.zgroup work.&name.;
    
66.         run;
    
67. 
    
68.         %end;
    
69. 
    
70.         proc delete data=work.zgroup;
    
71.         run;
    
72.         %let rc=%sysfunc(dclose(&did));   /*dclose是关闭文件夹;*/
    
73. 
    
74. %mend;
    
75. %freq(dir=c:\Users\lenovo\AppData\Local\Temp\SAS Temporary Files\_TD8504_);  
    
76. /* %freq是临时数据集work的地址*/

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：directory detection delimiter TEMPORARY Director