data new;
input fix var1$ var2$ var3$;;
cards;
1 a b c
2 p q r
;
run;

%macro nw;
data new2;
set new;
%do i=1 %to 3;
lt&i=fix || var&i;
drop var&i fix;
%end;
run;
%mend nw;

%nw;