| Date: | Mon, 22 May 2006 16:34:57 -0400 |
| Reply-To: | mesecca L katram <MESECCA@YAHOO.COM> |
| Sender: | "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU> |
| From: | mesecca L katram <MESECCA@YAHOO.COM> |
| Subject: | Re: Simple Macro Not resolving |
|
Hi all
Thanks much
I solved the whole problem just by making use of %sysfunc instead of using
macro
I was just beating around the bus converting everything into charecter just
beacsue macros can only be charecter values.
here the program working
data Memeber_months ;
set Memeber_months_1;
y=year(today());
ENRL_DT_CD1 = input(ENRL_DT_CD, yymmdd8.);
DISENRL_DT_CD1 = input(DISENRL_DT_CD, yymmdd8.);
if Y > YEAR(DISENRL_DT_CD1) then delete;
if Y = YEAR(ENRL_DT_CD1) then ENRL_DT_CD_M = month(ENRL_DT_CD1);
if Y = YEAR(DISENRL_DT_CD1) then DISENRL_DT_CD_M =month(DISENRL_DT_CD1);
if Y > YEAR(ENRL_DT_CD1) then ENRL_DT_CD_M = 1;
if Y < YEAR(DISENRL_DT_CD1) then DISENRL_DT_CD_M =12;
run;
%macro Quaterlyreports;
%let quater=%sysfunc(qtr(%sysfunc(TODAY())));
%if &quater=1 %then %do;
%include "/home/a0cmb1/medicare/membermonths/Quarter1_0607.sas";
%end;
%else %if &quater=2 %then %do;
%include '/home/a0cmb1/medicare/membermonths/Quarter2_0607.sas';
%end;
%else %if &quater=3 %then %do;
%include "/home/a0cmb1/medicare/membermonths/Quarter3_0607.sas";
%end;
%else %if &quater=4 %then %do;
%include "/home/a0cmb1/medicare/membermonths/Quarter4_0607.sas";
%end;
%mend Quaterlyreports;
%Quaterlyreports
;
Thanks alll
|