如何将LIB1库中所有表批量插入至KOL.DSN表？

核心思路 #

通过SAS宏循环遍历LIB1库中的所有表，对每个表重复执行原有的字段匹配插入逻辑。具体步骤为：

• 获取LIB1库下的所有表名
• 循环每个表，提取KOL.DSN中除ID_F外的字段列表，将对应字段从当前表插入至KOL.DSN

完整代码 #

LIBNAME lib1 'U:\Dossier';
run;

/* 获取LIB1库下的所有数据集表名，存入宏变量 */
proc sql noprint;
    select nliteral(memname) into :tbl_list separated by ' '
    from dictionary.tables
    where libname="LIB1" and memtype="DATA"; /* 仅处理物理数据集，排除视图等对象 */
quit;

/* 定义批量插入宏 */
%macro insert_all_tables;
    /* 复用原逻辑获取目标表字段列表（排除ID_F） */
    proc sql noprint;
        select nliteral(name) into :varlist separated by ','
        from dictionary.columns
        where libname="KOL" and memname='DSN' and name ne 'ID_F';
    quit;

    /* 循环遍历每个表执行插入 */
    %do i=1 %to %sysfunc(countw(&tbl_list.));
        %let current_tbl = %scan(&tbl_list., &i.);
        proc sql;
            insert into KOL.DSN (&varlist.)
            select &varlist.
            from lib1.&current_tbl.;
        quit;
        /* 日志打印，跟踪处理进度 */
        %put 已完成表 &current_tbl. 的插入操作;
    %end;
%mend insert_all_tables;

/* 调用宏执行批量插入 */
%insert_all_tables;

关键说明 #

• dictionary.tables：SAS系统内置视图，用于读取指定库下的表元数据，memtype="DATA"确保只处理物理数据集
• nliteral()：自动处理表名/字段名含特殊字符的场景，避免SQL语法错误
• 若存在部分表缺少目标字段的情况，可在循环内新增字段校验逻辑（通过dictionary.columns检查当前表是否包含所有&varlist.字段），防止插入报错

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