如何在SAS宏中传递Oracle可识别的日期参数作为过滤条件

需要创建SAS宏程序，遍历Oracle数据集，按publish_yr_mth变量和发布日期过滤。例如当publish_yr_mth为201001时，设置publish_dt>=01-JAN-2010，后续处理数据集中的下一组日期（间隔不固定）。

非宏版本代码可正常运行：

proc sql ;
  connect to oracle as mydb(user=user orapw="&dbpass" path=oracledb );
  create table bk_samp as select * from connection to mdb (
    select author ,title from books_db where publish_dt >=’01-JAN-2010’ and publish_yr_mnth=201001  
  ) ;
quit;

但宏版本中，仅用publish_yr_mth时程序可运行，一旦加入publish_dt过滤条件（即使传入字符串格式日期或硬编码）就无法运行。尝试过多种日期字符格式均无效，以下是待运行的宏版本代码：

data months;
  input publishdt publish_yr_mth;
  datalines ;
201001 01-JAN-2010
201002 02-FEB-2010
201005 02-MAY-2010
;

proc sql ;
  select distinct publishdt
  into: publishdt1-
  from months;
quit


%macro books(publishdt, publish_yr_mth): 
  %do i =1 %to &sqlobs; 
    proc sql ; 
      connect to oracle as mydb(user=user orapw="&dbpass" path=oracledb );
      create table bk_samp as select * from connection to mdb (
        select author ,title from books_db where publish_dt >=&&publishdt&i and publish_yr_mnth=&&publishyrmth&i
      ) ;
    quit; 
  %end; 
%mend books
%books();

请问如何在SAS宏中传递Oracle可识别的日期参数？或是有其他问题导致程序无法运行？

核心问题 #

1. 日期字符串未加引号：Oracle中日期字面量需要单引号包裹，宏变量直接引用会丢失引号，导致Oracle无法识别为日期。
2. 变量赋值与引用错误：
   • months数据集变量顺序颠倒，input publishdt publish_yr_mth;对应的数据行把年月值赋给了publishdt，日期字符串赋给了publish_yr_mth，完全不符合需求。
   • 宏中引用的&&publishyrmth&i变量未定义，原SQL只生成了publishdt1-系列宏变量，没有生成年月对应的宏变量。
3. 语法错误：宏定义末尾用了冒号:而非分号;；quit语句后缺少分号；宏定义要求传参但调用时未传参，且实际不需要手动传参。

修正后的完整代码 #

1. 构建正确的日期映射数据集

data months;
  input publish_yr_mth :6. publish_dt_start :date9.;
  format publish_dt_start date9.;
  datalines ;
201001 01JAN2010
201002 01FEB2010
201005 01MAY2010
;
run;

2. 生成带引号的日期宏变量与年月宏变量

proc sql noprint;
  select publish_yr_mth, quote(trim(put(publish_dt_start, date9.)), "'")
    into :yrmth1-, :dt_start1-
  from months;
  %let total_months = &sqlobs;
quit;

这里用quote()函数直接给日期字符串添加单引号，确保传递到Oracle时是合法的日期字面量。

3. 修正宏程序

%macro books;
  %do i = 1 %to &total_months;
    proc sql;
      connect to oracle as mydb(user=user orapw="&dbpass" path=oracledb);
      create table bk_samp_&i as 
        select * from connection to mydb (
          select author, title 
          from books_db 
          where publish_dt >= &&dt_start&i 
            and publish_yr_mnth = &&yrmth&i
        );
      disconnect from mydb;
    quit;
  %end;
%mend books;

%books;

关键说明 #

• 引号处理：通过quote()函数给日期字符串自动添加单引号，避免宏展开后Oracle无法识别日期。
• 变量映射：确保数据集变量与业务需求一致，避免顺序颠倒导致的赋值错误。
• 表名唯一：循环中生成bk_samp_&i格式的表名，防止每次循环覆盖之前的结果。
• 语法修正：修正宏定义、quit语句的语法错误，确保SAS能正确解析宏代码。

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