Combining internal tables

Question

Dear experts,
   i need to put the below 4 internal table values into i_final internal table,
SELECT warpl wstra plnnr plnal
    FROM mpos INTO CORRESPONDING FIELDS OF TABLE i_mpos
    WHERE warpl IN p_warpl.
SELECT warpl abnum zaehl nplda terma stadt lrmdt
       offze offzo abrud abrna
       INTO   CORRESPONDING FIELDS OF TABLE i_mhis
       FROM   mhis
       FOR    ALL ENTRIES IN i_mpos
       where  warpl = i_mpos-warpl.
  SELECT plnnr plnal plnkn paket zaehl datuv strat
         INTO   CORRESPONDING FIELDS OF TABLE i_plwp
         FROM   plwp
         FOR    ALL ENTRIES IN i_mpos
         WHERE  plnnr = i_mpos-plnnr AND
                plnal = i_mpos-plnal.
  SELECT plnnr plnkn ltxa1 arbei
           INTO   CORRESPONDING FIELDS OF TABLE i_plpo
           FROM   plpo
           FOR    ALL ENTRIES IN i_plwp
           WHERE  plnnr = i_plwp-plnnr AND
                  plnkn = i_plwp-plnkn.
   could any one pls send coding for the above
thanks in advance
karthik

Answer 1

I cannot check fully because i dont have records for this combination. you can try this with your records.
I hope it will work.
REPORT  Z_TESTYUVA                              .
Tables : MPOS,
         MHIS,
         PLWP,
         PLPO.
*data  p_warpl LIKE mpos-warpl.
Parameter : p_warpl LIKE mpos-warpl.
DATA : i_mpos LIKE mpos Occurs 0 With Header Line,
       i_mhis LIKE mhis Occurs 0 With Header Line,
       i_plwp LIKE plwp Occurs 0 With Header Line,
       i_plpo LIKE plpo Occurs 0 With Header Line.
DATA : Begin of it_final Occurs 0 ,
warpl LIKE MPOS-warpl,
wstra LIKE MPOS-wstra,
plnnr LIKE MPOS-plnnr,
plnal LIKE MPOS-plnal,
abnum LIKE MHIS-abnum,
zaehl LIKE MHIS-zaehl,
nplda LIKE MHIS-nplda,
terma LIKE MHIS-terma,
stadt LIKE MHIS-stadt,
lrmdt LIKE MHIS-lrmdt,
offze LIKE MHIS-offze,
offzo LIKE MHIS-offzo,
abrud LIKE MHIS-abrud,
abrna LIKE MHIS-abrna,
plnkn LIKE PLWP-plnkn,
paket LIKE PLWP-paket,
datuv LIKE PLWP-datuv,
strat LIKE PLWP-strat,
ltxa1 LIKE PLPO-ltxa1,
arbei LIKE PLPO-arbei,
END OF it_final.
SELECT warpl wstra plnnr plnal
FROM mpos INTO CORRESPONDING FIELDS OF TABLE i_mpos
WHERE warpl = p_warpl.
SELECT warpl abnum zaehl nplda terma stadt lrmdt
offze offzo abrud abrna
INTO CORRESPONDING FIELDS OF TABLE i_mhis
FROM mhis
FOR ALL ENTRIES IN i_mpos
where warpl = i_mpos-warpl.
SELECT plnnr plnal plnkn paket zaehl datuv strat
INTO CORRESPONDING FIELDS OF TABLE i_plwp
FROM plwp
FOR ALL ENTRIES IN i_mpos
WHERE plnnr = i_mpos-plnnr AND
plnal = i_mpos-plnal.
SELECT plnnr plnkn ltxa1 arbei
INTO CORRESPONDING FIELDS OF TABLE i_plpo
FROM plpo
FOR ALL ENTRIES IN i_plwp
WHERE plnnr = i_plwp-plnnr AND
plnkn = i_plwp-plnkn.
loop at i_mpos.
   move-corresponding  i_mpos to it_final.
  LOOP AT i_mhis WHERE warpl = i_mpos-warpl.
       move-corresponding i_mhis to it_final.
       APPEND it_final.
       CLEAR it_final.
       ENDLOOP.
  LOOP AT i_plwp WHERE plnnr = i_mpos-plnnr AND
       plnal = i_mpos-plnal.
       move-corresponding i_plwp to it_final.
       MODIFY it_final TRANSPORTING plnnr plnal plnkn paket zaehl datuv strat  "You can try giving all to transporting
        WHERE plnnr = i_mpos-plnnr AND
        plnal = i_mpos-plnal.
  LOOP AT i_plpo WHERE plnnr = i_plwp-plnnr AND
        plnkn = i_plwp-plnkn.
       move-corresponding i_plpo to it_final.
       MODIFY it_final TRANSPORTING plnnr plnkn ltxa1 arbei         "You can try giving all to transporting
        WHERE plnnr = i_plwp-plnnr AND
        plnal = i_plwp-plnal.
       ENDLOOP.
       ENDLOOP.
  ENDLOOP.
BY
Yuvaram.
Reward if useful