data a2009 b2010;
set dataset;
if trddt='05jan2009'd then output a2009;
if trddt='03jan2010'd then output b2010;
run;

%macro want;
        %let bg=%sysfunc(mdy(1,1,2009));
        %let ed=%sysfunc(mdy(12,31,2013));

        %do i=&bg. %to &ed.;

                data _null_;
                        ii=strip(put(&i.,yymmddn8.));
                        call symput("ii",ii);
                run;

                data want_&ii.;
                        set plants.allstock2;

                        if dt=&i.;
                run;

        %end;
%mend;

%want

太感谢了！！！！虽然我看不懂，但是还是用上了！！！