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.
转载请注明原文地址: https://www.6miu.com/read-17395.html
