一个与select into :macroname生成的宏相关的问题

这个问题困扰我一天多了，一直很无奈。换了9.1.3和9.2，都有这样的问题。

我的任务是：
一大堆数据库，data(i,j)，但是数据库里已知的变量只有两个，一个是日期date，一个是回归因变量比如growth(i,j)，剩下的用于回归的自变量除一个以外都是未知的比如growth(x,y)，其中x^=i。
我要做的第一步，将所有的自变量全部扩展成lag1-lag5，也就是将growth(x,y)变成变量growth(x,y,t-5),growth(x,y,t-4),growth(x,y,t-3)……growth(x,y,t)；
第二步就是将所有的自变量对growth(i,j)回归。

程序如下：

1. %global vlist;
   
2. 
   
3. %macro processing(i, j);
   
4. 
   
5. proc contents data=data&i._&j out=content1 noprint;
   
6. /*vlist装着表格里的变量名称*/
   
7. proc sql noprint;
   
8.     select name
   
9.     into :vlist separated by '  '
   
10.     from content1
    
11.     where varnum>2;
    
12. quit;
    
13. 
    
14. %put vlist===============================&vlist;
    
15. 
    
16. /*下面段程序用于扩展数据，将growth(x,y)变成growth(x,y,t-5),growth(x,y,t-4),growth(x,y,t-3)……growth(x,y,t)*/
    
17. proc expand data=data&i._&j out=rexpand.data&i._&j;
    
18.     %do s=1 %to 99;
    
19.         %let string=%scan(&vlist, &s);
    
20.         %if %length(&string) ne 0 %then
    
21.             %do t=1 %to 5;
    
22.                 convert &string=lag&t._&string / transformout= (lag &t);
    
23.             %end;
    
24.         %else %goto done;
    
25.     %end;
    
26.     %done: run;
    
27. quit;
    
28. 
    
29. 
    
30. data rexpand.data&i._&j;
    
31. /*下面这2行程序确保这2个变量不在自变量列表的行列里。*/
    
32.     format date yymmdd10.;
    
33.     format growth&i._&j 15.12;
    
34. 
    
35.     set rexpand.data&i._&j;
    
36. /*下面这一行只是为了删除lag5为空的行*/
    
37.     if lag5_var&i._&j=. then delete;
    
38. 
    
39.     drop time;
    
40. run;
    
41. /*下面这段程序是为了获取最新的自变量列表，包括原列表里所有的lag1-lag5项*/
    
42. proc contents data=rexpand.data&i._&j  noprint out= content2;
    
43. run;
    
44. 
    
45. proc sql noprint;
    
46.     select name
    
47.     into :vlist separated by '  '
    
48.     from content2
    
49.     where varnum>2;/*varnum>2确保date和growth(i,j)变量没被列入自变量列表中*/
    
50. quit;
    
51. 
    
52. %put vlist=================================&vlist;
    
53. 
    
54. proc reg data=rexpand.data&i._&j outest=outest.data&i._&j;
    
55.     model growth&i._&j=&vlist / selection=stepwise aic ADJRSQ;
    
56.     output out=out.data&i._&j p=p r=r;
    
57.     run;
    
58. quit;
    
59. 
    
60. %mend;

复制代码

这段程序如果放在几百行的复杂程序里跑时，
第一次，vlist的值输出显示为空
第二次，vlist的值输出显示不为空，但是也不对。
第三次，vlist的值显示正常了。然后程序运行就正常了。

但是如果这段程序变成不用宏%macro processing，单独copy出来到一个新文件里，把i和j分别替换成具体的数值，程序完全能够一次性正常运行。vlist的显示也正确。

说实话这个问题我目前的解决方案感觉就像电视机不好使唤的时候，拍两下就会好一阵子的。

另外我将程序

1. proc sql noprint;
   
2.     select name
   
3.     into :vlist separated by '  '
   
4.     from content1
   
5.     where varnum>2;
   
6. quit;

复制代码

换成过call symput()的形式，结果还是一样的。


我对问题的感觉是，程序大了或宏变量多了以后，正常的宏运算就会遇到一定的问题，不知道谁有这样的经验？

我将下面这段程序

1. proc sql noprint;
   
2.     select name
   
3.     into :vlist separated by '  '
   
4.     from content
   
5.     where varnum>3;
   
6. quit;

复制代码

换成了

1. data _null_;
   
2.     length list $2000;
   
3.     retain list ' ';
   
4.     set content end=last;
   
5.     if _n_=1 then sp=' ';
   
6.     else sp=' '; /* sp separates macro variables */
   
7.     if varnum>3 then list=trim(list)||sp||trim(name);
   
8.     if last then call symput('vlist',list);  
   
9. run;

复制代码

问题依旧。。。。

我也遇到了相似的问题

1. %let dsname=infor;
   
2. proc sql noprint;
   
3. select name into :&dsname._var separated by ' ' from &dsname._contents;
   
4. quit;

复制代码

上面的代码运行无误，可以把变量名提取出来。

1. %macro inputcsv(file=,dsname=);
   
2. filename mycsv &file;
   
3. proc import out=&dsname datafile=mycsv dbms=csv replace;
   
4.          getnames= yes;
   
5. run;
   
6. 
   
7. proc contents data=&dsname out=&dsname._contents noprint;
   
8. run;
   
9. 
   
10. proc sql noprint;
    
11. select name into :&dsname._var separated by ' ' from &dsname._contents;
    
12. quit;
    
13. 
    
14. %mend;

复制代码

完全一样的代码放在macro函数中就不行
%put _user_找不到infor_var

放弃了。。。。。决定不把into套在macro里面了

开心，终于debug出来了~~

1. data a;
   
2. input x y ;
   
3. cards;
   
4. 1  3
   
5. 2  4
   
6. 5  7
   
7. ;
   
8. 
   
9. %macro var(dsname);
   
10. %global &dsname._num1;
    
11. proc sql noprint;
    
12. select x into :&dsname._num1 separated by ',' from &dsname;
    
13. quit;
    
14. %mend;
    
15. 
    
16. %var(a)
    
17. 
    
18. %put &a_num1;

复制代码

这个是示范代码~
最重要的一句是在macro里面建立全局宏变量。

哈哈哈哈哈