一位读者留言，递交的程序需要把宏都解析出来（不管是公司的还是同事在程序里写的），怎么实现？
对于公司的宏程序，这个也算是公司的财产，一般不会直接把宏程序发送给申办方或者递交给监管机构，而是将所有的宏都解析成正常的data步发送给对方。同时，目前只有器械项目需要递交程序，如下：
所以自己临时去搜索了相关的东西，并进行了一些测试，首先我自己新建了两个程序，程序里面有正常的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);*/
这样就能将解析后的宏程序输出到对应的路径，看看效果,发现宏程序被正常解析出来了：
但是我接着去解析remacro2程序的时候，出了一点小问题，它把options mprint mfile; 也写进去了，因为这两个选项是系统宏选项，只要你在当前程序里面运行，就会一直起作用。
后面我想着那就加上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语句下，所以自然而然的也被输出了。
相对来说，这个对程序的影响不大，而且还是关闭系统选项。所以如果你们公司使用%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啊！所以目前有两个地方让人百思不得其解。
你们可以自己去测试一下或者了解的话，欢迎指教！
