diff --git a/base/mp_abort.sas b/base/mp_abort.sas index db18bd1..dcfe042 100644 --- a/base/mp_abort.sas +++ b/base/mp_abort.sas @@ -64,6 +64,11 @@ %end; %end; + %if %symexist(SYS_JES_JOB_URI) %then %do; + /* refer web service output to file service in one hit */ + filename _webout filesrvc parenturi="&SYS_JES_JOB_URI" name="_webout.json"; + %end; + /* send response in SASjs JSON format */ data _null_; file _webout mod lrecl=32000; @@ -106,11 +111,6 @@ if debug ge '"131"' then put '>>weboutEND<<'; run; %let syscc=0; - %if %symexist(SYS_JES_JOB_URI) %then %do; - /* refer web service output to file service in one hit */ - filename _webout filesrvc parenturi="&SYS_JES_JOB_URI" name="_webout.json"; - %let rc=%sysfunc(fcopy(_web,_webout)); - %end; %else %if %symexist(_metaport) %then %do; data _null_; if symexist('sysprocessmode') diff --git a/mc_all.sas b/mc_all.sas index 286e9d9..0798c97 100644 --- a/mc_all.sas +++ b/mc_all.sas @@ -1493,6 +1493,11 @@ Usage: %end; %end; + %if %symexist(SYS_JES_JOB_URI) %then %do; + /* refer web service output to file service in one hit */ + filename _webout filesrvc parenturi="&SYS_JES_JOB_URI" name="_webout.json"; + %end; + /* send response in SASjs JSON format */ data _null_; file _webout mod lrecl=32000; @@ -1535,11 +1540,6 @@ Usage: if debug ge '"131"' then put '>>weboutEND<<'; run; %let syscc=0; - %if %symexist(SYS_JES_JOB_URI) %then %do; - /* refer web service output to file service in one hit */ - filename _webout filesrvc parenturi="&SYS_JES_JOB_URI" name="_webout.json"; - %let rc=%sysfunc(fcopy(_web,_webout)); - %end; %else %if %symexist(_metaport) %then %do; data _null_; if symexist('sysprocessmode') @@ -3796,6 +3796,7 @@ run; %return; %end; +/* must use SQL as proc datasets does not support length changes */ proc sql; alter table &libds modify &var char(&len);