SAS如何高效遍历指定日期范围内各月月末对应的日度数据集

核心优化思路是直接读取SAS字典表获取目标数据集，再筛选月末日期，完全避免无效遍历：

完整调整代码 #

%macro loop_through(start,end);
  /* 第一步：从字典表提取符合规则且在日期间隔内的月末数据集 */
  proc sql noprint;
    select memname into :dsn_list separated by ' '
    from dictionary.tables
    where libname = 'SAVE' 
      and memname like 'THEFILE_DLY_%' /* 匹配数据集命名规则 */
      /* 提取表名中的日期字符串转成SAS日期，校验是否在指定区间内 */
      and input(scan(memname,3,'_'),yymmdd8.) between input("&start.",yymmdd8.) and input("&end.",yymmdd8.)
      /* 判断是否为当月最后一天：日期等于对应月份的月末日期 */
      and input(scan(memname,3,'_'),yymmdd8.) = intnx('month',input(scan(memname,3,'_'),yymmdd8.),0,'e');
  quit;

  /* 第二步：仅遍历筛选出来的月末数据集 */
  %let dsn_cnt = &sqlobs.;
  %do i = 1 %to &dsn_cnt.;
    %let curr_dsn = %scan(&dsn_list.,&i.,' ');
    %let curr_dt = %scan(&curr_dsn.,3,'_');
    /* 此处替换为你原本的数据处理逻辑，当前处理的数据集是SAVE.&curr_dsn.，对应日期为&curr_dt. */
    %put 正在处理月末数据集：SAVE.&curr_dsn.；对应日期：&curr_dt.;
  %end;
%mend;

/* 宏调用，修正原代码的拼写错误：原调用写的%loop_though少了字母r */
%loop_through(20150831,20210731);

调整说明 #

• 解决遍历效率问题：通过查询dictionary.tables系统表，一次性获取SAVE逻辑库下所有符合命名规则的数据集，完全避免了按日遍历和exist()判断的冗余操作，数据量越大效率提升越明显
• 解决仅保留月末数据集的问题：使用intnx('month',日期,0,'e')计算当前日期对应月份的最后一天，和表名提取的日期做比对，直接过滤出所有月末数据集
• 修正了原代码的两处笔误：%sysunc实际应为%sysfunc，宏调用时的%loop_though拼写错误，正确为%loop_through

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