diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap index 43a68cafb..41ec35880 100644 --- a/zabapgit.prog.abap +++ b/zabapgit.prog.abap @@ -3,7 +3,7 @@ REPORT zabapgit. * See http://www.abapgit.org CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT - gc_abap_version TYPE string VALUE 'v1.3.3'. "#EC NOTEXT + gc_abap_version TYPE string VALUE 'v1.3.4'. "#EC NOTEXT ******************************************************************************** * The MIT License (MIT) @@ -905,6 +905,7 @@ CLASS lcl_user DEFINITION FINAL. PUBLIC SECTION. TYPES: BEGIN OF ty_user, + user LIKE sy-uname, username TYPE string, email TYPE string, END OF ty_user. @@ -1062,8 +1063,7 @@ CLASS lcl_user IMPLEMENTATION. METHOD list. - DATA: lt_stxh TYPE STANDARD TABLE OF stxh WITH DEFAULT KEY, - lv_user LIKE sy-uname. + DATA: lt_stxh TYPE STANDARD TABLE OF stxh WITH DEFAULT KEY. FIELD-SYMBOLS: LIKE LINE OF rt_data, LIKE LINE OF lt_stxh. @@ -1076,10 +1076,9 @@ CLASS lcl_user IMPLEMENTATION. LOOP AT lt_stxh ASSIGNING . APPEND INITIAL LINE TO rt_data ASSIGNING . - lv_user = -tdname+18. - - -username = get_username( lv_user ). - -email = get_email( lv_user ). + -user = -tdname+18. + -username = get_username( -user ). + -email = get_email( -user ). ENDLOOP. ENDMETHOD.