%let rpt=rpt_temp;
proc sql;
create table sasdata.change1 as
select memname from dictionary.tables
where libname eq 'WORK';
quit;
/*proc datasets lib=work;change &table = &rpt._T&i.;quit;*/
%macro change();
%let dsid=%sysfunc(open(sasdata.change1));
%if &dsid gt 0 %then %do;
%let nobs=%sysfunc(attrn(&dsid,nobs));
%do i=1 %to &nobs;