fix: mp_abort on viya

macropeople · Jun 9, 2020 · 29c26f0 · 29c26f0
1 parent f9ccdfa
commit 29c26f0
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 10 deletions.
diff --git 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
@@ -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);