Qty field addtion based on item no. for ekbe table

Question

Hi experts,
                  below is my code..
LOOP AT IT_EKKO.
  READ TABLE IT_LFA1 WITH KEY LIFNR = IT_EKKO-LIFNR.
   MOVE: IT_LFA1-NAME1 TO IT_DISPLAY-NAME1.
   MOVE: IT_EKKO-LIFNR TO IT_DISPLAY-LIFNR,
         IT_EKKO-AEDAT TO IT_DISPLAY-AEDAT,
         IT_EKKO-ERNAM TO IT_DISPLAY-ERNAM,
         IT_EKKO-EKGRP TO IT_DISPLAY-EKGRP.
READ TABLE IT_EKPO WITH KEY EBELN = IT_EKKO-EBELN.
   MOVE: IT_EKPO-EBELN TO IT_DISPLAY-EBELN,
         IT_EKPO-MATNR TO IT_DISPLAY-MATNR,
         IT_EKPO-MENGE TO IT_DISPLAY-MENGE.
         LOOP AT IT_EKBE where ebeln eq it_ekko-ebeln.
            loop at it_ekbe." WHERE ebelp eq it_ekbe-ebelp.
         IT_DISPLAY-QTY = IT_DISPLAY-QTY + IT_EKBE-MENGE.
         AT END OF EBELP.
        APPEND IT_DISPLAY.
         CONTINUE.
         ENDAT.
         ENDLOOP.
         endloop.
         APPEND IT_DISPLAY.
         CLEAR IT_EKKO.
         ENDLOOP.
my requirement is to display lifnr,ernam,ekgrp.....etc....
but the condition is in ekbe table i hav to take purachse document no. from ekko table..based on this ebeln if suppose
the item no. ebelp in ekbe has value say 10,10, den 20,20..for a single ebeln...then for same item no(10). the qty field should be added
and for (20) item no. the qty field should be added.
plz help...
hw can i acheive this requirement.
thanks n regards,
Ashmita Singh.

Answer 1

Hi Ashmita,
Do the following changes in your program.
Define it_lfa1 table as Hashed table with unique key on lifnr.
Sort table it_ekpo before the loop start on ebeln and used binary search to read data from table.
Define it_ekbe as sorted table with non-unique key on ebeln and EBELP use single loop.
Write the following statement before main loop start. (ie it_ekko)
delete ADJACENT DUPLICATES FROM it_ekbe COMPARING eblen EBELP.
LOOP AT it_ekko.
* Define it_lfa1 table as Hashed table with unique key
  READ TABLE it_lfa1 WITH KEY lifnr = it_ekko-lifnr.
  MOVE: it_lfa1-name1 TO it_display-name1.
  MOVE: it_ekko-lifnr TO it_display-lifnr,
  it_ekko-aedat TO it_display-aedat,
  it_ekko-ernam TO it_display-ernam,
  it_ekko-ekgrp TO it_display-ekgrp.
* Sort table it_ekpo on ebeln and used binary search
  READ TABLE it_ekpo WITH KEY ebeln = it_ekko-ebeln.
  MOVE: it_ekpo-ebeln TO it_display-ebeln,
  it_ekpo-matnr TO it_display-matnr,
  it_ekpo-menge TO it_display-menge.
* Define it_ekbe as sorted table with non unique key on ebeln and use single loop.
  LOOP AT it_ekbe WHERE ebeln EQ it_ekko-ebeln.
      it_display-qty = it_display-qty + it_ekbe-menge.
  ENDLOOP.
  APPEND it_display.
  CLEAR it_ekko.
ENDLOOP.
Kind Rgds
Ravi Lanjewar