REPORT  z03_25.

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 carrid IN ( SELECT  carrid
                     FROM  spfli
                     WHERE carrid  = a~carrid
                     AND    connid = a~connid  )
  AND a~carrid = 'AA'.

WRITE: gv_carrid, gv_connid, gv_paymentsum.