请大家帮我看看一段代码，哪个地方有语法问题

rt

1. %macro genstat(index=,delim=);
   
2. 
   
3. %let i=1;
   
4. %do %while(%scan(%quote(&index),&i,%quote(&delim)) ne );
   
5. %let Nindex=%scan(%quote(&index),&i,%quote(&delim));
   
6. %if &i=1 %then %do;
   
7. data  comstat; set &Nindex.343stat; run;
   
8. %end;
   
9. 
   
10. proc append base=comstat data=&Nindex.343stat force;run;
    
11. 
    
12. 
    
13. 
    
14. %let i=%eval(&i+1);
    
15. %end;
    
16. 
    
17. %mend;
    
18. 
    
19. %genstat(index=%str(age9 , netppediva , bm ,gsdiva, efdiva),delim=%str(,));

复制代码

不懂，不过顶一下

顶！虽然不懂，请问楼主代码是在什么编译器中编译？

没有用编辑器啊

data  comstat; set &index.343stat; run;
set语句后面一大串,还有逗号,是不符合要求的吧

freerunning_sky 发表于 2014-9-7 21:55

非常感谢
能否解释一下为什么非要加这一段
%let Nindex=%scan(%quote(&index),&i,%quote(&delim));

小鳄鱼a 发表于 2014-9-9 16:22
非常感谢
能否解释一下为什么非要加这一段
%let Nindex=%scan(%quote(&index),&i,%quote(&delim));

额，这个就是从&index中一个一个单词读出来啊，你会写上面那段代码，难道不知道什么意思么。。。

freerunning_sky 发表于 2014-9-9 16:34
额，这个就是从&index中一个一个单词读出来啊，你会写上面那段代码，难道不知道什么意思么。。。

哦   ，  我知道   ，明白了  ，呵呵   ，谢谢

freerunning_sky 发表于 2014-9-9 16:34
额，这个就是从&index中一个一个单词读出来啊，你会写上面那段代码，难道不知道什么意思么。。。

高手，你好，非常感谢经常出手相助，再请教一个，我又增加了一个mark的字符串系列，跟index的是对应的，我现在想实现的功能是在调用index里的数据集的时候，想调用对应位置的mark.比如age9调用的是dgsvotflag,netppediva调用的是downflag,bm对应dbmflag等。

请问该怎样写主体外部的循环结构，非常感谢

1. %macro picword(indexstring=,mark=,delim=%str(,));
   
2. 
   
3. 
   
4. 
   
5. ods rtf;
   
6. 
   
7. 
   
8. %let i=1;
   
9. %do %while(%scan(%quote(&indexstring),&i,%quote(&delim)) ne );
   
10. %let Nindexstring=%scan(%quote(&indexstring),&i,%quote(&delim));/*为什么必须加上这一句*/
    
11. 
    
12. 
    
13. /*程序处理主体
    
14. proc gplot data= &Nindexstring.num6;
    
15. plot &Nindexstring.pct*date=&mark/hminor=0 legend=legend99 vaxis=0 to 0.5 by 0.1;
    
16. symbol1 v=diamond i=join c=blue;
    
17. symbol2 v=star i=join c=red;
    
18. symbol3 v=square i=join c=yellow;
    
19. run;
    
20. */
    
21. 
    
22. %let i=%eval(&i+1);
    
23. %end;
    
24. 
    
25. 
    
26. ods rtf close;
    
27. 
    
28. 
    
29. 
    
30. 
    
31. %mend;
    
32. %picword(index=%str(age9 , netppediva , bm ,gsdiva, efdiva),mark=%str(dgsvotflag,downflag, dbmflag ,dgsdivaflag, defdivaflag),delim=%str(,));

复制代码