Logic needed- urgent pls help

Question

Hi All
following is my code. It_bseg table have the following records
Bukrs    Blart             Aufnr             hkont                  amount
010  |0001801059|     |0000461100|10-DE-080006|      31325.57|
010  |0001801059|     |0000461100|10-DE-080007|      31325.57
010  |0001801059|     |0000461100|10-DE-080008|      31325.58
010  |0001801063|     |0000461100|10-ML-080010|        282.24
010  |0004011697|     |0000461100|10-MC-082000|      10000.00
I need all the records
But i got the following records only
Bukrs    Blart             Aufnr             hkont                  amount
010  |0001801059|     |0000461100|10-DE-080006|      31325.57|
010  |0001801063|     |0000461100|10-ML-080010|        282.24
010  |0004011697|     |0000461100|10-MC-082000|      10000.00
Pls help me.
FORM get_data.
Extract Data from BKPF table
  SELECT bukrs budat gjahr belnr monat blart waers
  INTO TABLE it_bkpf
  FROM bkpf
                  WHERE  bukrs = p_bukrs
                  AND    blart IN s_blart
                  AND    budat IN s_budat.
SORT it_bkpf by belnr ascending.
  IF NOT it_bkpf[] IS INITIAL.
Extract Data from BSEG table
    SELECT bukrs belnr werks hkont aufnr dmbtr sgtxt
    INTO TABLE it_bseg
    FROM bseg
    FOR ALL ENTRIES IN it_bkpf
    WHERE belnr = it_bkpf-belnr
    AND GJAHR =  it_bkpf-gjahr
  AND valut = it_bkpf-budat
    AND bukrs = p_bukrs
    AND werks = p_werks
    AND hkont IN  s_hkont
    AND aufnr IN  s_aufnr.
   AND shkzg = 'H'.
  ENDIF.
  SORT it_bseg by belnr ascending.
DELETE ADJACENT DUPLICATES FROM it_bseg.
  LOOP AT it_bkpf.
    READ TABLE it_bseg WITH KEY
                                 belnr = it_bkpf-belnr BINARY SEARCH.
    IF sy-subrc = 0.
      it_detail-budat = it_bkpf-budat.
      it_detail-period = it_bkpf-budat+0(6).
      it_detail-hkont = it_bseg-hkont.
      it_detail-aufnr = it_bseg-aufnr.
      it_detail-sgtxt = it_bseg-sgtxt.
      it_detail-blart = it_bkpf-blart.
      it_detail-dmbtr = it_bseg-dmbtr.
      it_detail-waers = it_bkpf-waers.
      APPEND it_detail.
      CLEAR it_detail.
    ENDIF.
  ENDLOOP.

Answer 1

Hello Kumar-
Code below.
FORM get_data.
Extract Data from BKPF table
SELECT bukrs budat gjahr belnr monat blart waers
INTO TABLE it_bkpf
FROM bkpf
WHERE bukrs = p_bukrs
AND blart IN s_blart
AND budat IN s_budat.
*SORT it_bkpf by belnr.
IF NOT it_bkpf[] IS INITIAL.
Extract Data from BSEG table
SELECT bukrs belnr werks hkont aufnr dmbtr sgtxt
INTO TABLE it_bseg
FROM bseg
FOR ALL ENTRIES IN it_bkpf
WHERE belnr = it_bkpf-belnr
AND GJAHR = it_bkpf-gjahr
AND valut = it_bkpf-budat
AND bukrs = p_bukrs not required
AND werks = p_werks
AND hkont IN s_hkont
AND aufnr IN s_aufnr.
AND shkzg = 'H'.
ENDIF.
SORT it_bseg by belnr .
DELETE ADJACENT DUPLICATES FROM it_bseg. not required
***Changes done by srini
loop at it_bseg into wa_bseg.
collect wa_bseg into it_final.
endloop.
Cheers,
~Srini..