SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

user record: refactor get_title() for open-abap compatibility

Browse Source
This commit is contained in:
Lars Hvam 2025-04-13 12:27:04 +02:00
parent c0ce2cb2e2
commit a49d401a12
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/env/zcl_abapgit_user_record.clas.abap vendored
View File

@ -60,19 +60,30 @@ CLASS zcl_abapgit_user_record IMPLEMENTATION.
METHOD get_title. METHOD get_title.
* the queried username might not exist, so this method is static * 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' CALL FUNCTION 'SUSR_USER_ADDRESS_READ'
EXPORTING EXPORTING
user_name = iv_username user_name = iv_username
IMPORTING IMPORTING
user_address = ls_user_address user_address = <ls_addr3>
EXCEPTIONS EXCEPTIONS
user_address_not_found = 1 user_address_not_found = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc = 0. 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. ENDIF.
ENDMETHOD. ENDMETHOD.