1
*---------------------------------------------------------------------*
2
* FORM MARKIERE *
3
4
* ........ *
5
6
* --> I *
7
8
FORM MARKIERE USING I.
9
READ TABLE EXTRACT INDEX I.
10
READ TABLE TOTAL WITH KEY <VIM_xEXTRACT_KEY> BINARY SEARCH.
11
IF <XMARK> EQ MARKIERT.
12
<XMARK> = NICHT_MARKIERT.
13
<MARK> = NICHT_MARKIERT.
14
MARK_EXTRACT = MARK_EXTRACT - 1.
15
MARK_TOTAL = MARK_TOTAL - 1.
16
ELSE.
17
<XMARK> = MARKIERT.
18
<MARK> = MARKIERT.
19
MARK_EXTRACT = MARK_EXTRACT + 1.
20
MARK_TOTAL = MARK_TOTAL + 1.
21
ENDIF.
22
MODIFY TOTAL INDEX SY-TABIX.
23
MODIFY EXTRACT INDEX I.
24
ENDFORM.