SAS宏中IF语句偶发失效问题排查求助

我是SAS编程新手，编写了用于评估多团队绩效（to_worse、to_better、regolarizzato等）的宏代码，但以下IF规则并非始终正常生效，多数情况可用但偶发失效，无法定位原因，恳请分析失效缘由：

if team_&y.="&PROVIDER." and team_&i. eq "" and balance_&i. = 0 then do; regolarizzato = "regolarizzato"; end;
else if team_&i. ne team_&y. and team_&y. eq "&PROVIDER." and team_&i. ne "" then do; to_worse="to_worse"; end;
else if team_&i. = team_&y. and team_&y. eq "&PROVIDER." and balance_&y. > balance_&i. then do; to_better = "to_better"; end;

完整宏代码如下：

%let oggi = '07oct2022'd;

%let mese = %sysfunc (MONTH(&oggi.));
%IF &mese. < 10 %THEN %do; %let mese = 0&mese.; %end;
%let giorno = %sysfunc (DAY(&oggi.));
%let anno = %sysfunc(Year(&oggi.));
/*%IF &giorno. < 10 %THEN %do; %let giorno = 0&giorno.; %end;*/

%macro COSTI_1;
%let i = 0;
%DO i = 0 %TO &giorno.; 
    data COSTI_&i.;
    set data.initial_db_&mese.;
    format balance_&i. commax14.2;
    keep contract_number team_&i. balance_&i.;
    run;
%end;
%mend;
%COSTI_1;

data COSTI_db;
set COSTI_0;
run;

%macro COSTI_2;
%let i = 1;
%DO i = 1 %TO &giorno.;
    PROC SQL;
        CREATE TABLE COSTI_db AS
        SELECT         
             A.*,
             B.*
        FROM COSTI_db AS A LEFT JOIN COSTI_&i. AS B 
            ON (A.contract_number = B.contract_number);
        QUIT;
    run;
%end;
%mend;
%COSTI_2;

data COSTI_db;
set COSTI_db;
length team $ 20;
format team $CHAR30.;
team="altro";
run;

%MACRO COSTI_PROVIDER (PROVIDER);
data COSTI_db_&Provider.;
set COSTI_db;
run;
    
    %macro COSTI_A;
    %let i = 0;
    %DO i = 0 %TO &giorno.;
        data COSTI_db_&Provider.;
        set COSTI_db_&Provider.;
            if team_&i. = "&PROVIDER." then team = "&PROVIDER.";
        run;
    %end;   
    %mend;
    %COSTI_A;
    
    DATA COSTI_&PROVIDER.;
    set COSTI_db_&Provider. (where =(team="&PROVIDER."));
    length to_worse $ 20;
    format to_worse $CHAR30.;
    length to_better $ 20;
    format to_better $CHAR30.;
    length regolarizzato $ 20;
    format regolarizzato $CHAR30.;
    to_worse="no";
    to_better="no";
    regolarizzato="no";
    run;
    
    %macro to_worse;
    %let i = 1;
    %let y = %eval(&i.-1);
    %DO i = 1 %TO &giorno.;
        data COSTI_&PROVIDER.;
        set COSTI_&PROVIDER.;
            if team_&y.="&PROVIDER." and team_&i. eq "" and balance_&i. = 0 then do; regolarizzato = "regolarizzato"; end;
            else if team_&i. ne team_&y. and team_&y. eq "&PROVIDER." and team_&i. ne "" then do; to_worse="to_worse"; end;
            else if team_&i. = team_&y. and team_&y. eq "&PROVIDER." and balance_&y. > balance_&i. then do; to_better = "to_better"; end;
        run;
    %end;
    %mend;
    %to_worse;
    
    data COSTI_&PROVIDER.;
    set COSTI_&PROVIDER.;
    length esito_finale $ 20;
    format esito_finale $CHAR30.;
    format balance_affido commax12.2;
        if to_worse="to_worse" then esito_finale="to_worse";
        else if regolarizzato = "regolarizzato" then esito_finale="regolarizzato";
        else if to_better = "to_better" then esito_finale = "to_better";
        else if team_&giorno. = "&PROVIDER." then esito_finale = "in_gestione_oggi";
        if richiamo_o_repo = "&PROVIDER." and inflows < -1 then esito_finale = "richiamo";
        if richiamo_o_repo = "&PROVIDER." and to_normal > 1 then esito_finale = "repo";
        if team_0 = "&PROVIDER." then balance_affido = balance_0;
        else balance_affido = -1;
        drop INFLOWS TO_NORMAL RICHIAMO_O_REPO;
    run;
    
    %macro COSTI_B;
    %let i = 0;
    %DO i = 1 %TO &giorno.;
    data COSTI_&PROVIDER.;
    set COSTI_&PROVIDER.;
        if team_&i. = "&PROVIDER." and balance_affido = -1 then balance_affido=balance_&i.;
    run;
    %end;
    %mend;
    %COSTI_B;
    
    proc sql;
        create table RIEPILOGO_&PROVIDER.
        as select esito_finale, sum(balance_affido) as somma_balance_affido
        from COSTI_&PROVIDER.
        group by esito_finale;
        quit;
    
    data RIEPILOGO_&PROVIDER.;
    set RIEPILOGO_&PROVIDER.;
    format somma_balance_affido commax12.2;
    run;
%MEND;

%COSTI_PROVIDER(TEAM_A);
%COSTI_PROVIDER(TEAM_B);
%COSTI_PROVIDER(TEAM_C);
%COSTI_PROVIDER(TEAM_D);

失效原因分析 #

1. 宏变量y未随循环更新
   在to_worse宏中，%let y = %eval(&i.-1);定义在循环外部，仅在宏编译时计算一次（此时i=1，y=0）。后续循环中i递增，但y不会自动重新计算，导致所有循环都用team_0和team_&i.比较，而非预期的“前一天团队”与“当天团队”对比，逻辑完全错误，这是偶发失效的核心原因。

2. 字符空值判断不严谨
   用team_&i. eq ""判断空值时，若team_&i.实际是填充空格的字符变量（SAS字符变量长度固定，未填满部分补空格），该条件无法匹配。应使用missing(team_&i.)或trim(team_&i.) eq ""来覆盖空字符串和全空格的情况。

3. 数值精度问题
   balance_&i. = 0直接判断等于0，若balance是浮点型变量，可能因计算精度误差（如实际值为0.0000001）导致判断失效，建议用abs(balance_&i.) < 1e-6判断数值接近0的情况。

4. 循环内重复生成数据集的效率与风险
   每次循环都重新生成COSTI_&PROVIDER.数据集，虽不会直接导致失效，但会降低运行效率，且若中间步骤出错不易排查。

修正建议 #

1. 将y的定义移至循环内部，确保每次循环都重新计算前一天的索引：

%macro to_worse;
%DO i = 1 %TO &giorno.;
    %let y = %eval(&i.-1); /* 移到循环内，随i更新 */
    data COSTI_&PROVIDER.;
    set COSTI_&PROVIDER.;
        if team_&y.="&PROVIDER." and missing(team_&i.) and abs(balance_&i.) < 1e-6 then do; 
            regolarizzato = "regolarizzato"; 
        end;
        else if team_&i. ne team_&y. and team_&y. eq "&PROVIDER." and not missing(team_&i.) then do; 
            to_worse="to_worse"; 
        end;
        else if team_&i. = team_&y. and team_&y. eq "&PROVIDER." and balance_&y. > balance_&i. then do; 
            to_better = "to_better"; 
        end;
    run;
%end;
%mend;

2. 优化COSTI_A宏，用数组一次性处理所有team_&i.变量，避免多次data步：

%macro COSTI_A;
data COSTI_db_&Provider.;
set COSTI_db_&Provider.;
    array team_[0:&giorno.] $; /* 定义数组覆盖所有team变量 */
    do i = 0 to &giorno.;
        if team_[i] = "&PROVIDER." then team = "&PROVIDER.";
    end;
run;
%mend;

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