From 703646ca48ec7a7758cf6aeab279a96344bb3a33 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Christian=20G=C3=BCnter?= <christianguenter@googlemail.com>
Date: Fri, 26 Jan 2024 08:08:09 +0100
Subject: [PATCH] Downport rtti_get_classes_impl_intf (#816)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Co-authored-by: Christian Günter <christian.guenter@emineo.ch>
---
 src/00/z2ui5_cl_util_func.clas.abap | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/00/z2ui5_cl_util_func.clas.abap b/src/00/z2ui5_cl_util_func.clas.abap
index a66ba614..aacbdb2e 100644
--- a/src/00/z2ui5_cl_util_func.clas.abap
+++ b/src/00/z2ui5_cl_util_func.clas.abap
@@ -912,9 +912,15 @@ CLASS z2ui5_cl_util_func IMPLEMENTATION.
 
         FIELD-SYMBOLS <any> TYPE any.
         ASSIGN obj->('IF_XCO_AO_INTERFACE~IMPLEMENTATIONS') TO <any>.
+        IF sy-subrc <> 0.
+          RAISE EXCEPTION TYPE cx_sy_dyn_call_illegal_class.
+        ENDIF.
         obj = <any>.
 
         ASSIGN obj->('IF_XCO_INTF_IMPLEMENTATIONS_FC~ALL') TO <any>.
+        IF sy-subrc <> 0.
+          RAISE EXCEPTION TYPE cx_sy_dyn_call_illegal_class.
+        ENDIF.
         obj = <any>.
 
         CALL METHOD obj->('IF_XCO_INTF_IMPLEMENTATIONS~GET').