假如你的数据集都在WORK文件夹下，试一试可不可以。

proc sql noprint;
select distinct memname into: ds separated by " "
from dictionary.tables
where libname='WORK' and memname like 'TRADING%';
quit;

%macro choose(out=,where=);
%let i=1;
%do %until(%scan(&ds,&i)=);
Proc sql;
        create table &Out&i as
        select * from work.%scan(&ds,&i)
        where &where;
Quit;
%let i=%eval(&i+1);
%end;
%mend;
%choose(out=out,where=)

嗯，感谢，我明白了这个方法，很不错。。