ABAP 代码实现：通过当前用户名取到ADRP的NAME_TEXT

以下是 ABAP 代码实现的示例：

DATA: lv_username TYPE sy-uname,
      lv_adrp_name TYPE adrp-pname.

* 获取当前用户名
lv_username = sy-uname.

* 通过用户名查找 ADRP 记录
SELECT SINGLE pname INTO lv_adrp_name
  FROM adrp
  WHERE uname = lv_username.

IF sy-subrc <> 0.
  MESSAGE 'Could not find ADRP record for user' TYPE 'E'.
ENDIF.

* 获取 ADRP 的 NAME_TEXT
SELECT SINGLE name_text FROM adrp INTO @DATA(lv_name_text)
  WHERE pname = lv_adrp_name.

IF sy-subrc <> 0.
  MESSAGE 'Could not find NAME_TEXT for ADRP record' TYPE 'E'.
ENDIF.

WRITE: / 'ADRP NAME_TEXT for user', lv_username, 'is', lv_name_text.

这段代码首先获取当前用户的用户名，然后在 ADRP 表中查找与该用户名对应的记录，并获取该记录的 PNAME 字段。最后，通过 PNAME 字段再次查询 ADRP 表，获取 NAME_TEXT 字段的值。如果任何一个查询失败，则会输出相应的错误消息。