根據工號獲取姓名

邏輯很簡單，就是去標準表中關聯取值，源代碼以下：

DATA: w_firstname TYPE adrp-name_first.
  DATA: w_lastname  TYPE adrp-name_last.
  CLEAR: e_name.
  IF I_ernam IS NOT INITIAL.
    CLEAR: w_firstname,w_lastname.
    SELECT SINGLE name_first name_last
      INTO (w_firstname, w_lastname)
      FROM usr21
      INNER JOIN adrp ON usr21~persnumber = adrp~persnumber
      WHERE usr21~bname = i_ernam.
    CONDENSE: w_firstname,w_lastname.
    CONCATENATE w_lastname w_firstname INTO e_name.
    CONDENSE e_name.
  ENDIF.

執行結果：