如何每次运行SAS代码时为POLICY_VINTAGE表新增周度NRB统计列

可以实现该需求，核心逻辑是自动识别POLICY_VINTAGE数据集中已有的周序列列的最大编号，生成对应新列名后，将本次计算结果合并到原数据集内，无需每次手动修改列名配置。

完整实现代码如下：

1. 自动计算下一个周序列编号 #

/* 提取原数据集所有列名，筛选Week开头的列计算最大周数 */
proc contents data=POLICY_VINTAGE out=col_list noprint;
run;

proc sql noprint;
    select max(input(scan(name,2,'k'),best.)) into :max_week 
    from col_list 
    where upcase(name) like 'WEEK%' and not missing(input(scan(name,2,'k'),best.));
quit;

/* 生成新列名，首次运行无历史列时默认从Week1开始 */
%let new_week = Week%eval(&max_week + 1);
%if &max_week. = %then %let new_week = Week1;

2. 计算本次周度NRB计数临时表 #

proc sql;
    create table week_temp as
    select distinct 
        POLICY_VINTAGE,
        count(NRB) as &new_week.
    from PolisyEnd
    where POLIS ="A"
    group by POLICY_VINTAGE;
quit;

3. 合并原数据集追加新列 #

proc sql;
    create table POLICY_VINTAGE as
    select a.*, b.&new_week.
    from POLICY_VINTAGE a
    left join week_temp b
    on a.POLICY_VINTAGE = b.POLICY_VINTAGE
    order by POLICY_VINTAGE;
quit;

/* 清理临时生成的中间表 */
proc delete data=col_list week_temp;
run;

补充说明 #

• 首次运行原数据集不存在时，可先运行你原有的生成Week1的代码创建初始表，后续直接运行上述代码即可自动追加列
• 每次运行都会自动生成下一个递增的WeekX列，无需手动调整代码
• 新增列的匹配逻辑以POLICY_VINTAGE维度值为关联键，缺失维度的计数会默认置空

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