可以试下创建宏变量重命名。
data test;
        CMTRT11="";
        CMDOST11="";
        CMTRT12="";
        CMDOST12="";
        CMTRT13="";
        CMDOST13="";
run;
%macro rename(data=,pre=);

        %if %index(&data.,".") %then %do;
                %let lib =%upcase(%substr(&data.,1,"."));
                %let data=%upcase(%substr(&data.,2,"."));
        %end;
        %else %do;
                %let lib =WORK;
                %let data=%upcase(&data);
        %end;

        proc sql noprint;   
                select strip(name)||'=&pre.'||strip(put(monotonic(),3.))
                into :rename_list separated by ' '
                from dictionary.columns
                where libname="&lib." and memname="&data." and index(name,"&pre.");
        quit;
        proc datasets library=&lib. nolist;  
                modify &data.;
                rename &rename_list;
        quit;
%mend;

%rename(data=test,pre=CMTRT);
%rename(data=test,pre=CMDOST);