基于指定逻辑生成含新变量的表B的SAS宏开发需求咨询

嗨，我来帮你梳理这个SAS宏的开发思路和实现方案哈！

先明确核心需求 #

咱们的目标是从Table A生成Table B：

• Table B要包含Table A的全部原有变量（就是你列出来的First、Second、ID_S、DT_P等所有变量）
• 同时要新增一系列衍生变量：Other_ID、Other_DT、Other_DL、Other_Bill、Other_Provision、Other_Reference、Other_Diag1、Other_Diag2，每个新变量都遵循统一的判断逻辑：

  当First=1且Second=1时，如果对应的xxx_P变量非缺失、xxx_S变量缺失，就赋值1，否则赋值0；如果First和Second不同时为1，直接赋值0。

SAS宏实现方案 #

为了让代码更灵活（比如后续新增变量不用大改代码），咱们可以写一个通用宏来批量处理这些衍生变量，具体代码如下：

%macro create_tableB(tableA=, tableB=);
    /* 第一步：自动获取Table A的所有变量列表，避免手动硬编码 */
    proc sql noprint;
        select name into :var_list separated by ' '
        from dictionary.columns
        where libname = upcase(scan(&tableA,1,'.')) 
          and memname = upcase(scan(&tableA,2,'.'));
    quit;

    /* 第二步：定义需要生成衍生变量的变量对（xxx_P/xxx_S 对应 Other_xxx） */
    %let var_pairs = ID DT DL Bill Provision Reference Diag1 Diag2;

    /* 第三步：生成Table B的DATA步，批量处理衍生变量 */
    data &tableB;
        set &tableA;
        /* 循环处理每一组变量对，生成对应的Other_xxx变量 */
        %do i=1 %to %sysfunc(countw(&var_pairs));
            %let curr_var = %scan(&var_pairs, &i);
            /* 用ifn函数实现条件赋值，逻辑完全匹配你的要求 */
            Other_&curr_var = ifn(First=1 and Second=1 and not missing(&curr_var._P) and missing(&curr_var._S), 1, 0);
        %end;
        /* 保留原表所有变量 + 新生成的所有Other_前缀变量 */
        keep &var_list Other_:;
    run;
%mend create_tableB;

/* 宏调用示例：假设你的Table A在WORK库下，生成Table B也存到WORK库 */
%create_tableB(tableA=work.tableA, tableB=work.tableB);

代码关键点说明 #

1. 自动获取变量列表：用dictionary.columns系统表获取Table A的变量，不管Table A变量怎么变，代码都能自动适配，不用手动更新变量名。
2. 批量处理衍生变量：通过%do循环遍历var_pairs里的变量名，批量生成每个Other_xxx的赋值逻辑，减少重复代码，后期要加新变量的话，只要在var_pairs里加对应的变量名就行。
3. 简洁的条件赋值：用SAS的ifn()函数替代传统的if-then-else，一行代码搞定二分类赋值，代码更紧凑易读。

注意事项 #

• 如果你的Table A不在WORK库，调用宏时要写完整的库名+表名，比如tableA=my_test_lib.tableA。
• 如果变量名有特殊字符（比如空格、下划线以外的符号），需要调整代码处理，但从你给出的变量名来看都是常规格式，应该没问题。
• 如果后续需要调整判断逻辑（比如First/Second的条件变化），只要修改ifn()里的条件表达式就行。

备注：内容来源于stack exchange，提问作者Supraa