1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
%macro m;
%let liste_annees = "17" "18";
PROC SQL ;
/* Liste des tables dans la librairie (la WORK, ici) */
CREATE TABLE lst_tables AS
SELECT MEMNAME,substr(MEMNAME,6,2) as annee
FROM DICTIONARY.COLUMNS WHERE UPCASE (LIBNAME)='WORK' ;
/* Liste des tables des années voulues */
SELECT MEMNAME
INTO: liste SEPARATED BY " "
FROM lst_tables (where = (annee in (&liste_annees.)) ) ;
QUIT;
/* Export */
%do i = 1 %to %sysfunc(countw(&liste.));
%let table = %scan(&liste.,&i.);
%let export = C:\&table..csv;
proc export data = &table. outfile = "&export." DBMS=CSV REPLACE ; RUN;
%end;
%mend m;
%m; |
Partager