SAS作业运行失败：日期/星期取值逻辑错误排查求助

核心问题定位 #

• 星期与日期硬匹配错误：现有逻辑固定循环上个月1-31号的所有日期，强行拼接MON/TUE/WED/THU/FRI/SAT/SUN7种星期后缀的表名，完全没有校验对应日期的实际星期属性，比如某日期实际是周二，代码仍会尝试读取该日期后缀为WED的表，自然会出现匹配失败的问题。
• 日期边界逻辑错误：月份直接用month(today())-1计算，遇到1月时会得到月份值0，且年份不会自动切换为上一年，拼接出的表名格式完全不符合实际存储规则。
• 日期循环逻辑错误：固定循环1-31号，未考虑小月只有30天、2月只有28/29天的情况，会尝试读取不存在的日期对应的表。
• 过滤条件语法错误：最后数据步中if OLT_name = "IdasOltpr%" then delete;写法错误，等号不支持通配符匹配，无法正确删除测试数据。

修复方案 #

1. 替换错误的日期计算逻辑 #

使用SAS内置日期函数处理边界，避免硬计算出错：

/* 计算上个月的第一天、最后一天，自动处理跨年/跨月边界 */
%let prev_month_first = %sysfunc(intnx(month, %sysfunc(today()), -1, b));
%let prev_month_last = %sysfunc(intnx(month, %sysfunc(today()), -1, e));

2. 重构宏逻辑，自动匹配日期对应星期 #

删除原代码中7次宏调用和冗余的月份位数判断逻辑，改为循环上个月每一天，自动生成对应日期、星期的表名：

%macro trafik();
    /* 循环上个月每一天 */
    %do day_offset = 0 %to %sysfunc(intck(day, &prev_month_first, &prev_month_last));
        %let curr_date = %sysfunc(intnx(day, &prev_month_first, &day_offset));
        /* 自动生成补零的年/月/日、对应星期缩写，无需手动判断位数 */
        %let curr_year = %sysfunc(year(&curr_date));
        %let curr_month = %sysfunc(putn(%sysfunc(month(&curr_date)), z2.));
        %let curr_day = %sysfunc(putn(%sysfunc(day(&curr_date)), z2.));
        %let curr_weekday = %sysfunc(putn(&curr_date, downame3.));

        /* 拼接表名，100%匹配实际存储的表名规则 */
        %let table_suffix = &curr_year.&curr_month.&curr_day._&curr_weekday.;

        proc sql;
        create table Trafik_mac_&table_suffix.
        as select distinct a.cmts_name as OLT_name, a.macaddress, b.lid, 
            datepart(a.start_rec_creation_time) format ddmmyy10. as Date, 
            round(sum(a.down_qos_service_octets_passed)*8/1000000,0.001) as down_mbit, 
            round(sum(a.up_qos_service_octets_passed)*8/1000000,0.001) as up_mbit 
        from trafik.Trafik_mac_&table_suffix. a 
        left join trafik.Macaddress_info_&table_suffix. b on a.macaddress=b.macaddress
        group by a.cmts_name, a.macaddress, datepart(a.start_rec_creation_time) 
        order by a.cmts_name, a.macaddress, datepart(a.start_rec_creation_time) desc;
        quit;

        proc sort data=Trafik_mac_&table_suffix. nodupkey; 
            by OLT_name macaddress; 
        run;

        data trafik;
            set trafik Trafik_mac_&table_suffix.;
        run;
    %end;
%mend trafik;
%trafik();

3. 修正过滤条件 #

将通配符匹配改为like运算符：

data trafik (drop = month);
    set trafik;
    if OLT_name like "IdasOltpr%" then delete;
    if macaddress = "aaaa-aaaa-aaaa" then delete;
    Mont=month(date);
    Year=year(date);
run;

内容的提问来源于stack exchange，提问作者Morten Høy