Need to move the data to final internal Table

Question

Hi all,
TYPES: BEGIN OF TY_MARA,
       MATNR       TYPE  MATNR,         " Material Number
       ZZBASE_CODE TYPE  ZBASE_CODE,    " Base Code
       END OF TY_MARA,
       BEGIN OF TY_MAKT,
       MAKTX       TYPE  MAKTX,         " Material Description
       END OF TY_MAKT,
       BEGIN OF TY_MARC,
       WERKS       TYPE  WERKS_D,      " Plant
       END OF TY_MARC,
       BEGIN OF TY_QMAT,
       ART           TYPE  QPART,         " Inspection Type
       END OF TY_QMAT,
       BEGIN OF TY_MAPL,
       MATNR        TYPE  MATNR,        " Material
       PLNTY        TYPE  PLNTY,        " Task List Type
       END OF TY_MAPL,
       BEGIN OF TY_PLKO,
       VERWE             TYPE     PLN_VERWE,     "     Task list usage
       END OF TY_PLKO,
      BEGIN OF TY_FINAL,
       MATNR          TYPE    MATNR,          " Material Number
       MAKTX          TYPE    MAKTX,          " Material Description
       ZZBASE_CODE    TYPE    ZBASE_CODE,     " Base Code
       WERKS          TYPE    WERKS_D,        " Plant
       CLASS          TYPE    KLASSE_D,       "     Class Number
       ART             TYPE    QPART,           " Inspection Type
       VERWE             TYPE    PLN_VERWE,       " Task list usage
     END OF TY_FINAL.
DATA: I_MARA  TYPE  STANDARD TABLE OF TY_MARA  ,
      I_MAKT  TYPE  STANDARD TABLE OF TY_MAKT  ,
      I_MARC  TYPE  STANDARD TABLE OF TY_MARC  ,
      I_QMAT  TYPE  STANDARD TABLE OF TY_QMAT  ,
      I_MAPL  TYPE  STANDARD TABLE OF TY_MAPL  ,
      I_PLKO  TYPE  STANDARD TABLE OF TY_PLKO  ,
      I_KLAH  TYPE  STANDARD TABLE OF TY_KLAH  ,
      I_FINAL TYPE  STANDARD TABLE OF TY_FINAL ,
      WA_MARA  TYPE  TY_MARA,
      WA_MAKT  TYPE  TY_MAKT,
      WA_MARC  TYPE  TY_MARC,
      WA_QMAT  TYPE  TY_QMAT,
      WA_MAPL  TYPE  TY_MAPL,
      WA_PLKO  TYPE  TY_PLKO,
      WA_KLAH  TYPE  TY_KLAH,
     WA_FINAL TYPE  TY_FINAL.
data: v_mtart         type    mara-mtart,
      v_matnr         type    mara-matnr,
      v_zzbase_code   type    mara-zzbase_code,
      v_werks         type    t001w-werks,
      v_beskz         type    marc-beskz.
selection-screen skip 1.
selection-screen begin of block b1 with frame title text-001.
select-options: s_mtart    for v_mtart default 'halb' to 'zraw',
                s_matnr    for v_matnr,
                s_zzbase   for v_zzbase_code,
                s_werks    for v_werks obligatory,
                s_beskz    for v_beskz.
selection-screen end of block b1.
start-of-selection.
select matnr
       zzbase_code
       from  mara into table i_mara
       where mtart in s_mtart       "Material Type
       and   matnr in s_matnr        "Material
       and   zzbase_code in s_zzbase."Base Code
select maktx
       from makt into table i_makt for all entries in i_mara
       where matnr = i_mara-matnr.
select werks
       from marc into table i_marc for all entries in i_mara
       where matnr = i_mara-matnr
       and werks in s_werks "plant
       and beskz in s_beskz."Procurement Type
select art
       from qmat into table i_qmat for all entries in i_mara
       where matnr = i_mara-matnr
       and werks in s_werks.
select matnr
       plnty from mapl into table i_mapl for all entries in i_mara
       where matnr = i_mara-matnr.
select verwe
       from plko into table i_plko for all entries in i_mapl
       where plnty = i_mapl-plnty.
this is my logic . i need to move this to final internal table i_final. how can do it. will anybody tell me with coding.
Thanks,

Answer 1

Hi,
Include matnr field in all your type declaration and plnty in the ty_plko,  type declaration.
loop at the internal table i_mara.
read the other tables with read statement.
assign the the required fields to the work area wa_final. Append it to i_final.
start-of-selection.
  select matnr  zzbase_code
    from mara   into table i_mara
   where mtart in s_mtart "Material Type   and matnr in s_matnr "Material  and zzbase_code in s_zzbase. "Base Code
  select matnr  maktx        
    from makt   into table i_makt
     for all entries in i_mara   where matnr = i_mara-matnr.
  select matnr  werks
    from marc  into table i_marc
     for all entries in i_mara  where matnr = i_mara-matnr   and werks in s_werks "plant   and beskz in s_beskz."Procurement Type
  select matnr  art
    from qmat  into table i_qmat
     for all entries in i_mara where matnr = i_mara-matnr   and werks in s_werks.
  select matnr plnty
    from mapl into table i_mapl
    for all entries in i_mara  where matnr = i_mara-matnr.
  select plnty verwe
    from plko  into table i_plko
     for all entries in i_mapl  where plnty = i_mapl-plnty.
Loop at i_mara into wa_mara.
read table i_makt into wa_makt with key matnr = wa_mara-matnr.
(do this for all the internal tables.)
read table i_plko into wa_plko with key plnty = wa_mapl-plnty.
wa_final-MATNR = wa_mara-matnr.
wa_final-MAKTX = wa_makt-maktx.
wa_final-ZZBASE_CODE = wa_mara-ZZBASE_CODE.
wa_final-WERKS = wa_marc-werks.
wa_final-ART = wa_qmat-art.
wa_final-VERWE = wa_plko-verve.
append i_final from wa_final.
endloop.
Hope this helps.
Regards,
Dhasarathy. K