From 3d7f9b71e13a38f5bdd2e144eab4d41527be4d3a Mon Sep 17 00:00:00 2001
From: Allan Bowe <allnbwe@gmail.com>
Date: Thu, 2 Jun 2022 17:50:50 +0000
Subject: [PATCH] fix: hard abort in mm_getstpcode when the stp does not exist

---
 all.sas                | 10 +++++-----
 meta/mm_getstpcode.sas | 10 +++++-----
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/all.sas b/all.sas
index f56cd48..3718713 100644
--- a/all.sas
+++ b/all.sas
@@ -17163,6 +17163,7 @@ filename __mc2 clear;
 
   <h4> SAS Macros </h4>
   @li mf_getuniquefileref.sas
+  @li mp_abort.sas
 
   @author Allan Bowe
 
@@ -17212,11 +17213,10 @@ data _null_;
   else put (_all_)(=);
 run;
 
-%if &tsuri=stopifempty %then %do;
-  %put %str(WARN)ING:  &tree&name.(StoredProcess) not found!;
-  %return;
-%end;
-
+%mp_abort(iftrue= (&tsuri=stopifempty)
+  ,mac=mm_getstpcode
+  ,msg=%str(&tree&name.(StoredProcess) not found!)
+)
 
 /**
   * Now we can extract the textstore
diff --git a/meta/mm_getstpcode.sas b/meta/mm_getstpcode.sas
index ac471af..a5a03e0 100644
--- a/meta/mm_getstpcode.sas
+++ b/meta/mm_getstpcode.sas
@@ -21,6 +21,7 @@
 
   <h4> SAS Macros </h4>
   @li mf_getuniquefileref.sas
+  @li mp_abort.sas
 
   @author Allan Bowe
 
@@ -70,11 +71,10 @@ data _null_;
   else put (_all_)(=);
 run;
 
-%if &tsuri=stopifempty %then %do;
-  %put %str(WARN)ING:  &tree&name.(StoredProcess) not found!;
-  %return;
-%end;
-
+%mp_abort(iftrue= (&tsuri=stopifempty)
+  ,mac=mm_getstpcode
+  ,msg=%str(&tree&name.(StoredProcess) not found!)
+)
 
 /**
   * Now we can extract the textstore