如何使用SAS的宏来简化一个重复操作？

我有若干个文件夹，各个文件夹内的文件个数和名称，以及各个文件内的变量个数和名称完全相同。现在需要将所有文件的变量并列起来，这将涉及到把变量名称与其文件夹和文件名称关联起来。

下面是个简单的例子，包含两个文件夹，两个文件，两个变量。希望大侠能够帮我写一个宏，用于多个文件夹，多个文件，多个变量时。非常感谢。

DATA WORK.ALL;
MERGE
y98.m01(rename=(sale=sale_98_01 profit=profit_98_01))
y98.m02(rename=(ssale=sale_98_02 profit=profit_98_02))

y99.m01(rename=(sale=sale_99_01 profit=profit_99_01))
y99.m02(rename=(sale=sale_99_02 profit=profit_99_02))
;
RUN;

说简单一点，我要把各个文件中的变量并列起来，并且通过重新命名变量名称得以保留所有内容信息。本人感谢任何能将上面的问题使用SAS的宏哪怕只是进行一定程度的化简。

1. /*循环8次*/
   
2. /*假设你有8个文件夹，每个文件夹中有2个文件，文件名是m01,m02*/
   
3. %macro hebing;
   
4. %do i=1 %to 8;
   
5. %do j=1 %to 2;
   
6. &&lib&i...m0&j(rename=(sale=sale_&&lib&i.._0&j profit=profit_&&lib&i.._0&j))
   
7. %end;
   
8. %end;
   
9. %mend;
   
10. 
    
11. data all;
    
12. merge
    
13. %hebing
    
14. ;
    
15. run;

复制代码

忘了你文件夹中有多个文件，多个文件可以用上述代码

你的文件夹名字有规律吗？你说的文件夹是sas的library吗？还是windows里的文件夹，你已经将全部文件导入sas生成数据集了吗？

%let workpath=%sysfunc(pathname(work));

libname y01 "&workpath";
libname y02 "&workpath";
libname y03 "&workpath";


data y01.m01;
   x=1;y=2;        output;
   stop;
run;

data  y02.m02;
   x=3;y=4;
run;

data y03.m03 ;
   x=5; y=6;
run;

proc sql;
    create table vars as
         select distinct libname,memname,name
           from dictionary.columns
           where upcase(libname) eqt "Y" and upcase(memname) eqt "M"
           order by  libname,memname,name;
quit;
          

data tmp;
   set vars end=last;
   by libname memname;
   length merge_code $2000 rename_var $100;
   retain merge_code;
   rename_var=cats(name,"=",name,"_",libname,"_",memname);

   if first.memname then merge_code=strip(merge_code)||" "||strip(libname)||"."||strip(memname)||"(rename=("||strip(rename_var);
   else if not last.memname then merge_code=strip(merge_code)||" "||strip(rename_var);
   else if last.memname then merge_code=strip(merge_code)||" "||strip(rename_var)||")) ";

   if last then call symputx("merge_code",merge_code);

   keep libname memname name rename_var merge_code;
run;


%put &merge_code;

data wanted;
    merge &merge_code;
run;

1. proc sql;
   
2. create table a as
   
3. select distinct libname  from dictionary.columns;
   
4. quit;
   
5. 
   
6. /*打开sas，删除不属于你要合并的逻辑库的名字*/
   
7. data a;
   
8. set a;
   
9. if libname in ("SASUSER","SASHELP","MAPS") then delete;
   
10. run;
    
11. 
    
12. /*假设删除后，你有8个文件夹*/
    
13. proc sql;
    
14. select libname into:lib1-:lib8 from a;
    
15. quit;
    
16. 
    
17. %macro hebing;
    
18. %do i=1 %to 8;
    
19. &&lib&i...m01(rename=(sale=sale_&i._01 profit=profit_&i._01))  &&lib&i...m02(rename=(sale=sale_&i._02 profit=profit_&i._02))
    
20. %end;
    
21. %mend;
    
22. 
    
23. data all;
    
24. merge
    
25. %hebing
    
26. ;
    
27. run;

复制代码

欢迎加入我群，一起讨论

1. proc sql;
   
2. create table a as
   
3. select distinct libname  from dictionary.columns;
   
4. quit;
   
5. 
   
6. /*打开work.a，删除不属于你要合并的逻辑库的名字,下例中，只删除了sas系统里的文件夹，若有其它自己建的，自行添加删除*/
   
7. data a;
   
8. set a;
   
9. if libname in ("SASUSER","SASHELP","MAPS") then delete;
   
10. run;
    
11. 
    
12. /*假设删除后，你有8个文件夹，若是其它数目，将下例中的8改写即可*/
    
13. proc sql;
    
14. select libname into:lib1-:lib8 from a;
    
15. quit;
    
16. 
    
17. /*循环8次*/
    
18. %macro hebing;
    
19. %do i=1 %to 8;
    
20. &&lib&i...m01(rename=(sale=sale_&&lib&i.._01 profit=profit_&&lib&i.._01))  &&lib&i...m02(rename=(sale=sale_&&lib&i.._02 profit=profit_&&lib&i.._02))
    
21. %end;
    
22. %mend;
    
23. 
    
24. data all;
    
25. merge
    
26. %hebing
    
27. ;
    
28. run;

复制代码

请使用这个代码，给我论坛币，我的比上面一位的好懂

学习了