REPORT  z05_36

REPORT  z05_36.

DATA: BEGIN OF gs_line,
    carrid      TYPE sflight-carrid,
    carrname   TYPE scarr-carrname,
  END OF gs_line.

DATA gt_itab    LIKE TABLE OF gs_line.
DATA gt_scarr   LIKE TABLE OF scarr   WITH HEADER LINE.

SELECT carrid connid INTO CORRESPONDING FIELDS OF TABLE gt_itab 

FROM sflight.

SELECT carrid carrname INTO CORRESPONDING FIELDS OF TABLE gt_scarr
FROM scarr .

LOOP AT gt_itab INTO gs_line.

  READ TABLE gt_scarr WITH KEY carrid = gs_line-carrid BINARY SEARCH.

  gs_line-carrname = gt_scarr-carrname.

  MODIFY gt_itab FROM gs_line.

  WRITE : / gs_line-carrid, gs_line-carrname.

ENDLOOP.


Leave a Reply