%macro name;
proc sql noprint;
select memname into :test separated by ' '/*注意‘’直接必须要有字符，哪怕是空格，与%scan关联到,：test是宏变量*/
from dictionary.tables
where libname='WORK';
quit;
%let n=&sqlobs;
proc datasets library=work nolist;
%do i=1 %to &n;
%let name=%scan(&test,&i);
change &name=Data&i.;
run;
%end;
quit;
%mend name;
%name;