如何在SAS中删除库内非本次生成的带日期后缀旧版本表？

需求说明 #

每次运行流程时，通过proc datasets将COL_DATA_TABLE重命名为带&sysdate.后缀的新表（如COL_DATA_TABLE_15FEB22），同时需要删除库中所有同前缀的旧表（仅保留本次生成的新表）。

解决方案代码 #

方法一：直接用proc datasets批量删除

这种方式简洁高效，适合直接在重命名操作后执行：

/* 定义本次生成的新表名宏变量 */
%let new_table = COL_DATA_TABLE_&sysdate.;

/* 重命名生成新表 */
proc datasets lib=Lib1 nolist ;
 change COL_DATA_TABLE = &new_table. ;
quit ;

/* 删除所有同前缀旧表（排除本次新表） */
proc datasets lib=Lib1 nolist nowarn;
 /* 匹配所有以COL_DATA_TABLE_开头的表 */
 delete COL_DATA_TABLE_: 
 /* 过滤掉本次生成的新表 */
 where name ne "&new_table.";
quit;

方法二：先查询再删除（更灵活）

如果需要先确认要删除的表列表，或者需要额外判断逻辑，可以借助SAS系统视图dictionary.tables实现：

%let new_table = COL_DATA_TABLE_&sysdate.;

/* 重命名生成新表 */
proc datasets lib=Lib1 nolist ;
 change COL_DATA_TABLE = &new_table. ;
quit ;

/* 查询库中符合条件的旧表名，存入宏变量 */
proc sql noprint;
 select name into :old_tables separated by ' '
 from dictionary.tables
 where libname = 'LIB1' /* 注意此处库名需大写，dictionary视图中存储为大写 */
   and name like 'COL_DATA_TABLE_%'
   and name ne "&new_table.";
quit;

/* 当存在旧表时执行删除 */
%if &sqlobs. > 0 %then %do;
 proc datasets lib=Lib1 nolist nowarn;
  delete &old_tables.;
 quit;
%end;

关键说明 #

• COL_DATA_TABLE_:是SAS的通配符语法，用于匹配所有以该前缀开头的表。
• nowarn参数用于避免在没有旧表可删除时弹出警告信息。
• dictionary.tables是SAS内置的系统视图，存储了当前会话中所有库、表的元数据信息，查询时库名必须大写。
• 若你的日期后缀格式不是&sysdate.默认的DDMMMYY（比如是YYYY_MM_DD），只需将&sysdate.替换为对应的日期宏变量即可，例如%sysfunc(date(),yymmddn8.)生成20220215，或%sysfunc(date(),yymmdd10.)生成2022-02-15后替换下划线。

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