カタログにSASプログラムを格納するサンプル

カタログにプログラムを格納するサンプルです。探したら良い例が見つからなかったのでメモしておきます。

view plainprint?

1. /* ディレクトリにあるMM_MISC.sasをカタログに格納する */  
2. filename there '/tmp' ;  
3. libname mylib '/tmp/sashelp' ;  
4.   
5. %let trialcode = MM_MISC;  
6. %let catname = modelmgr;  
7.   
8. data _null_ ;  
9.     filename mycat catalog "mylib.&catname" lrecl= 256 ;  
10.     file   mycat("&trialcode..source") ;  
11.     infile   there("&trialcode..sas") ;  
12.     input ;  
13.     put _infile_ ;  
14. run;  
15.   
16. proc catalog c=mylib.&catname;  
17.     contents;  
18. run;  
19. quit;  
20.   
21. /* 格納したプログラムを読み込む */  
22. filename chkinit catalog "mylib.&catname..&trialcode..source";  
23. %include chkinit;  

/* ディレクトリにあるMM_MISC.sasをカタログに格納する */
filename there '/tmp' ;
libname mylib '/tmp/sashelp' ;

%let trialcode = MM_MISC;
%let catname = modelmgr;

data _null_ ;
    filename mycat catalog "mylib.&catname" lrecl= 256 ;
    file   mycat("&trialcode..source") ;
    infile   there("&trialcode..sas") ;
    input ;
    put _infile_ ;
run;

proc catalog c=mylib.&catname;
    contents;
run;
quit;

/* 格納したプログラムを読み込む */
filename chkinit catalog "mylib.&catname..&trialcode..source";
%include chkinit;

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

カタログの中に含まれているソースコードを、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);