SAP获取用户实际用户名

最新推荐文章于 2024-08-09 07:34:38 发布

Vince Chang

最新推荐文章于 2024-08-09 07:34:38 发布

阅读量9.6k

点赞数

分类专栏：日志

本文链接：https://blog.csdn.net/zeewjj/article/details/8610442

版权

日志专栏收录该内容

70 篇文章 0 订阅

订阅专栏

FUNCTION ZGET_USERNAME.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(I_UNAME) TYPE SY-UNAME
*" EXPORTING
*" REFERENCE(E_UNAME) TYPE SY-UNAME
*"----------------------------------------------------------------------
DATA: L_DEPARTMENT TYPE AD_DPRTMNT,
L_ADDRNUMBER TYPE AD_ADDRNUM,
L_PERSNUMBER TYPE AD_PERSNUM,
L_UNAME TYPE SY-UNAME,
L_NAME_FIRST TYPE AD_NAMEFIR,
L_NAME_LAST TYPE AD_NAMELAS.
SELECT SINGLE PERSNUMBER ADDRNUMBER INTO
(L_PERSNUMBER, L_ADDRNUMBER)
FROM USR21
WHERE BNAME = I_UNAME.
IF SY-SUBRC = 0.
SELECT SINGLE NAME_FIRST NAME_LAST INTO (L_NAME_FIRST,L_NAME_LAST)
FROM ADRP
WHERE PERSNUMBER = L_PERSNUMBER.
IF SY-SUBRC = 0.
CONCATENATE L_NAME_LAST L_NAME_FIRST INTO E_UNAME.
CONDENSE E_UNAME NO-GAPS.
ENDIF.
ENDIF.