カタログに含まれているソースコードを１ずつ取り出してファイルに保存

カタログの中に含まれているソースコードを、1つずつ取り出してディレクトリに出力するマクロです。Model ManagerのAPIの中身を見るために、書きました。

view plainprint?

1. /* ソースコードをファイルに出力するマクロ */  
2. %macro _myfile(catalog=, memname=, dir=);  
3.  data _null_;  
4.   infile "&catalog..&memname..source" catalog;  
5.   file "&dir./&memname..sas";  
6.   input;  
7.   put _infile_;  
8.  run;  
9. %mend;  
10.   
11. /* カタログに含まれているソースコードをディレクトリに出力するマクロ */  
12. %macro extract_source(in=, dir=);  
13.  %local out memname;  
14.   
15.  data;  
16.   stop;  
17.  run;  
18.   
19.  %let out=&SYSLAST;  
20.  %let memname=%substr(&out, 6);   
21.   
22.  proc catalog catalog=∈  
23.     contents out=&out;  
24.  run;  
25.   
26.  data _null_;  
27.   set &out(keep=name type);  
28.   where type eq 'SOURCE';  
29.   attrib catalog length=$32;  
30.   attrib dir length=$128;  
31.   catalog = "&in";  
32.   dir = "&dir";  
33.   call execute('%_myfile(catalog='||catalog||", memname="||name||", dir="||dir||")");  
34.  run;  
35.   
36.  proc datasets lib=work nolist;  
37.   delete &memname;  
38.  quit;  
39. %mend;  
40.   
41. %extract_source(in=sashelp.modelmgr, dir=/var/tmp);  

/* ソースコードをファイルに出力するマクロ */
%macro _myfile(catalog=, memname=, dir=);
 data _null_;
  infile "&catalog..&memname..source" catalog;
  file "&dir./&memname..sas";
  input;
  put _infile_;
 run;
%mend;

/* カタログに含まれているソースコードをディレクトリに出力するマクロ */
%macro extract_source(in=, dir=);
 %local out memname;

 data;
  stop;
 run;

 %let out=&SYSLAST;
 %let memname=%substr(&out, 6); 

 proc catalog catalog=∈
    contents out=&out;
 run;

 data _null_;
  set &out(keep=name type);
  where type eq 'SOURCE';
  attrib catalog length=$32;
  attrib dir length=$128;
  catalog = "&in";
  dir = "&dir";
  call execute('%_myfile(catalog='||catalog||", memname="||name||", dir="||dir||")");
 run;

 proc datasets lib=work nolist;
  delete &memname;
 quit;
%mend;

%extract_source(in=sashelp.modelmgr, dir=/var/tmp);