DATA:L_NAME_LAST LIKE ADRP-NAME_LAST,
L_NAME_FIRST LIKE ADRP-NAME_FIRST.
CLEAR:L_NAME_LAST,L_NAME_FIRST
.
SELECT SINGLE NAME_LAST NAME_FIRST
FROM ADRP
INNER JOIN USR21 ON USR21~PERSNUMBER = ADRP~PERSNUMBER
INTO (L_NAME_LAST,L_NAME_FIRST)
WHERE BNAME = 'LIUM'.