From db2531e0b3cc0e72f7206ce43a488659dc116aca Mon Sep 17 00:00:00 2001
From: Trevor Moody <trevor@dacite.co.uk>
Date: Mon, 10 May 2021 12:42:36 +0100
Subject: [PATCH] fix: Non-stp propagation of syscc

---
 base/mp_abort.sas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/base/mp_abort.sas b/base/mp_abort.sas
index 64bdf7f..5854911 100644
--- a/base/mp_abort.sas
+++ b/base/mp_abort.sas
@@ -125,12 +125,13 @@
       if debug ge '"131"' then put '>>weboutEND<<';
     run;
 
-    %let syscc=0;
     %if %symexist(_metaport) %then %do;
       data _null_;
-        if symexist('sysprocessmode')
-         then if symget("sysprocessmode")="SAS Stored Process Server"
-          then rc=stpsrvset('program error', 0);
+        if symexist('sysprocessmode') then
+          if symget("sysprocessmode")="SAS Stored Process Server" then do;
+            rc=stpsrvset('program error', 0);
+            call symputx("syscc",0,"g");
+          end;
       run;
     %end;
     /**