diff --git a/all.sas b/all.sas index 9147c8b..97d0f81 100644 --- a/all.sas +++ b/all.sas @@ -14941,7 +14941,7 @@ run; %else %if &action=ARR or &action=OBJ %then %do; %mp_jsonout(&action,&ds,dslabel=&dslabel,fmt=&fmt,jref=&fref - ,engine=&jsonengine,dbg=%str(&_debug) + ,engine=DATASTEP,dbg=%str(&_debug) ) %end; %else %if &action=CLOSE %then %do; @@ -14974,8 +14974,8 @@ run; put " ""&wt"" : {"; put '"nlobs":' nlobs; put ',"nvars":' nvars; - %mp_jsonout(OBJ,&tempds,jref=&fref,dslabel=colattrs,engine=&jsonengine) - %mp_jsonout(OBJ,&wt,jref=&fref,dslabel=first10rows,engine=&jsonengine) + %mp_jsonout(OBJ,&tempds,jref=&fref,dslabel=colattrs,engine=DATASTEP) + %mp_jsonout(OBJ,&wt,jref=&fref,dslabel=first10rows,engine=DATASTEP) data _null_; file &fref mod encoding='utf-8'; put "}"; %end; @@ -15009,6 +15009,7 @@ run; autoexec=quote(trim(getoption('autoexec'))); put ',"AUTOEXEC" : ' autoexec; memsize="%sysfunc(INPUTN(%sysfunc(getoption(memsize)), best.),sizekmg.)"; + memsize=quote(cats(memsize)); put ',"MEMSIZE" : ' memsize; put "}" @; %if %str(&_debug) ge 131 %then %do; @@ -20694,6 +20695,9 @@ run; @param [out] pkg= (utils) The output package in which to create the function. Uses a 3 part format: libref.catalog.package +

SAS Macros

+ @li mf_existfunction.sas + **/ %macro mcf_stpsrv_header(wrap=NO @@ -20703,6 +20707,8 @@ run; ,pkg=UTILS )/*/STORE SOURCE*/; +%if %mf_existfunction(stpsrv_header)=1 %then %return; + %if &wrap=YES %then %do; proc fcmp outcat=&lib..&cat..&pkg; %end; diff --git a/fcmp/mcf_stpsrv_header.sas b/fcmp/mcf_stpsrv_header.sas index 3f00d17..e8d3e5d 100644 --- a/fcmp/mcf_stpsrv_header.sas +++ b/fcmp/mcf_stpsrv_header.sas @@ -54,6 +54,9 @@ @param [out] pkg= (utils) The output package in which to create the function. Uses a 3 part format: libref.catalog.package +

SAS Macros

+ @li mf_existfunction.sas + **/ %macro mcf_stpsrv_header(wrap=NO @@ -63,6 +66,8 @@ ,pkg=UTILS )/*/STORE SOURCE*/; +%if %mf_existfunction(stpsrv_header)=1 %then %return; + %if &wrap=YES %then %do; proc fcmp outcat=&lib..&cat..&pkg; %end; diff --git a/server/ms_webout.sas b/server/ms_webout.sas index 63fd918..ee853e9 100644 --- a/server/ms_webout.sas +++ b/server/ms_webout.sas @@ -91,7 +91,7 @@ %else %if &action=ARR or &action=OBJ %then %do; %mp_jsonout(&action,&ds,dslabel=&dslabel,fmt=&fmt,jref=&fref - ,engine=&jsonengine,dbg=%str(&_debug) + ,engine=DATASTEP,dbg=%str(&_debug) ) %end; %else %if &action=CLOSE %then %do; @@ -124,8 +124,8 @@ put " ""&wt"" : {"; put '"nlobs":' nlobs; put ',"nvars":' nvars; - %mp_jsonout(OBJ,&tempds,jref=&fref,dslabel=colattrs,engine=&jsonengine) - %mp_jsonout(OBJ,&wt,jref=&fref,dslabel=first10rows,engine=&jsonengine) + %mp_jsonout(OBJ,&tempds,jref=&fref,dslabel=colattrs,engine=DATASTEP) + %mp_jsonout(OBJ,&wt,jref=&fref,dslabel=first10rows,engine=DATASTEP) data _null_; file &fref mod encoding='utf-8'; put "}"; %end; @@ -159,6 +159,7 @@ autoexec=quote(trim(getoption('autoexec'))); put ',"AUTOEXEC" : ' autoexec; memsize="%sysfunc(INPUTN(%sysfunc(getoption(memsize)), best.),sizekmg.)"; + memsize=quote(cats(memsize)); put ',"MEMSIZE" : ' memsize; put "}" @; %if %str(&_debug) ge 131 %then %do;