1
*---------------------------------------------------------------------*
2
* FORM MARKIERE_ALLE *
3
4
* ........ *
5
6
* --> ACTION *
7
8
FORM MARKIERE_ALLE USING ACTION.
9
CHECK MAXLINES NE 0.
10
LOOP AT EXTRACT.
11
CHECK <XACT> NE LEER.
12
CHECK <XMARK> NE ACTION.
13
READ TABLE TOTAL WITH KEY <VIM_xEXTRACT_KEY> BINARY SEARCH.
14
<XMARK> = ACTION.
15
<MARK> = ACTION.
16
MODIFY TOTAL INDEX SY-TABIX.
17
MODIFY EXTRACT.
18
IF ACTION EQ MARKIERT.
19
ADD: 1 TO MARK_EXTRACT,
20
1 TO MARK_TOTAL.
21
ELSE.
22
SUBTRACT: 1 FROM MARK_EXTRACT,
23
1 FROM MARK_TOTAL.
24
CLEAR BLOCK_SW.
25
ENDIF.
26
ENDLOOP.
27
ENDFORM.