From b2d0d98ec0ef2ec0ce5b8c867a40bb83a12f36a4 Mon Sep 17 00:00:00 2001
From: Lars Hvam <larshp@hotmail.com>
Date: Mon, 14 Apr 2025 09:29:39 +0200
Subject: [PATCH] user record: refactor get_title() for open-abap compatibility
 (#7210)

---
 src/env/zcl_abapgit_user_record.clas.abap | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/src/env/zcl_abapgit_user_record.clas.abap b/src/env/zcl_abapgit_user_record.clas.abap
index ca51be4f4..47e848a35 100644
--- a/src/env/zcl_abapgit_user_record.clas.abap
+++ b/src/env/zcl_abapgit_user_record.clas.abap
@@ -60,19 +60,30 @@ CLASS zcl_abapgit_user_record IMPLEMENTATION.
 
   METHOD get_title.
 * the queried username might not exist, so this method is static
+* refactored for open-abap compatibility
 
-    DATA ls_user_address TYPE addr3_val.
+    DATA lr_addr3             TYPE REF TO data.
+    FIELD-SYMBOLS <ls_addr3>  TYPE any.
+    FIELD-SYMBOLS <lv_simple> TYPE simple.
+
+    TRY.
+        CREATE DATA lr_addr3 TYPE ('ADDR3_VAL').
+      CATCH cx_sy_create_data_error.
+        RETURN.
+    ENDTRY.
+    ASSIGN lr_addr3->* TO <ls_addr3>.
 
     CALL FUNCTION 'SUSR_USER_ADDRESS_READ'
       EXPORTING
         user_name              = iv_username
       IMPORTING
-        user_address           = ls_user_address
+        user_address           = <ls_addr3>
       EXCEPTIONS
         user_address_not_found = 1
         OTHERS                 = 2.
     IF sy-subrc = 0.
-      rv_title = ls_user_address-name_text.
+      ASSIGN COMPONENT 'NAME_TEXT' OF STRUCTURE <ls_addr3> TO <lv_simple>.
+      rv_title = <lv_simple>.
     ENDIF.
 
   ENDMETHOD.