如何写这段简单的sas macro呢？谢谢

求教一段很基本的sas macro! 非常感谢！

我有三个sas file: background, lab_bp, drug都存在我以下路径里, 同一个文件夹下里还有lab_xt, lab_sp, lab_hbp共10个和lab_bp一样结构的数据集，要求写一段macro来替换以下所有含lab_bp的变量（把lab_bp改为lab_xt, lab_hbp等等），由于需要merge，所以lab_bp变为其他lab_*的话会产生新的一个数据集new1,new2, new3...而后面所有分析都是针对新merge而成的数据集new i 来做的。总之我的macro变量有两个，一个是lab_*, 另一个是新数据集new&i (由lab_*和其它两个不变的数据集生成的).

我用lab_bp写的code如下，如何把这个作用于同一个文件夹下其他lab_*？希望大家帮我在我的code上加入macro,谢谢！.

1. LIBNAME TEST "C:\DOCUMENT\DATA\";
   
2. data new_background;
   
3. set TEST.background;
   
4. run;
   
5. 
   
6. data new_lab_bp;
   
7. set TEST.lab_bp;
   
8. run;
   
9. 
   
10. data new_drug;
    
11. set TEST.drug;
    
12. run;
    
13. 
    
14. proc sort data=new_background;
    
15. by id;
    
16. run;
    
17. 
    
18. proc sort data=new_lab_bp;
    
19. by id;
    
20. run;
    
21. 
    
22. proc sort data=new_drug;
    
23. by id;
    
24. run;
    
25. 
    
26. data new1;
    
27. merge new_background
    
28.           new_lab_bp
    
29.           new_drug;
    
30. by id;
    
31. 
    
32. proc print data=new1 (firstobs=1 obs=10) noobs;
    
33. run;
    
34. 
    
35. proc univariate data=new1;
    
36. var age;
    
37. run;
    
38. 
    
39. /*以下还有好多proc都是针对数据new1,最后会永久保存一下new1*/
    
40. 
    
41. data TRY.new1;
    
42. set new1;
    
43. run;
    
44. 
    
45. /*结束*/

复制代码

大家来帮帮我吧？

1# yellowriver

1. LIBNAME TEST "C:\DOCUMENT\DATA\";
   
2. %macro lab(n);
   
3. %let lab_1=lab_bp;
   
4. %let lab_2=lab_xt;
   
5. %let lab_3=lab_sp;
   
6. %do i=1 %to &n.;
   
7.         proc sort data=TEST.background;
   
8.                 by id;
   
9.         run;
   
10.         proc sort data=TEST.&&lab_&i.;
    
11.                 by id;
    
12.         run;
    
13.         proc sort data=TEST.drug;
    
14.                 by id;
    
15.         run;
    
16.         data new&i.;
    
17.                 merge TEST.background TEST.&&lab_&i. TEST.drug;
    
18.         by id;
    
19.         proc print data=new&i. (firstobs=1 obs=10) noobs;
    
20.         run;
    
21.         proc univariate data=new&i.;
    
22.                 var age;
    
23.         run;
    
24. %end;
    
25. %mend;
    
26. %lab(3);

复制代码

1. /*DEMO DATA*/
   
2. /*data ben.background;*/
   
3. /*    input id background;*/
   
4. /*datalines;*/
   
5. /*1 11*/
   
6. /*2 12*/
   
7. /*;*/
   
8. /*data ben.drug;*/
   
9. /*    input id drug;*/
   
10. /*datalines;*/
    
11. /*1 21*/
    
12. /*2 22*/
    
13. /*;*/
    
14. /*data ben.lab_a;*/
    
15. /*    input id lab_a;*/
    
16. /*datalines;*/
    
17. /*1 31*/
    
18. /*2 32*/
    
19. /*;*/
    
20. /*data ben.lab_b;*/
    
21. /*    input id lab_b;*/
    
22. /*datalines;*/
    
23. /*1 41*/
    
24. /*2 42*/
    
25. /*;*/
    
26. 
    
27. options nomprint nosymbolgen nomlogic mcompilenote=all;
    
28. %macro Benhope(libref_in=, ds_prefix=lab_, libref_out=TRY);
    
29.     %local err;
    
30.     %let err=0;
    
31.     %let libref_in=%upcase(&libref_in);
    
32.     %let libref_out=%upcase(&libref_out);
    
33.     %let ds_prefix=%upcase(&ds_prefix);
    
34.     %if &err eq 0 %then %do;
    
35.         %if %sysfunc(libref(&libref_in)) %then %do;
    
36.             %let err=1;
    
37.             %put %sysfunc(sysmsg());
    
38.         %end;
    
39.         %if %sysfunc(libref(&libref_out)) %then %do;
    
40.             %let err=1;
    
41.             %put %sysfunc(sysmsg());
    
42.         %end;
    
43.     %end;
    
44.     %if &err eq 0 %then %do;
    
45.         %if %sysfunc(exist(&libref_in..background)) ne 1 %then %do;
    
46.             %let err=1;
    
47.             %put WARNING: *** Dataset(&libref_in..BACKGROUND) Not Exist! ***;
    
48.         %end;
    
49.         %if %sysfunc(exist(&libref_in..drug)) ne 1 %then %do;
    
50.             %let err=1;
    
51.             %put WARNING: *** Dataset(&libref_in..DRUG) Not Exist! ***;
    
52.         %end;
    
53.     %end;
    
54.     %if &err eq 0 %then %do;
    
55.         proc sql;
    
56.             create table _temp as
    
57.                 select memname as dsname
    
58.                     from sashelp.vtable
    
59.                     where libname="&libref_in" and memname like "&ds_prefix%" and memtype='DATA' ;
    
60.         quit;
    
61.         %let dsid=%sysfunc(open(work._temp));
    
62.         %let num=%sysfunc(attrn(&dsid, nlobs));
    
63.         %if &num gt 0 %then %do;
    
64.             proc sort data=&libref_in..background out=new_background;
    
65.                 by id;
    
66.             run;
    
67.             proc sort data=&libref_in..drug out=new_drug;
    
68.                 by id;
    
69.             run;
    
70.             %syscall set(dsid);
    
71.             %do i=1 %to #
    
72.                 %let rc=%sysfunc(fetchobs(&dsid, &i));
    
73.                 proc sort data=&libref_in..&dsname out=&libref_out..new_&dsname;
    
74.                     by id;
    
75.                 run;
    
76.                 data &libref_out..new_&dsname;
    
77.                     merge new_background
    
78.                           &libref_out..new_&dsname
    
79.                           new_drug;
    
80.                     by id;
    
81.                 run;
    
82.                 %put ERROR-*** Proc Univariate(dsname=%trim(&dsname)) Execute! ***;
    
83. /*                proc univariate data=&libref_out..new_&dsname;*/
    
84. /*                    var age;*/
    
85. /*                run;*/
    
86.             %end;
    
87.         %end;
    
88.         %else %put WARNING: *** Dataset(&ds_prefix..*) Not Find! ***;
    
89.         %if &dsid gt 0 %then %let rc=%sysfunc(close(&dsid));
    
90.         proc datasets library=work nolist;
    
91.             delete _temp
    
92.                    new_background
    
93.                    new_drug;
    
94.         quit;
    
95.     %end;
    
96. %mend;
    
97. 
    
98. libname ben 'C:\Ben Xu\00 Test_Temp';
    
99. %benhope(libref_in=ben,libref_out=ben)

复制代码

正在学习中～～～～～～～～～～