数组作为宏变量的调用

1. %macro testFunc(x1=,x2=,t=);
   
2. %global myFunc&i;
   
3. data dnull;
   
4. f&i.=&x1**2+&x2**2;
   
5. call symputx(cat('myFunc',&i),f&i.);
   
6. run;
   
7. %mend;
   
8. 
   
9. data main;
   
10. array x1_[3,5];
    
11. array x2_[3,5];
    
12. do j=1 to 5;
    
13.         do i=1 to 3;
    
14.                 x1_[i,j]=i+j;
    
15.                 x2_[i,j]=i*2+j;
    
16.         end;
    
17. end;
    
18. run;

复制代码

将x1=x1_[3,j],x2=x2_[3,j],t=j(j=1,2,3,4,5)调用testFunc，得到myFunc1-myFunc5

1. %macro testFunc(x1=,x2=,i=);
   
2. %global myFunc&i;
   
3. data dnull;
   
4. f&i.=&x1**2+&x2**2;
   
5. call symputx(cat('myFunc',&i),f&i.);
   
6. run;
   
7. %mend;
   
8. 
   
9. data main;
   
10. array x1_[3,5];
    
11. array x2_[3,5];
    
12. do j=1 to 5;
    
13.         do i=1 to 3;
    
14.                 x1_[i,j]=i+j;
    
15.                 x2_[i,j]=i*2+j;
    
16.         end;
    
17. end;
    
18. 
    
19. do j = 1 to 5;
    
20.     a1 = x1_[3,j];
    
21.     a2 = x2_[3,j];
    
22.     call execute('%testfunc(x1=' || a1 ||", " || 'X2=' || a2 || ", " || 'i=' || j || ')');
    
23. end;
    
24. run;

复制代码

感谢大神回复，能正常运行！
我再实际使用中还是没法熟练运用，被这几个符号困扰：',||,"

1. %do n=1 %to &Num.;
   
2.         %do i=1 %to &Xvar.;       
   
3.                 xTmp=put(Xvar[&i,&n],best.);
   
4.                 call symputx(cat('xTmp',&i),xTmp);               
   
5.         %end;
   
6.         call execute('....');
   
7. %end;

复制代码

execute里的语句希望是：%testFunc(x1=xTmp1,....,x&Xvar.=xTmp&Xvar.,t=&n.)
总是拼不对。希望。。。

本该酬金奉上，怕出现”已解决“失去关注。

这里xTmp。。是对应数组的值

freetiger 发表于 2015-2-25 14:10
感谢大神回复，能正常运行！
我再实际使用中还是没法熟练运用，被这几个符号困扰：',||,"

目的是生成一个字符串放在execute()中运行. 这个字符串是call　execute()语句要运行的内容。

换句话说，这个字符串应该是一段可以单独运行的程序。

|| 是将前后两个字符串连接起来形成一个新的字符串.

a1, a2, j 是数据步的变量，因此连接时用的是变量的值。而其他的 x1, x2, 等号，逗号等在call　execute()　语句中都做为字符处理。

cats()函数和 || 有同样的功能，而且比较易懂。

1. data main;
   
2. array x1_[3,5];
   
3. array x2_[3,5];
   
4. do j=1 to 5;
   
5.         do i=1 to 3;
   
6.                 x1_[i,j]=i+j;
   
7.                 x2_[i,j]=i*2+j;
   
8.         end;
   
9. end;
   
10. 
    
11. do j = 1 to 5;
    
12.     a1 = x1_[3,j];
    
13.     a2 = x2_[3,j];
    
14.     text = cats('%testfunc( x1=',
    
15.                               a1,
    
16.                             ', ',
    
17.                            'x2=',
    
18.                               a2,
    
19.                             ', ',
    
20.                             'i=',
    
21.                                j,
    
22.                               ')' );
    
23.     put j=  a1=  a2=  text=;
    
24.     call execute(text);
    
25. *    call execute('%testfunc(x1=' || a1 ||", " || 'X2=' || a2 || ", " || 'i=' || j || ')');
    
26. end;
    
27. run;

复制代码

更详细的, 可以参考 https://bbs.pinggu.org/thread-2377205-1-1.html