Question { Atos Origin, 10043 }

HOW DO WE JOIN TWO INTERNAL TABLES USING READT STATEMENT??

Answer

Hi This I searched on sdn and thought to post .

data: wa_gfsb like line of i_gfsb,
wa_gfsbdata like line of i_gfsbdata,
lv_tabix type sy-tabix.

* Sort Table by Plant.
sort i_gfsbdata by matnr.

loop at i_gfsb into wa_gfsb.

read table i_gfsbdata into wa_gfsbdata
with key matnr = wa_gfsb-matnr binary search.

if sy-subrc is initial.
lv_tabix = sy-tabix.

loop at i_gfsbdata into wa_gfsbdata
from lv_tabix.

if wa_gfsbdata-matnr ne wa_gfsb-matnr.
exit.
else.
wa_gfsbdata-werks = wa_gfsb-werks.
wa_gfsbdata-verpr = wa_gfsb-verpr.
wa_gfsbdata-peinh = wa_gfsb-peinh.
modify i_gfsbdata from wa_gfsbdata.
endif.
clear wa_gfsbdata.
endloop.
endif.

endloop.