45 %macro mmx_spkexport(metaloc=
48 ,outspkpath=%sysfunc(pathname(work))
51 %local host port platform_object_path connx_string;
52 %let host=%sysfunc(getoption(metaserver));
53 %let port=%sysfunc(getoption(metaport));
54 %let platform_object_path=%mf_loc(POF);
57 %inc &secureref/nosource;
59 %let connx_string=%str(-host &host -port &port -user
'&mmxuser' -password
'&mmxpass');
61 %mm_tree(root=%str(&metaloc) ,types=EXPORTABLE ,outds=exportable)
64 %let fref1=%mf_getuniquefileref();
66 set exportable end=last;
67 file &fref1 lrecl=32767;
71 put
'infile "cd ""&platform_object_path"" %trim(';
72 put
') cd ""&platform_object_path"" %trim(';
73 put
'); ./ExportPackage &connx_string -disableX11 %trim(';
74 put
') -package ""&outspkpath/&outspkname..spk"" %trim(';
76 str=
') -objects '!!cats(
'""',path,
'/',name,
"(",publictype,
')"" %trim(');
79 put
') -log ""&outspkpath/&outspkname..log"" 2>&1" pipe lrecl=10000;';
80 put
'input;putlog _infile_;run;';
84 %mp_abort(iftrue= (&syscc ne 0)
86 ,msg=%str(syscc=&syscc)