DATA:i_cdhdr LIKE TABLE OF cdhdr,
i_cdpos LIKE TABLE OF cdpos,
wa_cdpos LIKE cdpos,
wa_cdhdr LIKE cdhdr,
wa_usr21 LIKE usr21.


SELECT * FROM cdhdr INTO TABLE i_cdhdr
WHERE objectclas = 'EINKBELEG'
AND objectid = is_ekko-ebeln.

SELECT * FROM cdpos INTO TABLE i_cdpos
WHERE objectclas = 'EINKBELEG'
AND objectid = is_ekko-ebeln
AND fname = 'FRGZU'.

SORT i_cdpos BY changenr DESCENDING.

READ TABLE i_cdpos INTO wa_cdpos INDEX 1.

IF sy-subrc EQ 0.
READ TABLE i_cdhdr INTO wa_cdhdr
WITH KEY changenr = wa_cdpos-changenr.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM usr21 INTO wa_usr21
WHERE bname = wa_cdhdr-username.
IF sy-subrc EQ 0.
SELECT SINGLE name_last FROM adrp INTO g_value
WHERE persnumber = wa_usr21-persnumber.
ENDIF.
ENDIF.
ENDIF.

CONDENSE g_value.