If you can make a MAP file to display how to rename them, That would be easy.
data map;
input old $ new $;
cards;
F1 T1
F2 T2
;
run;
data _null_;
set map end=last;
if _n_=1 then call execute('proc datasets lib=work nolist nodetails;modify have;rename ');
call execute(catx('=',old,new));
if last then call execute(';quit;');
run;
... View more