Problem in filling the final internal table

Question

Hi,
I am working on a code in which i have to fill up the final internal table which will store the values coming form different internal tables.Here's the code which i am trying to do but it is not giving the execat functionality.In this code ITOUTPUT is the final itab which is storing the values of all other internal tables.
Here's the code:-
loop at itab1.
  select single maktx into v_item from makt where matnr = itab1-matnr.
      ITOUTPUT-banfn = ITab1-banfn.
      ITOUTPUT-badat = ITab1-badat.
      ITOUTPUT-meins = ITab1-meins.
      ITOUTPUT-menge = ITab1-menge.
      ITOUTPUT-lfdat = ITab1-lfdat.
  IF ITAB1-MEINS = 'KG'.
    V_TOTREQ = V_TOTREQ + ITAB1-MENGE.
  ELSEIF ITAB1-MEINS = 'TO'.
    V_TOTREQ = V_TOTREQ + ( ITAB1-MENGE * 1000 ).
  ELSEIF ITAB1-MEINS = 'G'.
    V_TOTREQ = V_TOTREQ + ( ITAB1-MENGE / 1000 ).
  ENDIF.
  v_tpo = 0.
  v_por = 0.
  LOOP AT ITPO WHERE BANFN = ITAB1-BANFN AND bnfpo = ITAB1-bnfpo.
    if v_por <> '0'.
      write : / '  '.
    endif.
      ITOUTPUT-ebeln = ITPO-ebeln.
      ITOUTPUT-aedat = ITPO-aedat.
      ITOUTPUT-lifnr = ITPO-lifnr.
      ITOUTPUT-menge = ITPO-menge.
      ITOUTPUT-EINDT = ITPO-EINDT.
    IF ITAB1-MEINS = 'KG'.
      V_TOTPO = V_TOTPO + ITPO-MENGE.
    ELSEIF ITPO-MEINS = 'TO'.
      V_TOTPO = V_TOTPO + ( ITPO-MENGE * 1000 ).
    ELSEIF ITPO-MEINS = 'G'.
      V_TOTPO = V_TOTPO + ( ITPO-MENGE / 1000 ).
    ENDIF.
    v_tpo = v_tpo + itpo-menge.
    v_tgr = 0.
    v_por = 1.
    v_grr = 0.
    loop at itmrn where ebeln = itpo-ebeln and ebelp = itpo-ebelp.
      if v_grr <> '0'.
        write : / '  '.
      endif.
      select single budat from mkpf into v_grdate where MBLNR = itmrn-MBLNR.
      write: 143 Itmrn-menge,v_grdate .
        itoutput-PMENGE = itmrn-menge.
      v_tgr = v_tgr + itmrn-menge.
      v_grr = 1.
    endloop.
    p_po = itpo-menge - v_tgr.
   write: 173 p_po.
  ENDLOOP.
  p_req = itab1-menge - v_tpo.
  write :  195 p_req.
endloop.
loop at itoutput.
  write:/ itoutput-banfn,12 itoutput-badat,24 v_item,50 itoutput-meins,53 itoutput-menge,itoutput-lfdat,
          89 ITPO-ebeln,100 ITPO-aedat,111 ITPO-lifnr,(10) itpo-menge, ITPO-eindt.
  MODIFY itoutput.
endloop.

Answer 1

Hi,
Ok,i ha d checked my code by using your logic and giving the run time error ......
i had debugged my code (orignal onementioned in above thread with little modification) in which  i am able to see that finaloutput (intrenal table) is getting filled properly and the  problem arises when  the cursor comes to the write statement ... it is repeating some of the values when output is displayed where as before displaying output this iternal table is having the correct data. i am using the following code :-
append itoutput.
  ENDLOOP.
  p_req = itab1-menge - v_tpo.
  write :  195 p_req.
  append itoutput.          ,<---  added this
  clear itoutput.               <--- added this
endloop.
loop at itoutput.
  write:/ itoutput-banfn,12 itoutput-badat,24 v_item,50 itoutput-meins,53 itoutput-menge,itoutput-lfdat,
          89 ITPO-ebeln,100 ITPO-aedat,111 ITPO-lifnr,(10) itpo-menge, ITPO-eindt.
  MODIFY itoutput.         <------ not removed
endloop.