1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
DATA test;
SET sashelp.class;
run;
%macro rename;
proc sql noprint;
SELECT name, '_'!!name ,max (monotonic()) INTO: old_var separated BY ',',: new_var separated BY ',' ,: nbr
FROM dictionary.COLUMNS WHERE upcase(libname)='WORK' AND upcase(memname)='TEST' ;
quit;
proc sql;
create table verif as select a.*, b.* from sashelp.class as a
inner join test ( RENAME=( %do i=1 %TO &nbr. ; %scan("&old_var",&i,",")=%scan("&new_var",&i,",") %end; ) ) as b
on a.name=b._name
;
quit;
%mend;
%rename; |
Partager