TO remove lines from itab where debit = credit

Question

hi experts,
pls have look to the following code.
*& Report  YTEST                                                       *
REPORT  ytest NO STANDARD PAGE HEADING.
DATA: BEGIN OF itab OCCURS 0,
      ref(3) type c,      " reference number
      po(10) TYPE C,     " purchase order number
      ic TYPE c,        " debit/credit indicator s= debit h = credit
      amount TYPE p DECIMALS 2, " cuurency
      END OF itab.
itab-ref = '100'.
itab-po = '4000'.
itab-ic = 'S'.
itab-amount = '200'.
APPEND itab.
CLEAR itab.
itab-ref = '101'.
itab-po = '4000'.
itab-ic = 'H'.
itab-amount = '200'.
APPEND itab.
CLEAR itab.
itab-ref = '102'.
itab-po = '4000'.
itab-ic = 'S'.
itab-amount = '600'.
APPEND itab.
CLEAR itab.
itab-ref = '103'.
itab-po = '4001'.
itab-ic = 'S'.
itab-amount = '300'.
APPEND itab.
CLEAR itab.
itab-ref = '104'.
itab-po = '4002'.
itab-ic = 'S'.
itab-amount = '400.50'.
APPEND itab.
CLEAR itab.
LOOP AT itab.
  WRITE:/3 itab-ref , 10 itab-po , 25 itab-amount LEFT-JUSTIFIED.
  IF ITAB-IC =  'S'.
  WRITE: 37 'DEBIT'.
  ELSE.
  WRITE: 37 'CREDIT'.
ENDIF.
ENDLOOP.
the o/p is as follows
100   4000  200.00  DEBIT
101   4000  200.00  CREDIT
102   4000  600.00  DEBIT
103   4001  300.00  DEBIT
104   4002  400.00  DEBIT
OK now since purchase order no. (po) is debited as well
as credited by amount 200.00 , the balance becomes 0
so in the output po: 4000 should not appear when debited and credited so the o/p SHOULD BE:
102   4000  600.00  DEBIT
103   4001  300.00  DEBIT
104   4002  400.00  DEBIT
WHAT ADDITIONAL LOGIC SHOULD I APPLY TO GET ABOVE O/P
pls give me lines of code that should be use
BEST REGARDS
PANKAJ

Answer 1

hi madam
i have used ur logic in my code but with this the
ref no 100 is not deleted and the o/p is
100 4000 200.00
102 4000 600.00
103 4001 300.00
104 4002 400.00
here the code is:
*& Report  YTEST                                                       *
REPORT  ytest NO STANDARD PAGE HEADING.
DATA: BEGIN OF itab OCCURS 0,
      ref(3) type c,      " reference number
      po(10) TYPE C,     " purchase order number
      ic TYPE c,        " debit/credit indicator s= debit h = credit
      amount TYPE p DECIMALS 2, " cuurency
      END OF itab,
      fs_tab like   itab.
itab-ref = '100'.
itab-po = '4000'.
itab-ic = 'S'.
itab-amount = '200'.
APPEND itab.
CLEAR itab.
itab-ref = '101'.
itab-po = '4000'.
itab-ic = 'H'.
itab-amount = '200'.
APPEND itab.
CLEAR itab.
itab-ref = '102'.
itab-po = '4000'.
itab-ic = 'S'.
itab-amount = '600'.
APPEND itab.
CLEAR itab.
itab-ref = '103'.
itab-po = '4001'.
itab-ic = 'S'.
itab-amount = '300'.
APPEND itab.
CLEAR itab.
itab-ref = '104'.
itab-po = '4002'.
itab-ic = 'S'.
itab-amount = '400.50'.
APPEND itab.
CLEAR itab.
LOOP AT itab.
IF ITAB-IC = 'S'.
read table itab into fs_tab with key ic = 'H'.
if sy-subrc eq 0.
if fs_tab-amount eq itab-amount.
delete itab  index sy-tabix.
endif.
endif.
else.
read table itab into fs_tab with key ic = 'S'.
if sy-subrc eq 0.
if fs_tab-amount eq itab-amount.
delete itab  index sy-tabix.
endif.
endif.
endif.
endloop.
loop at itab.
  WRITE:/3 itab-ref , 10 itab-po , 25 itab-amount LEFT-JUSTIFIED.
IF ITAB-IC =  'S'.
WRITE: 37 'DEBIT'.
ELSE.
WRITE: 37 'CREDIT'.
*ENDIF.
ENDLOOP.
pls tell me where lies the mistake.
regards
pankaj