ABAP如何顯示當前的用戶

背景：以下代碼實現瞭如何顯示當前登錄的用戶

REPORT ztest_fullname.
 
DATA:g_persnumber TYPE usr21-persnumber,
     g_name_first TYPE adrp-name_first,
     g_name_last  TYPE adrp-name_last.
 
SELECT SINGLE persnumber
  INTO g_persnumber
  FROM usr21
 WHERE bname = sy-uname.
 
IF sy-subrc = 0.
  SELECT SINGLE name_first "First name.
                name_last  "Last name
    FROM adrp
    INTO (g_name_first,g_name_last)
   WHERE persnumber = g_persnumber.
 
  IF sy-subrc = 0.
    WRITE: g_name_first , g_name_last .
  ENDIF.
ENDIF.