SAS宏循环中syscc错误码读取异常的解决方法及替代方案

1. 错误重置syscc：使用%let syscc=0会创建局部宏变量syscc，覆盖系统自动宏变量&syscc，导致后续无法获取真实的错误码。
2. CALL EXECUTE延迟执行：数据步中CALL EXECUTE的宏调用会在数据步执行完成后才运行，无法实时获取%include后的错误状态，且容易导致宏变量解析时机错误。
3. 冗余SQL查询：两次proc sql查询可合并，提升运行效率。

主循环宏rerunner #

%macro rerunner();
    %do i=1 %to &numrecs;
        %put 当前处理记录：&i;

        /* 合并查询，获取代码和日志文件名 */
        proc sql noprint;
            select cname, lname
            into :selected_code, :selected_log
            from code_logs
            where rown=&i;
        quit;

        /* 统计目标日志中的ERROR数量 */
        data _null_; 
            infile "&loglocation./&selected_log." end=last;
            input;
            if _infile_ =: 'ERROR' then error_count+1;
            if last then do;
                /* 将错误计数存入宏变量 */
                call symputx('error_count', error_count);
            end;
        run;

        /* 直接根据错误计数调用对应的宏，避免CALL EXECUTE延迟 */
        %if &error_count >= 1 %then %do;
            %rerun(&selected_log., &selected_code.);
        %end;
        %else %do;
            %no_rerun(&selected_log.);
        %end;

    %end;
%mend;

重跑宏rerun #

%macro rerun(log,code);
    /* 使用SAS自带的%sysreset()重置系统错误状态，而非手动赋值syscc */
    %sysreset();

    /* 执行目标代码 */
    %include "&codelocation./&code." ;

    /* 检查系统错误码：syscc<=6表示无严重错误 */
    %if &syscc <= 6 %then %do;
        %success(&log.);
    %end;
    %else %do;
        %failure(&log.);
    %end;
%mend;

• 重置系统错误状态：用%sysreset()替代%let syscc=0，该宏会正确重置SAS的系统错误状态（包括&syscc），不会覆盖自动宏变量。
• 移除CALL EXECUTE：通过call symputx将错误计数存入宏变量，直接在主循环中判断并调用宏，确保错误状态实时获取。
• 合并SQL查询：减少一次数据库交互，提升代码运行效率。

如果需要更详细的错误信息，可以结合&syserrortext自动宏变量，在%rerun宏中添加日志输出：

%macro rerun(log,code);
    %sysreset();
    %include "&codelocation./&code." ;

    %if &syscc <= 6 %then %do;
        %success(&log.);
    %end;
    %else %do;
        %put 重跑&log.失败，错误信息：&syserrortext.;
        %failure(&log.);
    %end;
%mend;

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