232：如何解析宏并转换成正常的代码

一位读者留言，递交的程序需要把宏都解析出来（不管是公司的还是同事在程序里写的），怎么实现？

image

对于公司的宏程序，这个也算是公司的财产，一般不会直接把宏程序发送给申办方或者递交给监管机构，而是将所有的宏都解析成正常的data步发送给对方。同时，目前只有器械项目需要递交程序，如下：

image

所以自己临时去搜索了相关的东西，并进行了一些测试，首先我自己新建了两个程序，程序里面有正常的data步，也有自己写的宏程序，

程序1： remacro.sas

data test;
 set sashelp.class;
run;

data test2;
 set sashelp.cars;
run;

%macro resolvema(name=,out=);
  data cc_&out;
    set test(where=(name="&name"));
  run;

%mend;

%resolvema(name=Alfred,out=1);
%resolvema(name=Thomas,out=2);

data final;
  set cc_:;
run;

程序2：remacro1.sas

data test;
 set sashelp.class;
run;

data test2;
 set sashelp.cars;
run;

%macro resolvema(name=,out=);
  data zz_&out;
    set test2(where=(make="&name"));
  run;

%mend;

%resolvema(name=Acura,out=3);
%resolvema(name=Audi,out=4);

data final;
  set zz_:;
run;

这两个宏程序储存在我的D:\Practice文件夹下，现在我需要去解析程序里面的宏，然后让它们展示成正常的data步，输出到我的Practice2文件夹下,SAS提供这样一种方式

filename mprint '路径\代码名称.sas';
options mprint mfile;
我自己写了一段程序，但是有点问题，后面说

%let path_1=D:\Practice;
%let path_2=D:\Practice2;

%macro resopa(name=);
/*  options nomprint nomfile;*/

  filename mprint "&path_2\&name..sas";     /*输出解析后的宏程序文件*/
  options mprint mfile;                    /*必须加上这个选项，要不然文件夹里不会有文件*/
  run;
  %include "&path_1\&name..sas";   

      
  
%mend resopa;

%resopa(name=remacro);

/*%resopa(name=remacro2);*/

这样就能将解析后的宏程序输出到对应的路径，看看效果,发现宏程序被正常解析出来了：

image

但是我接着去解析remacro2程序的时候，出了一点小问题，它把options mprint mfile; 也写进去了，因为这两个选项是系统宏选项，只要你在当前程序里面运行，就会一直起作用。

image

后面我想着那就加上options nomprint nomfile;像下面这样，

%macro resopa(name=);

  filename mprint "&path_2\&name..sas";     /*输出解析后的宏程序文件*/
  options mprint mfile;                    /*必须加上这个选项，要不然文件夹里不会有文件*/
  
  %include "&path_1\&name..sas";   

   options nomprint nomfile;
  
  
%mend resopa;

%resopa(name=remacro);

%resopa(name=remacro2);

这样导致每个程序最后面都会加上这段话，因为这都是在filename语句下，所以自然而然的也被输出了。

image

相对来说，这个对程序的影响不大，而且还是关闭系统选项。所以如果你们公司使用%include一股脑batch run program的话，建议修改一下batch的方式，如果都在同一个程序或者同一个线程下跑程序，程序与程序之间绝对是会有影响的，尤其是某个程序中加了一些系统选项的话！

但是我想把这句话给去掉，我在网上搜了一下，都是只有单个程序，没有考虑运行多个程序解析宏程序造成的影响。比如说我们的table有几十张，也就是你要解析几十次，但是的话按照上面的写法肯定要出问题的。

后面又在网上搜索相关东西，想法主要是让filename在%include完之后就停止输出代码，了解到filename有这个用法：

filename mprint CLEAR;
这个clear可以实现让filename停止输出代码，注意不是清空，后面我自己又完善了相关代码

%macro resopa2(name=);
  
  %macro resopa(name=);
    options nomprint nomfile;
    filename mprint "&path_2\&name..sas" ;    
    options mprint mfile;                   
    %include "&path_1\&name..sas";            
        
    
  %mend resopa;
  filename mprint  CLEAR;  
  %resopa(name=&name);
  
  
%mend resopa2;

%resopa2(name=remacro);

%resopa2(name=remacro2);

需要注意的是，这个filename mprint CLEAR; 放的位置很重要，放在程序中的其他位置可能就导致输出不了或者程序报错。

但是！有一个问题，如果我一次一次单独运行%resopa2;程序能够正确解析，而且也不会输出filename mprint CLEAR;但是的话，如果我直接点击运行，一下子把两个%resopa2都运行的话，奇怪的是remacro会在程序最后面出现filename mprint CLEAR;

注意，先运行的是%resopa2(name=remacro)，然后还在remacro出现那句话，按理说你要是输出filename mprint CLEAR，也应该是在remacro2啊！所以目前有两个地方让人百思不得其解。
你们可以自己去测试一下或者了解的话，欢迎指教！