sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-16 04:50:05 +00:00
Code Issues Projects Releases Wiki Activity

fix: adding mp_chop to mp_testservice (WIP)

Browse Source
This commit is contained in:
Allan Bowe
2022-04-26 15:29:12 +00:00
parent a90a6f00cf
commit 0728f72c4f
1 changed files with 29 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
base/mp_testservice.sas
View File

@@ -40,6 +40,7 @@
@li mf_getuniquename.sas @li mf_getuniquename.sas
@li mp_abort.sas @li mp_abort.sas
@li mp_binarycopy.sas @li mp_binarycopy.sas
@li mp_chop.sas
@li mp_ds2csv.sas @li mp_ds2csv.sas
@li mv_getjobresult.sas @li mv_getjobresult.sas
@li mv_jobflow.sas @li mv_jobflow.sas
@@ -63,7 +64,7 @@
viyaresult=WEBOUT_JSON, viyaresult=WEBOUT_JSON,
viyacontext=SAS Job Execution compute context viyacontext=SAS Job Execution compute context
)/*/STORE SOURCE*/; )/*/STORE SOURCE*/;
%local dbg pcnt fref1 fref2 webref i webcount var platform; %local dbg pcnt fref1 fref2 webref webrefpath i webcount var platform;
%if &mdebug=1 %then %do; %if &mdebug=1 %then %do;
%put &sysmacroname entry vars:; %put &sysmacroname entry vars:;
%put _local_; %put _local_;
@@ -104,11 +105,13 @@
%end; %end;
%end; %end;
%let platform=%mf_getplatform();
%let fref1=%mf_getuniquefileref(); %let fref1=%mf_getuniquefileref();
%let fref2=%mf_getuniquefileref(); %let fref2=%mf_getuniquefileref();
%let webref=%mf_getuniquefileref(); %let webref=%mf_getuniquefileref();
%let platform=%mf_getplatform(); %let webrefpath=%sysfunc(pathname(work))/%mf_getuniquename();
/* mp_chop requires a physical path as input */
filename &webref "&webrefpath";
%if &platform=SASMETA %then %do; %if &platform=SASMETA %then %do;
@@ -325,20 +328,35 @@
/* SASjs services have the _webout embedded in wrapper JSON */ /* SASjs services have the _webout embedded in wrapper JSON */
/* Files can also be very large - so use a dedicated macro to chop it out */ /* Files can also be very large - so use a dedicated macro to chop it out */
%local matchstr; %local matchstr1 matchstr2 chopout1 chopout2;
%let matchstr={"status":"success","_webout":{; %let matchstr1={"status":"success","_webout":{;
%mp_chop(&webref,match=matchstr,keep=RIGHT,offset=-1,outref=&fref1) %let matchst2=},"log":[{;
%let chopout1=&webrefpath._1;
%let chopout2=&webrefpath._2;
%let matchstr=},"log":[{; %mp_chop("&webrefpath"
%mp_chop(&fref1,match=matchstr,keep=LEFT,offset=1,outref=&fref2) ,matchvar=matchstr1
,keep=LAST
,matchpoint=END
,offset=-1
,outfile="&chopout1"
,mdebug=&mdebug
)
%mp_chop("&chopout1"
,matchvar=matchstr2
,keep=FIRST
,matchpoint=START
,offset=1
,outfile="&chopout2"
,mdebug=&mdebug
)
%if &outlib ne 0 %then %do; %if &outlib ne 0 %then %do;
libname &outlib json (&fref2); libname &outlib json ("&chopout2");
%end; %end;
%if &outref ne 0 %then %do; %if &outref ne 0 %then %do;
filename &outref temp; filename &outref "&chopout2";
%mp_binarycopy(inref=&webref,outref=&outref)
%end; %end;
%end; %end;