基于年月二级后缀的SAS变量编辑问题求助

问题背景 #

现有SAS数据集包含按年月命名的字符型变量（如var1999_01），需根据每条观测的date1、date2与变量名隐含的当月第一天（refdate）的比较结果，批量修改变量值。原宏代码无法正常运行，需修复或提供替代实现。

原宏代码的核心问题 #

• 混淆宏逻辑与数据步逻辑：原代码用%if处理数据步中的变量条件（如date1 > &refdate.），但%if是编译时宏语句，无法识别数据步运行时的变量值，应改用数据步的if语句。
• 错误判断缺失值：%length(date2)是宏函数，无法获取数据步中date2的实际值，应改用数据步的not missing(date2)判断。
• 宏变量使用不当：原代码将refdate定义为宏变量，虽数值正确，但改为数据步变量更清晰，避免宏编译时的潜在冲突。

修复后的宏代码 #

%macro fix_update_vars;
    data wantdata;
        set toydata;
        %do i=1999 %to 2000;
            %let year = &i.;
            array var&year. [3] $ var&year._01-var&year._03;
            %do j=1 %to 3;
                /* 生成变量名对应的当月第一天日期值（数据步临时变量） */
                refdate = mdy(&j., 1, &year.);
                
                /* 第一个条件：date1晚于refdate时修改变量值 */
                if date1 > refdate then var&year.[&j.] = 'nye';
                
                /* 第二个条件：date2非缺失时的判断 */
                if not missing(date2) then do;
                    if date2 = refdate then var&year.[&j.] = 'event this month';
                    else if date2 < refdate then var&year.[&j.] = 'past event';
                end;
            %end;
        %end;
        drop refdate; /* 移除临时变量 */
    run;
%mend;

%fix_update_vars;

替代实现思路（无需宏，动态解析变量名） #

如果数据集的年份、月份范围不固定，可以通过解析变量名动态生成refdate，避免硬编码循环范围，适配更通用的场景：

data wantdata_dynamic;
    set toydata;
    /* 定义所有目标变量的数组（匹配所有以var开头的变量） */
    array vars[*] $ var:;
    
    do k=1 to dim(vars);
        /* 从变量名中提取年份和月份 */
        varname = vname(vars[k]);
        year = input(scan(varname, 2, '_'), 4.);
        month = input(scan(varname, 3, '_'), 2.);
        
        if not missing(year) and not missing(month) then do;
            refdate = mdy(month, 1, year);
            
            /* 应用条件判断 */
            if date1 > refdate then vars[k] = 'nye';
            
            if not missing(date2) then do;
                if date2 = refdate then vars[k] = 'event this month';
                else if date2 < refdate then vars[k] = 'past event';
            end;
        end;
    end;
    drop k varname year month refdate;
run;

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