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'.