I try to implement in ABAP a heap. I created an class which simulate this heap but I'm interesting that in ABAP is an ready implementation of heap class?
My definition of class have methods:
- GET_LAST_TOKEN
- ADD_TOKEN
- RELEASE_TOKEN
- CHECK_IS_EMPTY
- FLIP_HEAP
Attibutes:
- HEAP //table
- TOTAL //counter
- C_FALSE //boolean false
- C_TRUE //bolean true
Implementation (only overall view)
method ADD_TOKEN .
APPEND i_token to heap.
IF sy-subrc = 0.
total = total + 1.
ENDIF.
endmethod.
METHOD release_token .
IF total > 0.
DELETE heap INDEX total.
IF sy-subrc = 0.
total = total - 1.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD get_last_token .
DATA: l_token LIKE LINE OF heap.
IF total is not INITIAL.
READ TABLE heap
INDEX total
INTO e_token.
ENDIF.
ENDMETHOD.
Is this good idea?
Bluesky
