77%macro mm_spkexport(metaloc=
81 ,cmdoutloc=%sysfunc(pathname(work))
85%
if &sysscp=WIN %then %
do;
86 %put %str(WARN)ING: the script has been written assuming a unix system;
87 %put %str(WARN)ING- it will run anyway as should be easy to modify;
91%local mmxuser mmxpath i var;
94%
if %mf_isblank(&secureref)=0 %then %
do;
95 %inc &secureref/nosource;
99%local host port platform_object_path ds;
100%let host=%sysfunc(getoption(metaserver));
101%let port=%sysfunc(getoption(metaport));
102%let platform_object_path=%mf_loc(POF);
103%let ds=%mf_getuniquename(prefix=spkexportable);
105%mm_tree(root=%str(&metaloc),types=EXPORTABLE ,outds=&ds)
107%
if %mf_isblank(&outref)=1 %then %let outref=%mf_getuniquefileref();
111 file &outref lrecl=32767;
114 put
"# Script generated by &sysuserid on %sysfunc(datetime(),datetime19.)";
115 put
"cd ""&platform_object_path"" \";
116 put "; ./ExportPackage -host &host -port &port -user &mmxuser \
";
117 put " -disableX11 -password &mmxpass \
";
118 put " -
package ""&cmdoutloc/&cmdoutname..spk"" \";
121%
if "&excludevars" ne
"0" %then %
do;
122 %
do i=1 %to %sysfunc(countw(&excludevars));
123 %let var=%scan(&excludevars,&i);
125 length excludestr&i $1000;
127 excludestr&i=symget(
"&var");
128 putlog excludestr&i=;
131 if index(path,cats(excludestr&i))=0 and index(name,cats(excludestr&i))=0;
136 str=
' -objects '!!cats(
'"',path,
'/',name,
"(",publictype,
')" \');
138 if last then put " -log ""&cmdoutloc/&cmdoutname..log"" 2>&1 ";
141%mp_abort(iftrue= (&syscc ne 0)
143 ,msg=%str(syscc=&syscc)