How to compare two internal table and store value in third table

Question

Dear All,
              There is two tabel say I_T1 & T2, in I_T1 there are 4 rows , in T2 there are multiple rows against the same field. Say there is a filed X common in both table .
Value of I_T1-X are
10
20
50
90
and value ot T2-X are
10
15
20
30
40
50
.100
Now i want to fetch data form T2 against the common field of I_T1-X and store into other internal table.
Plz suggest me the proper way of doing this.
Rewards points assured for proper answer.
Regards,
Gulrez Alam

Answer 1

hi this is like your requirement.
in this i am storing the values into the final table
REPORT  ZZZZ000000.
tables:mara,marc,mard,makt.
data:begin of it_mara occurs 0,
     matnr like mara-matnr,
     mtart like mara-mtart,
     meins like mara-meins,
     end of it_mara.
data:begin of it_marc occurs 0,
     matnr like marc-matnr,
     pstat like marc-pstat,
     werks like marc-werks,
     end of it_marc.
data:begin of it_mard occurs 0,
     werks like mard-werks,
     lgort like mard-lgort,
     labst like mard-labst,
     end of it_mard.
data:begin of it_final occurs 0,
     matnr like mara-matnr,
     mtart like mara-mtart,
     meins like mara-meins,
     pstat like marc-pstat,
     werks like marc-werks,
     lgort like mard-lgort,
     labst like mard-labst,
     maktx like makt-maktx,
     end of it_final.
select-options:s_matnr for mara-matnr.
select  matnr
        mtart
        meins
        from mara
        into table it_mara
        where matnr in s_matnr.
        if not it_mara[] is initial.
        select matnr
               pstat
               werks
               from marc
               into table it_marc
               for all entries in it_mara
               where matnr = it_mara-matnr.
               if not it_marc[] is initial.
               select werks
                      lgort
                      labst
                      from mard
                      into table it_mard
                      for all entries in it_marc
                      where werks = it_marc-werks.
               endif.
      endif.
loop at it_mara.
it_final-matnr = it_mara-matnr.
it_final-mtart = it_mara-mtart.
it_final-meins = it_mara-meins.
read table it_marc with key matnr = it_mara-matnr.
it_final-werks = it_marc-werks.
it_final-pstat = it_marc-pstat.
read table it_mard with key werks = it_marc-werks.
it_final-lgort = it_mard-lgort.
it_final-labst = it_mard-labst.
if sy-subrc = 0.
select maktx from makt into it_final-maktx where matnr = it_final-matnr.
endselect.
endif.
append it_final.
endloop.
loop at it_final.
write:/ it_final-matnr under 'material',
        it_final-mtart under 'material type',
        it_final-meins under 'unit of measure',
        it_final-werks under 'plant' ,
        it_final-pstat under 'status',
        it_final-lgort under 'storage loc',
        it_final-labst under 'stock',
        it_final-maktx.
endloop.
reward points if useful,
venkat.