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

fix: more logic to improve robustness

Browse Source
This commit is contained in:
Allan Bowe
2021-05-11 12:39:10 +03:00
parent 583c7e0c83
commit e6146dcbcf
1 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
base/mp_abort.sas
View File

@@ -24,6 +24,8 @@
%macro mp_abort(mac=mp_abort.sas, type=, msg=, iftrue=%str(1=1) %macro mp_abort(mac=mp_abort.sas, type=, msg=, iftrue=%str(1=1)
)/*/STORE SOURCE*/; )/*/STORE SOURCE*/;
%global sysprocessmode sysprocessname;
%if not(%eval(%unquote(&iftrue))) %then %return; %if not(%eval(%unquote(&iftrue))) %then %return;
%put NOTE: /// mp_abort macro executing //; %put NOTE: /// mp_abort macro executing //;
@@ -31,9 +33,7 @@
%put NOTE - &msg; %put NOTE - &msg;
/* Stored Process Server web app context */ /* Stored Process Server web app context */
%if %symexist(_metaperson) %if %symexist(_metaperson) or "&SYSPROCESSNAME"="Compute Server" %then %do;
or (%symexist(SYSPROCESSNAME) and "&SYSPROCESSNAME"="Compute Server" )
%then %do;
options obs=max replace nosyntaxcheck mprint; options obs=max replace nosyntaxcheck mprint;
/* extract log errs / warns, if exist */ /* extract log errs / warns, if exist */
%local logloc logline; %local logloc logline;
@@ -128,14 +128,13 @@
if debug ge '"131"' then put '>>weboutEND<<'; if debug ge '"131"' then put '>>weboutEND<<';
run; run;
data _null_; %if "&sysprocessmode " = "SAS Stored Process Server " %then %do;
if symexist('sysprocessmode') then data _null_;
if symget("sysprocessmode")="SAS Stored Process Server" then do; putlog 'stpsrvset program error and syscc';
putlog 'stpsrvset program error and syscc'; rc=stpsrvset('program error', 0);
rc=stpsrvset('program error', 0); call symputx("syscc",0,"g");
call symputx("syscc",0,"g"); run;
end; %end;
run;
%if "%substr(&sysvlong.xxxxxxx,1,9)" ne "9.04.01M3" %then %do; %if "%substr(&sysvlong.xxxxxxx,1,9)" ne "9.04.01M3" %then %do;
%put NOTE: Ending SAS session due to:; %put NOTE: Ending SAS session due to:;
@@ -154,7 +153,10 @@
filename skip temp; filename skip temp;
data _null_; data _null_;
file skip; file skip;
put '%macro skip(); %macro skippy();'; put '%macro skip();';
comment '%mend skip; -> fix lint ';
put '%macro skippy();';
comment '%mend skippy; -> fix lint ';
run; run;
%inc skip; %inc skip;
%end; %end;