REPORT  Z03_14.

DATA: gv_carrid        TYPE sflight-carrid,
       gv_connid       TYPE sflight-connid,
       gv_paymentsum TYPE sflight-paymentsum.

SELECT SINGLE carrid connid paymentsum
  INTO (gv_carrid , gv_connid, gv_paymentsum)
  FROM  sflight AS a
  WHERE EXISTS ( SELECT *
      FROM  spfli
      WHERE carrid = a~carrid
      AND  connid = a~connid  )
  AND a~carrid = 'AA'.

WRITE: gv_carrid, gv_connid, gv_paymentsum.