[ABAP] SMTP-Email-Adresse von Lieferanten auslesen

PARAMETERS: p_lifnr TYPE lfa1-lifnr.

SELECT l~lifnr,
       l~adrnr,
       a~smtp_addr
  FROM lfa1 AS l
  INNER JOIN adr6 AS a  ON a~addrnumber = l~adrnr
  INTO TABLE @DATA(it_lfa)
  WHERE l~lifnr = @p_lifnr.

LOOP AT it_lfa ASSIGNING FIELD-SYMBOL(<l>).
  WRITE:/ <l>-lifnr, <l>-smtp_addr.
ENDLOOP.