如何用SAS循环遍历指定数据集表，比对两个Libref下的数据集？

问题背景 #

有两个对应SAS Libref的文件夹，其中包含大量名称完全一致的数据集，需要比对其中特定数据集（而非全部）来确认是否一致。已通过proc sql创建了存储目标数据集名称的表specific_tables，现需实现遍历该表，逐一比对两个文件夹中对应的数据集。

用户提供的创建指定数据集列表的代码（修正语法错误后）：

proc sql;
   create table specific_tables (table_name CHAR(100));
     insert into specific_tables  /* 修正原代码的语法错误 */
     values('name_of_dataset1')   /* 字符串值需添加单引号 */
     values('name_of_dataset2')
     values('name_of_dataset3')
     values('name_of_dataset4')
     values('name_of_dataset5');
quit;

用户提供的宏雏形：

%macro compare;

libname a "file path";
libname b "file path";

%do i %to number of datasets to compare;

proc compare base = a.name_of_dataset&i
compare= b.name_of_data&I
run;

 %end;
%mend;

解决方案：两种可行的遍历比对方式 #

方案1：数据步动态生成比对代码 #

无需复杂宏循环，直接从specific_tables读取表名生成proc compare执行代码：

/* 先定义两个目标库 */
libname a "文件夹A的实际路径";
libname b "文件夹B的实际路径";

/* 生成并执行比对代码 */
data _null_;
   set specific_tables;
   file print;  /* 若需保存代码可改为写入.sas文件，后续用%include执行 */
   put "proc compare base=a." table_name "compare=b." table_name "listall noprint;" /
       "run;";
run;

• listall：展示所有差异细节
• noprint：仅输出差异信息，不打印无差异的冗余内容（可按需移除）

方案2：宏循环实现遍历 #

先将表名存入宏变量列表，再循环执行比对：

/* 定义目标库 */
libname a "文件夹A的实际路径";
libname b "文件夹B的实际路径";

/* 将指定表名存入宏变量列表 */
proc sql noprint;
   select table_name into :table_list separated by ' '
   from specific_tables;
   select count(*) into :table_count
   from specific_tables;
quit;

/* 遍历比对的宏 */
%macro compare_tables;
   %do i=1 %to &table_count.;
      %let current_table = %scan(&table_list., &i.);
      proc compare base=a.&current_table. compare=b.&current_table. listall;
         title "比对数据集：&current_table.";
      run;
   %end;
%mend;

/* 执行宏开始比对 */
%compare_tables;

注意事项 #

• 确保两个Libref对应的文件夹路径正确，且SAS具备读写权限
• 若数据集存在变量类型、长度差异，proc compare会标记为差异，需结合业务场景判断是否合理
• 可按需添加proc compare参数，比如out=diff_result将差异结果存入数据集，方便后续分析

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