SAS将宏函数的结果分配给数据步骤中的数组

Question

该代码获取两个宏并将它们分配给数据步骤中的数组，然后遍历ln_vars中定义的每个变量，创建一个新变量，该变量是变量的自然对数，追加_ln的名字

%let ln_vars = var1 var2; 
%let ln_names = %add_string(&ln_vars, _ln); 

data transform; 
    set analysis; 
    array ln &ln_vars; 
    array ln_n &ln_names; 
    *call execute ('%add_string(%str(&ln_vars), _ln)'); 

do over ln; 
    ln_n = log(ln); 
end; 

run; 

也许有一个更好的习惯用语在sas代码（我希望）。 我希望能够传递一个宏（ln_vars宏）并从数据步骤中调用％add_string（）函数。 注释的“调用execute”返回正确的字符串，但是当我尝试

1588  array ln_n call execute ('%add_string(%str(&ln_vars), _ln)'); 
ERROR: Attempt to initialize variable call in numeric array ln_n with character constant 
     '%add_string(%str(&ln_vars), _ln)'. 

Answer 1

，如果你给我们的％add_string宏定义这将有助于。无论如何，它看起来像你需要& ln_names是与& ln_vars中的列表匹配的变量列表，除了每个变量都具有后缀'_ln'。

如果我是正确的，你并不真正需要的％add_string宏能做到这一点，而不是：

%let ln_vars = var1 var2; 
%let ln_names = %sysfunc(tranwrd(&ln_vars,%str(),%str(_ln)))_ln; 
%put LN_VARS: &ln_vars; 
%put LN_NAMES:&ln_names; 

data transform; 
    set analysis; 
    array ln &ln_vars; 
    array ln_n &ln_names; 
    do over ln; 
    ln_n = log(ln); 
    end; 
run; 

注意两个％看跌语句都是不必要的 - 他们只是摆在那里检查两个宏观变量

---

按您的评论的价值，你可以有一个宏：

%macro lnvars(vars=,suffix=_ln); 

    %let newvars=%sysfunc(tranwrd(&vars,%str(),%str(&suffix)))&suffix; 

    array ln &vars.; 
    array ln_n &newvars.; 
    do over ln; 
    ln_n = log(ln); 
    end; 

%mend; 

，然后从你的数据步骤调用宏如下：

data transform; 
    set analysis; 
    %lnvars(vars=var1 var2); 
run; 

（注意，我没有测试的代码，但你应该得到的总体思路）