Populating one Internal table from two internal tables.

Question

Hello Gurus,
iam having 3 internal table with same structure ,
1st internal table having some records
2nd internal table is also having some records
what i need to do is to populate the records to the 3rd internal table which the common records in the 1st and 2nd internal table. (common means intersection).
please explain how and using which concept and if possible code also...
Regards,
Ravi.

Answer 1

hi ravi,
look at the folowing code for reference
*&--mard structure
types: begin of struc_mard,
       matnr     type matnr,           "Material Number
       werks     type werks_d,           "Plant
       lgort     type lgort_d,           "Storage Location
       labst type labst,         "Valuated stock with unrestricted use
       end of struc_mard.
*&--mara structure
types: begin of struc_mara,
       matnr type matnr,         "material number
       meins type meins,         "unit of measurement
       mtart type mtart,         "material type
       ersda     type ersda,           "Creation date
       end of struc_mara.
*&--maktx structure
types: begin of struc_maktx,
       matnr type matnr,        "material number
       maktx type maktx,        "material description
       end of struc_maktx.
*&--Final structure
types: begin of struc_final,
       matnr     type matnr,           "Material Number
       werks     type werks_d,           "Plant
       lgort     type lgort_d,           "Storage Location
       labst type labst,         "Valuated stock with unrestricted use
       meins type meins,         "unit of measurement
       mtart type mtart,         "material type
       ersda     type ersda,           "Creation date
       maktx type maktx,         "material description
       v_box(1) type c,          "for checkbox field
       end of struc_final.
*&---work  area for Internal Tables[population 1]
data: wa_mard type struc_mard,
      wa_mara type struc_mara,
      wa_maktx type struc_maktx,
      wa_final type struc_final.
                 INTERNAL TABLES  DECLARATION                        *
*&---Internal tables for storing data.[populaiton 1]
data: i_mard  type standard table of struc_mard,
      i_mara  type standard table of struc_mara,
      i_maktx type standard table of struc_maktx,
      i_final type standard table of struc_final.
*&--fetching the data from table for storage
  select  matnr
          werks
          lgort
          labst
          into table i_mard
          from mard
          where matnr in r_matnr and werks in r_werks and lgort in
          r_lgort
  if sy-subrc <> 0.  "if unsuccesful
    message e004.    "Error- Record does not exist
  endif.
selection of material description
  if i_mard[] is not initial.
*SELECT DISTINCT FOR UNIQUE ENTRIES ONLY
    select  distinct matnr
                     maktx
                     into table i_maktx
                     from makt
                     for all entries in i_mard
                     where matnr = i_mard-matnr and
                     spras = sy-langu.
    if sy-subrc <> 0.                    " if unsucessful
      wa_maktx-maktx = text-028.         "NO DESCRIPTION
    endif.
*fetching information from material master
    select  distinct matnr
                     meins
                     mtart
                     ersda
                     into table i_mara
                     from mara for all entries in i_mard
                     where matnr = i_mard-matnr.
    if sy-subrc <> 0.
      message e003.
    endif.
*&--sorting the tables
    sort: i_mard by matnr werks lgort,
          i_mara by matnr,
          i_maktx by matnr.
*&--Clearing workareas.
    clear: wa_mard,
           wa_mara,
           wa_maktx,
           wa_final.
*PROCESSING
    loop at i_mard into wa_mard.
*moving values to final workarea
      wa_final = wa_mard.
      at new matnr.
        read table i_maktx into wa_maktx
        with key matnr = wa_mard-matnr binary search.
        read table i_mara into wa_mara
        with key matnr = wa_mard-matnr binary search.
      endat.
      if sy-subrc = 0.
        "if succesful then move to final workarea
        wa_final-maktx  = wa_maktx-maktx.
*for mara values
        wa_final-meins  = wa_mara-meins.
        wa_final-mtart = wa_mara-mtart.
        wa_final-ersda  = wa_mara-ersda.
      endif.
*append final workarea
      append wa_final to i_final.
    endloop.
clearing and refreshing the table I_MARD
    refresh: i_mard.
    clear: wa_mard.
  endif.
endform.                    "zf_populate_info
this will move all the data into final table you have got, with the performnce tuned way
reward point if useful
Rohan malik