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

lcl_user list, key added

Browse Source
This commit is contained in:
larshp 2016-04-26 08:18:54 +00:00
parent 7134846c70
commit 1a5fc2927b
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
zabapgit.prog.abap
View File

@ -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: <ls_output> LIKE LINE OF rt_data,
<ls_stxh> LIKE LINE OF lt_stxh.
@ -1076,10 +1076,9 @@ CLASS lcl_user IMPLEMENTATION.
LOOP AT lt_stxh ASSIGNING <ls_stxh>.
APPEND INITIAL LINE TO rt_data ASSIGNING <ls_output>.
lv_user = <ls_stxh>-tdname+18.
<ls_output>-username = get_username( lv_user ).
<ls_output>-email = get_email( lv_user ).
<ls_output>-user = <ls_stxh>-tdname+18.
<ls_output>-username = get_username( <ls_output>-user ).
<ls_output>-email = get_email( <ls_output>-user ).
ENDLOOP.
ENDMETHOD.