Internal table logic - help required

Question

Hi,
I am working on BSEG table to determine offsetting line count and amount total for a posting line item and need
a small logic .
I have a table of currency fields like below and the table is such ( like BSEG ) that each line item will balance
itself with other line item . For example
Item
10      100
20      100-
30      200
40      250
50      450-
60      200-
70      200
80      600
90      100
100     200
110     300
If you see 10 & 20 balance out similarly ( 30,40 will balance with line item 50 ) , ( 60 & 70 balance each other ) ,
( 90,100, 110 balance with 80 ).
My requirement - If I loop on item 50 with amount 450- I need to get the posnr of the two items which balance
this amount ( which is 30 and 40 ).  If I loop on item 80 with amount 600 then I need to get item 90. 100 and 110.
Please provide me a logic which will provide me the index of ther required item lines.
Regards
Praneeth

Answer 1

Hi, execute this code.. might be helpful to you
TYPES: BEGIN OF test,
         a TYPE i,
         b TYPE i,
       END OF test.
DATA: itab TYPE TABLE OF test,
       wa  TYPE test,
       wa1 TYPE test,
       c   TYPE i,
       d   TYPE i,
       n1  TYPE i,
       n2  TYPE i.
PARAMETERS :  p TYPE i.
wa-a = 1.
wa-b = 20.
APPEND wa TO itab.
wa-a = 2.
wa-b = 30.
APPEND wa TO itab.
wa-a = 3.
wa-b = 10.
APPEND wa TO itab.
wa-a = 4.
wa-b = 10.
APPEND wa TO itab.
wa-a = 5.
wa-b = 20.
APPEND wa TO itab.
READ TABLE itab INTO wa WITH KEY a = p.
c = wa-b.
LOOP AT itab INTO wa WHERE a GT p.
   n1 = wa-a.
   IF c EQ wa-b.
     EXIT.
   ENDIF.
   LOOP AT itab INTO wa1 WHERE a GT wa-a.
     IF wa-a = wa1-a.
       EXIT.
     ENDIF.
     n2 = wa1-a.
     d  = wa-b + wa1-b.
     IF c EQ d.
       EXIT.
     ENDIF.
   ENDLOOP.
   IF wa-a = wa1-a.
     EXIT.
   ELSEIF c EQ d.
     EXIT.
   ELSE.
     CLEAR: n1, n2.
   ENDIF.
ENDLOOP.
WRITE: n1 , n2.