ABAP help with deeply nested items.

Question

Gurus,
We have a requirement whence we need to sum up the key figures from one transformation layer going to the next.  The challenge is, its a deeply nested structure. something like :
SalesOrderItem     Higher Level Item         KeyFig  
1000                     0000                          30
1010                     1000                          20
1011                     1010                          10
1015                     1010                          20
1020                     1010                          20
1021                     1020                          10
1022                     1020                          50
1023                     1020                          10
1025                     1020                          20
So now, in the next layer we will be rolling it upto the 1000 , 2000...levels- in this example 1000 level only.
The round figure items(1010, 1020.....) are the individual kmats and the summation happens like this:
1. Items 1021, 1022, 1023 and 1025 roll up to 1020; sum = 90.
2. Now when 1020 rolls up to its higher level item which is 1010, the sum that rolls up from 1020 should be 90 + 20.
3. Ultimately when all items roll up to item 1000, the total sum will be 190.
Can someone please help me write this logic in ABAP?
Thanks!
Chris

Answer 1

You can try this, but please put it through more examples. Assumption is that your highest level item will have higher item number as 0000 and that they are always sorted in the way it is given in your example.
DATA: BEGIN OF itab OCCURS 0,
        posnr(6) TYPE n,
        uposn(6) TYPE n,
        qty TYPE p DECIMALS 2.
DATA: END OF itab.
DATA: itab2 LIKE itab OCCURS 0 WITH HEADER LINE.
DATA: itab3 LIKE itab OCCURS 0 WITH HEADER LINE.
DATA: v_total TYPE p DECIMALS 2,
      v_posnr(6) TYPE n.
itab-posnr = '1000'.
itab-uposn = '0000'.
itab-qty   = 30.
APPEND itab.
itab-posnr = '1010'.
itab-uposn = '1000'.
itab-qty   = 20.
APPEND itab.
itab-posnr = '1011'.
itab-uposn = '1010'.
itab-qty   = 10.
APPEND itab.
itab-posnr = '1015'.
itab-uposn = '1010'.
itab-qty   = 20.
APPEND itab.
itab-posnr = '1020'.
itab-uposn = '1010'.
itab-qty   = 20.
APPEND itab.
itab-posnr = '1021'.
itab-uposn = '1020'.
itab-qty   = 10.
APPEND itab.
itab-posnr = '1022'.
itab-uposn = '1020'.
itab-qty   = 50.
APPEND itab.
itab-posnr = '1023'.
itab-uposn = '1020'.
itab-qty   = 10.
APPEND itab.
itab-posnr = '1025'.
itab-uposn = '1020'.
itab-qty   = 20.
APPEND itab.
itab2[] = itab[].
*-- assumption is that if UPOSN = 000000, then there is no higher level
*   item
LOOP AT itab WHERE uposn = '000000'.
  itab3-posnr = v_posnr = itab-posnr.
  DO.
    LOOP AT itab2 WHERE uposn = v_posnr.
      v_total = v_total + itab2-qty.
    ENDLOOP.
    IF sy-subrc <> 0.
      EXIT.
    ELSE.
      v_posnr = itab2-posnr.
    ENDIF.
*-- This item does not appear as a higher level item
  ENDDO.
  v_total = v_total + itab-qty.
  itab3-qty = v_total.
  APPEND itab3.
  CLEAR itab3.
ENDLOOP.
LOOP AT itab3.
  WRITE:/ itab3-posnr,
          itab3-qty.
ENDLOOP.