69 %macro mm_spkexport(metaloc=
72 ,cmdoutloc=%sysfunc(pathname(work))
76 %
if &sysscp=WIN %then %
do;
77 %put %str(WARN)ING: the script has been written assuming a unix system;
78 %put %str(WARN)ING- it will run anyway as should be easy to modify;
82 %local mmxuser mmxpath;
85 %
if %mf_isblank(&secureref)=0 %then %
do;
86 %inc &secureref/nosource;
90 %local host port platform_object_path connx_string;
91 %let host=%sysfunc(getoption(metaserver));
92 %let port=%sysfunc(getoption(metaport));
93 %let platform_object_path=%mf_loc(POF);
95 %let connx_string=%str(-host &host -port &port -user &mmxuser -password &mmxpass);
97 %mm_tree(root=%str(&metaloc) ,types=EXPORTABLE ,outds=exportable)
99 %
if %mf_isblank(&outref)=1 %then %let outref=%mf_getuniquefileref();
102 set exportable end=last;
103 file &outref lrecl=32767;
106 put
"cd ""&platform_object_path"" \";
107 put "; ./ExportPackage &connx_string -disableX11 \
";
108 put " -
package ""&cmdoutloc/&cmdoutname..spk"" \";
110 str=
' -objects '!!cats(
'"',path,
'/',name,
"(",publictype,
')" \');
112 if last then put " -log ""&cmdoutloc/&cmdoutname..log"" 2>&1 ";
115 %mp_abort(iftrue= (&syscc ne 0)
117 ,msg=%str(syscc=&syscc)