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
댓글을 달기 위해서는 로그인해야합니다.