为什么用qscan会出错

1. %macro aaa(xvars=);
   
2. 
   
3. data class;
   
4.         set sashelp.class;
   
5. run;
   
6. 
   
7. %local i;
   
8. %let i=1;
   
9. %do %until (%qscan(&xvars,&i,' ')=);
   
10.         %let xvar=%qscan(&xvars,&i,' ');
    
11.             proc sql noprint;
    
12.                         create table _&xvar as select distinct &xvar from temp0;
    
13.                 quit;
    
14.         %let i=%eval(&i+1);
    
15. %end;
    
16. 
    
17. %mend;
    
18. 
    
19. %aaa(xvars=sex);

复制代码

为什么用qscan会出错？谢谢！

宏函数在使用时，其参数不需要使用引号包围。因为在宏当中，变量没有类型，或者说，都是字符类型。因此宏函数也就不再需要区分其参数是字符还是数字，引号就不被需要了。

whymath 发表于 2022-7-11 21:59
宏函数在使用时，其参数不需要使用引号包围。因为在宏当中，变量没有类型，或者说，都是字符类型。因此宏函 ...

如何修改呢？谢谢！

1. %macro aaa(xvars=);
   
2. 
   
3. data class;
   
4. set sashelp.class;
   
5. run;
   
6. 
   
7. %local i;
   
8. %let i=1;
   
9. %do %until (%scan(&xvars,&i,' ')=);
   
10. %let xvar=%scan(&xvars,&i,' ');
    
11. proc sql noprint;
    
12.   create table _&xvar as select distinct &xvar from class;
    
13. quit;
    
14. %let i=%eval(&i+1);
    
15. %end;
    
16. 
    
17. %mend;
    
18. 
    
19. %aaa(xvars=sex);

复制代码

用%scan不报错

dxystata 发表于 2022-12-14 15:27
用%scan不报错

去掉引号亦可。宏语句中，引号失去了引用的作用，单纯作为一种字符存在。

whymath 发表于 2022-12-16 00:42
去掉引号亦可。宏语句中，引号失去了引用的作用，单纯作为一种字符存在。

1. %macro aaa(xvars=);
   
2. data class;
   
3.         set sashelp.class;
   
4. run;
   
5. 
   
6. %local i;
   
7. %let i=1;
   
8. %do %until(%qscan(&xvars,&i,)=);
   
9. %let xvar=%qscan(&xvars,&i,);
   
10.         proc sql noprint;
    
11.                 create table _&xvar as select distinct &xvar from class;
    
12.         quit;
    
13. %let i=%eval(&i+1);
    
14. %end;
    
15. 
    
16. %mend;
    
17. 
    
18. %aaa(xvars=sex);

复制代码

还是有错

dxystata 发表于 2022-12-20 10:40
还是有错

应改为使用%scan函数，之前提及的引号问题，实属跑偏了，抱歉。
我的理解是这样的：%qscan() 函数会屏蔽 & 符号，直到执行代码时才进行解析，而此时 SQL 代码由于 %qscan() 还未解析，编译过程就失败了，因此报错。具体地，SAS代码的编译、执行过程是这样：
宏编译  →  宏执行  →  普通程序编译  →  普通程序执行

%qscan() 的执行在第四步。
proc sql的编译在第三步，此时的程序为 create table _%qscan(&xvars,&i,)  as ...，由于 %qscan() 尚未解析为 sex，编译工作出错了，编译器报告错误，程序中止。