LIBNAMETEST "D:\TESTDATA";

%LETRPT=RPT_TEMP;

procsql;

create table test.change as

select

memname

from dictionary.tables

where libname eq"TEST";
quit;

%MACROCHANGE();

%LETDSID=%SYSFUNC(OPEN(test.change));

%IF &DSID GT 0 %THEN %DO;

%LETNOBS=%SYSFUNC(ATTRN(&DSID,NOBS));

%DO I=1 %TO &NOBS;

%LETRC=%SYSFUNC(FETCHOBS(&DSID,&I));

%LETVARNUME=%SYSFUNC(VARNUM(&DSID,MEMNAME));

%LETTABLE=%SYSFUNC(GETVARC(&DSID,&VARNUME));

PROC DATASETSLIB=TEST;

CHANGE &TABLE=&RPT._T&I.;

QUIT;

%END;

%LETDSID=%SYSFUNC(CLOSE(&DSID));

%END;
%MENDCHANGE;

%CHANGE;