working with itab

Zakitab.abap

REPORT Zakitab.


TABLES: scarr.
TABLES: sflight.
TYPES: BEGIN OF ty_sflight,
  carrierid TYPE sflight-carrid,
  END OF ty_sflight.
TYPES: BEGIN OF ty_scarr,
 carrieridd TYPE scarr-carrid,
 carriername TYPE scarr-carrname,
 END OF ty_scarr.
 
DATA: t_sflight TYPE STANDARD TABLE OF ty_sflight, wa_sflight TYPE ty_sflight.
DATA: t_scarr TYPE STANDARD TABLE OF ty_scarr, wa_scarr TYPE ty_scarr.

SELECT DISTINCT carrid FROM sflight INTO TABLE t_sflight.
IF sy-subrc <> 0.
  MESSAGE 'error' TYPE 'E'.
ELSE .

SELECT carrid carrname FROM scarr INTO TABLE t_scarr
  FOR ALL ENTRIES IN t_sflight WHERE carrid = t_sflight-carrierid.

ENDIF.
LOOP AT t_scarr INTO wa_scarr.
  WRITE: / wa_scarr-carrieridd, wa_scarr-carriername.
ENDLOOP.