data class;
   set sashelp.class;
run;

data tmp;
   if 0 then set sashelp.class(keep=age--weight);
run;

proc sql noprint;
     select distinct strip(name)||"=Q1_"||strip(name)
           into : rename separated by " "
           from dictionary.columns
           where libname="WORK" and memname="TMP";
quit;


proc datasets library=work;
modify class;
   rename &rename;
run;
quit;