TYPES: BEGIN OF t_str ,
             carrid    LIKE sflight-carrid,
             connid   LIKE sflight-connid,
             carrname LIKE scarr-carrname,
END   OF t_str.

DATA  gs_wa    TYPE t_str.

DATA : gv_carrid LIKE sflight-carrid VALUE 'AA'.

EXEC SQL PERFORMING WRITE_DATA.
  SELECT A.CARRID, SUBSTR(B.CARRNAME, 1, 8)
    INTO :GS_WA-CARRID, :GS_WA-CARRNAME
    FROM SFLIGHT A, SCARR B
   WHERE A.MANDT = B.MANDT
         AND A.CARRID = B.CARRID
         AND A.MANDT = :SY-MANDT
         AND A.CARRID = :GV_CARRID
ENDEXEC.

FORM write_data.
  WRITE : / gs_wa-carrid, gs_wa-carrname.
ENDFORM.                    "WRITE_DATA