data a;
        input a1 a2 a3 b3;
datalines;
1 3 5 7
2 4 4 8
;
run;

%macro group;
proc sql noprint;
        select name into :name separated by ' ' from dictionary.columns where libname="WORK"
        and memname="A";
quit;

%let i=1;
%do %while (%scan(&name,&i) ne );

proc sql noprint;
        select %scan(&name,&i) into :newname&i separated by ' ' from a;
quit;
%put _user_;
%let i=%eval(&i+1);
%end;
%mend;
%group;

挺复杂啊。多谢！
话说，运行了一下，不行啊，sas报错。