求助：SAS 宏函数的返回值

shiyiming

我现在想设个宏函数，需要返回值，程序如下；
%marco a(add,city);
  %if index(&add,'ab')>0 %then &city=1;
%mend a;
data b;
   set c;
   if d=3 then %a(add,city);
run;
/* add='abdc' */
请问这样能得到city的返回值吗？

shiyiming

可以，但是要加%let在赋值语句前面
....
%let &city=1;
....

另外，你的data步中的语句有点问题，
if d=3 then %a(add,city);
这句话总显得有点不伦不类，
建议先调用宏a，然后再使用宏变量city：
%let add=abdc;
%a(&add,city);
data b;
   set c;
   if d=3 then d=&city;
run;
...
具体在data步中怎么使用变量city，看你自己的需要而定了。

shiyiming

谢谢楼上的帮忙，我想请问如果变量是来自一个数据集中，而非自定义的宏变量，那么应该如何在DATA步中应用宏函数呢？

shiyiming

既然是数据集中的变量，为什么要用宏函数呢？大多数宏函数实现的功能在data 步中都有对应的函数可以调用。例如 宏函数%substr， 在数据集中就用substr函数，功能类似，但是一个是宏函数，一个是数据集函数。
如果非要对数据集中的变量用宏函数，那么可以先把数据集变量变成宏变量，例如：
data _null_;
     set 数据集;
     call symputx('宏变量名', 数据集变量,G或L);
run;
%宏函数(宏变量);
....

shiyiming

但是我想将数据集中的变量add通过宏函数进行比较后，再 在数据集中新建个变量CITY以记录ADD的比较结果，那这应该怎么做呢？
谢谢

shiyiming

看你上面的程序，你是想要比较一下变量里面是否含有某个字符串吧，那也可以用数据集函数index，不要用宏函数%index，例如：

data aaa;
     x='beijing';
     output;
     x='nanjing';
     output;
run;
data bbb(keep x y);
     set aaa;
     if index(x,'bei') > 0 then
          y=1;
     else
          y=0;
run;

shiyiming

我就是用INDEX函数做，但是我要比较的字段超过10个，所以想用宏函数使程序简洁些^_^
例如
if index(add,'a1')>0 then city='a1';
else if index(add,'a2')>0 then city='a2';
:
:
else city=' ';
这样，通过宏函数返回比较后的city值，并且存在于数据集中，请问这怎么办呢？
谢谢

shiyiming

[quote="parnwang":3tszvsco]我就是用INDEX函数做，但是我要比较的字段超过10个，所以想用宏函数使程序简洁些^_^
例如
if index(add,'a1')>0 then city='a1';
else if index(add,'a2')>0 then city='a2';
:
:
else city=' ';
这样，通过宏函数返回比较后的city值，并且存在于数据集中，请问这怎么办呢？
谢谢[/quote:3tszvsco]
如果有10个以上的字段需要比较的话，那调用index 超过10次是免不了的，就算放在宏里面，也要调用超过10次的，所以宏并不能够降低程序复杂度的，就这样做就可以了。

shiyiming

我想通过这个程序能学习下如何利用宏函数返回值，就像C/C++中通过全局函数的参数引用达到返回修改参数的目的，请问宏函数应该怎么做呢？

shiyiming

有两种方法：
1）带参数的返回值，
宏定义：
%macro test1(var);
....
%let &var=1;
....
%mend;
宏调用：
%local ret;
%test1(ret);
%put return is:&ret;
....

2)直接写宏的返回值，注意这个前提条件是宏定义中不能有data步和proc步。
宏定义：
%macro test2(a,b);
%if a < b %then %do;
1
%end;
%else %do;
0
%end;
%mend;

宏调用：

%let x=100;
%let y=200;
%let ret=%test2(x,y);
%put return is:&ret;
....

主要就这两种方式的返回值，前一种方法使用居多就是在参数前面加上“&”再赋值。