%let lib=WORK; /*Library Name*/
%let dt=TEST; /*Dataset Name*/

data _null_;
  set sashelp.vcolumn end=last;
  where libname="&lib" and memname="&dt";
  if _n_=1 then call execute("data wanted;set &dt;rename ");
  call execute(strip(name)||'='||strip(name)||'_new');
  if last then call execute(';run;');
run;