SAS获取当前日期的上月初日期、上月末日期问题

具体程序和报错请看下面代码，请各位高手帮忙解答下吧，拜谢了！

%LET begdate=put(intnx('month',today(),-1,'end'),yymmd7.)||'-01'; //为上月初得到的值为'2013-02-01'
%LET enddate=put(intnx('DAY',today(),-day(today())),yymmdd10.);   //为上月末得到的值为'2013-02-28'
proc sql;
%tdlink;
create table test as   
select *     
  from connection to teradata         
  (
        select *
     from wy_table
     where Card_Num='XXXXXXXXXXXXXXXX'
         and Event_Dt between &begdate and &enddate
   );
disconnect from teradata;

quit;

运行后报错为 Teradata prepare: Syntax error: Data Type "intnx" does not match a Defined Type name.

如果改成 %LET begdate='2013-02-01' %LET enddate='2013-02-28' 就可以正常运行了了。

比较奇怪，通过TD函数获取的是字符串类型的，这样有问题吗？还需要如何转换下？

1. data _null_;
   
2. begdate=put(intnx('month',today(),-1,'b'),yymmdd10.);
   
3. enddate=put(intnx('month',today(),-1,'e'),yymmdd10.);
   
4. call symput("begdate",begdate);
   
5. call symput("enddate",enddate);
   
6. run;

复制代码

  data 步函数不能随便在宏中使用，一般要加%或%sysyfunc，不过不知道put能不能在宏函数中使用

Imasasor 发表于 2013-3-14 12:20
data 步函数不能随便在宏中使用，一般要加%或%sysyfunc，不过不知道put能不能在宏函数中使用

input , put, 所有的数组函数等不能用于%sysfunc中。

webgu 发表于 2013-3-14 13:37
input , put, 所有的数组函数等不能用于%sysfunc中。

嗯，但PUTN和PUTC又可以了
SAS在这些函数上的设定真是蛋疼啊

playmore 发表于 2013-3-14 13:42
嗯，但PUTN和PUTC又可以了
SAS在这些函数上的设定真是蛋疼啊

嗯，不报错，但是好像不能出结果。
查了下，putc,putn在运行时执行。
put在编译时执行。

webgu 发表于 2013-3-14 14:05
嗯，不报错，但是好像不能出结果。
查了下，putc,putn在运行时执行。
put在编译时执行。

那大虾，我的代码需要作如何修改呢？
create table test as   
select *     
  from connection to teradata         
  (
        select *
     from wy_table
     where Card_Num='XXXXXXXXXXXXXXXX'
         and Event_Dt between &begdate and &enddate
   );
Event_Dt 需between 当前系统日期的上月初日期及上月末日期，否则每个月我都得手工去修改日期，比较麻烦，不能用PUT该如何是好呢

flyarrow998 发表于 2013-3-14 14:18
那大虾，我的代码需要作如何修改呢？
create table test as   
select *

2楼的CODE应该可以的。

webgu 发表于 2013-3-14 14:54
2楼的CODE应该可以的。

按2楼代码修改后运行没有报错，但查询无数据，奇怪了，如果begdate和enddate确实为'2013-02-01'和'2013-02-28' 那么数据库中是有数据的，后来通过select &begdate,&enddate 查看,&begdate 尽然变成了'2010' &enddate 变成了'1983'，费解啊！

data _null_;

begdate=put(intnx('month',today(),-1,'b'),yymmdd10.);

enddate=put(intnx('month',today(),-1,'e'),yymmdd10.);

call symput("begdate",begdate);

call symput("enddate",enddate);

run;

proc sql;
%tdlink;
create table test as   
select *     
  from connection to teradata         
  (
        select *
     from wy_table
     where Card_Num='XXXXXXXXXXXXXXXX'
         and Event_Dt between &begdate and &enddate
   );
disconnect from teradata;

quit;

11   data _null_;
12   begdate=put(intnx('month',today(),-1,'b'),yymmdd10.);
13   enddate=put(intnx('month',today(),-1,'e'),yymmdd10.);
14   call symput('begdate',begdate);
15   call symput('enddate',enddate);
16   run;

NOTE: DATA statement used (Total process time):
      real time           0.00 seconds
      cpu time            0.00 seconds


17
18   %put  &begdate   &enddate;
2013-02-01   2013-02-28