对多个数据集使用相同的条件

Question

我的代码如下：

%macro xx(date);
proc sql;
create table test_&date as
select a.*
from population_&date as a
left join new_acct_no as b on a.names = b.names and put(intnx('month',input(put(&date,8. -l),yymmn6.),0,'e'),yymmdd10.) between b.birthdate and b.marriage_dt
left join old_acct_no as c on a.names = c.names and put(intnx('month',input(put(&date,8. -l),yymmn6.),0,'e'),yymmdd10.) between c.birthdate and c.marriage_dt
; 
quit;
%mend;
%date(201812);

我想通过替换“put(intnx('month',input(put(&date,8. -l),yymmn6.),0,'e'),yymmdd10.)”使我的代码更简洁。

任何想法如何做到这一点？

Answer 1

将静态计算的结果放在Proc SQL 之前的新符号中。 此外，在调用它时使用正确的宏名称。您定义了xx 并正在调用date

例子：

%macro Population_For(date);

%local this_month next_month;

%let this_month = %sysfunc(inputn(&date,yymmn6.));
%let next_month = %sysfunc(intnx(month,&this_month,1));

%put NOTE: SAS Date values &=this_month &=next_month;

proc sql check;
create table test_&date as
select a.*
from population_&date as a
left join new_acct_no as b on a.names = b.names and &next_month between b.birthdate and b.marriage_dt
left join old_acct_no as c on a.names = c.names and &next_month between c.birthdate and c.marriage_dt
; 
quit;
%mend;

%Population_For(201812);

正确的编码还取决于日期值如何存储在表new_acct_no 和old_acct_no 中。他们是

• SAS 日期值
• 构造数字yyyymmdd（即编码年 * 10000 + 月 * 100 + 日）
• 构造字符串 yyyymmdd 或 yyyy-mm-dd

注意：由 SAS 格式 yymmdd10. 呈现的日期表示 yyyy-mm-dd 在 other 数据库系统查询中被解释为日期文字，而在 SAS 中则不然.

日期数据存储为构造字符串yyyy-mm-dd

经过适当审查的 YMD 字符串的字典顺序与它们所代表的 SAS 日期值的顺序相同。

因此，如果两个表都将日期存储为 YMD 字符串，则此类日期数据可以通过计算和使用静态 next_month ymd 表示来处理。此类编码将无需在查询期间将字段birthdate 和marriage_dt 中的日期数据转换为SAS 日期。

%local this_month next_month next_YMD;

%let this_month = %sysfunc(inputn(&date,yymmn6.));
%let next_month = %sysfunc(intnx(month,&this_month,1));
%let next_YMD   = %sysfunc(putn(&next_month, yymmdd10.));

%put NOTE: SAS Date values &=this_month &=next_month;

proc sql check;
create table test_&date as
select a.*
from population_&date as a
left join new_acct_no as b on a.names = b.names and &next_month between b.birthdate and b.marriage_dt
left join old_acct_no as c on a.names = c.names and &next_month between c.birthdate and c.marriage_dt
;