当然应用循环：

感谢！我今天也做出来了，我是用的macro。代码认识的不多

proc sql noprint;
select distinct memname into :Domain_all separated by '/'
from sashelp.vcolumn
where libname='SOURCE';
quit;

%macro Traversal;
%do i=1 %to %sysfunc(countw("&Domain_all",'/'));
%let domain=%scan(%str(&Domain_all),&i,'/');
%put &domain;
data &domain;
        set source.&domain;
                /*do something*/
run;
%end;
%mend;