by Huang,JS:

data Test;
  input a b c$;
  datalines;
1 2 A
2 3 B
;

%macro Rename(library,dataset);
  proc sql;
    select name into: VarNames separated by " "
    from sashelp.vcolumn
    where libname=upcase("&library") and memname=upcase("&dataset");
  quit;
  %put VarNames=&VarNames;
  data &library..&dataset;
    set &library..&dataset;
    %let i=1;
    %do %until (%scan(&VarNames,&i)= );
        rename %scan(&VarNames,&i)=%scan(&VarNames,&i)_;
        %let i=%eval(&i+1);
    %end;
  run;
  proc contents data=&library..&dataset;
  run;
%mend Rename;
%Rename(work,test)