sas 연속된 날짜에 대해 매크로 돌리기

rsubmit;
data aggr(compress=yes);
length kword $40. cnt 8.;
run;
%macro zzz(stddate);
data eng_&stddate.(compress=yes);
set gk.kword_&stddate.;
aaa = compbl(left (kword));
if compress(aaa) ne aaa and compress(lowcase(aaa),'abcdefghijklmnopqrstuvwxyz ') = '';
run;

proc sql;
insert into aggr
 select aaa as kword, cnt from eng_&stddate.;
quit;
%mend;

* rsubmit;
%macro aaa(date1, date2);
data _null_;
 call symput('d1', input("&date1",yymmdd8.) ) ;
 call symput('d2', input("&date2",yymmdd8.) ) ;
run;
%do i = &d1 %to &d2;
data _null_;
 call symput('stddate', put(&i,yymmdd6.) ) ;
run;
%put &d1 &d2 &stddate ;
%zzz(&stddate) ;
%end;
%mend;

%aaa(20090601, 20090630);