如何使用SAS宏为数据集每行创建对应宏变量？

我有如下SAS数据集：

A1  A2  A3
B   1   0.89606
B   2   0.10058
B   3   0.00336
C   1   0.88083
C   2   0.07205
C   3   0.04712
L   1   0.93198
L   2   0.06802
L   3   0.0000
R   1   0.8096
R   2   0.18359
R   3   0.00681

我希望为每一行创建对应的宏变量，编写了如下宏代码：

%MACRO TEST (Input);
%DO I = 1 %TO 3;
%global mac_var_&Input._&I.;
proc sql noprint;
    select  A3
    into    :mac_var_&Input._&I.
    from    data
    where   A1= "&Input." AND A2=  &I. ;
quit;

%END;
%MEND;

%TEST(R);
%TEST(B);
%TEST(L);
%TEST(C);

期望实现的效果示例：

the macro variable &mac_var_R_1 = 0.8096
the macro variable &mac_var_C_2 = 0.07205
the macro variable &mac_var_L_3 = 0.0000

原代码正确性验证 #

1. 语法与逻辑合规性：原代码语法无错误，%global声明确保宏变量为全局作用域，proc sql noprint的into语句能精准提取对应行的A3值，生成mac_var_<A1>_<A2>格式的宏变量，完全匹配需求。
2. 潜在不足：
   • 若数据集中存在A1-A2组合缺失的情况，对应宏变量会被创建但值为空，后续使用可能报错。
   • 每次调用宏需执行3次proc sql，数据集较大时效率偏低。

优化方案（批量高效生成） #

通过单次数据步遍历数据集，批量生成所有宏变量，替代多次SQL调用：

data _null_;
    set data;
    length varname $20;
    varname = catt('mac_var_', A1, '_', A2);
    call symputx(varname, A3, 'g'); /* 'g'指定宏变量为全局作用域 */
run;

优化优势： #

• 仅需遍历数据集一次，执行效率大幅提升。
• 自动覆盖所有行，无需手动逐个调用宏处理A1值，避免遗漏。
• call symputx自动处理变量长度，比proc sql的into语句更灵活。

内容的提问来源于stack exchange，提问作者MLPNPC