From cd134cd0de5ae289294a26a259e05d54925d3f66 Mon Sep 17 00:00:00 2001
From: Lars Hvam <larshp@hotmail.com>
Date: Thu, 11 May 2023 11:16:35 +0200
Subject: [PATCH] fix dump in `zcl_abapgit_data_utils` while getting key fields
 (#6269)

---
 src/data/zcl_abapgit_data_utils.clas.abap | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/data/zcl_abapgit_data_utils.clas.abap b/src/data/zcl_abapgit_data_utils.clas.abap
index a880285c4..db538b410 100644
--- a/src/data/zcl_abapgit_data_utils.clas.abap
+++ b/src/data/zcl_abapgit_data_utils.clas.abap
@@ -225,7 +225,10 @@ CLASS zcl_abapgit_data_utils IMPLEMENTATION.
           RECEIVING
             ro_database_table = lo_obj.
         ASSIGN lo_obj->('IF_XCO_DATABASE_TABLE~FIELDS->IF_XCO_DBT_FIELDS_FACTORY~KEY') TO <lg_any>.
-        ASSERT sy-subrc = 0.
+        IF sy-subrc  <> 0.
+* fallback to RTTI, KEY field does not exist in S/4 2020
+          RAISE EXCEPTION TYPE cx_sy_dyn_call_illegal_class.
+        ENDIF.
         lo_obj = <lg_any>.
         CALL METHOD lo_obj->('IF_XCO_DBT_FIELDS~GET_NAMES')
           RECEIVING