proc sql noprint;
select nvar
into :nvar
from dictionary.tables
where libname = "&libname" and memname = "&memname";
quit;
%do s=1 %to &nvar;
data _null_;
set &memname;
call symput("varlabel",vlabel(_c&s._));
run;
data &memname;
set &memname;
rename _c&s._=&varlabel;
run;
%end;
%mend;