data aa;
input _col0 $ _col1 date9. _col2-_col5;
attrib _col0 label="代码"
  _col1 label="日期"
  _col2 label="开盘价"
  _col3 label="最高价"
  _col4 label="最低价"
  _col5 label="收盘价";
datalines;
SH000001 19DEC1990 96.05 99.98 95.79 99.98
SH000001 19DEC1990 96.05 99.98 95.79 99.98
;
run;


data name;
        input name $ label $;
        datalines;
daima 代码
riqi 日期
kpj 开盘价
zgj 最高价
zdj 最低价
spj 收盘价
        ;
        run;

proc sql;
        create table newName as
        select a.name,b.name as newname
                from dictionary.columns as a,name as b
                   where a.libname="WORK" and a.memname="AA" and a.label=b.label;
        quit;

%macro rename;
proc sql;
        select count(*) into:n from newname;
        select name into :name1- :name%left(&n) from newname;
        select newname into :newname1- :newname%left(&n) from newname;
quit;

%do i=1 %to &n;
proc datasets library=work;
        modify aa;
                rename &&name&i=&&newname&i;
quit;
%end;
%mend;

%rename;