1
*---------------------------------------------------------------------*
2
* FORM VIM_MARK_AND_PROCESS *
3
4
* ........ *
5
6
FORM VIM_MARK_AND_PROCESS USING VALUE(VMAP_EXIX) TYPE I
7
VALUE(VMAP_OKCODE) LIKE OK_CODE
8
VMAP_NBR TYPE I VMAP_RC TYPE I.
9
DATA: VMAP_I_RC TYPE I.
10
READ TABLE TOTAL WITH KEY <VIM_xEXTRACT_KEY> BINARY SEARCH.
11
<MARK> = MARKIERT. ADD 1 TO MARK_TOTAL.
12
MODIFY TOTAL INDEX SY-TABIX.
13
<XACT> = <ACTION>.
14
<XMARK> = MARKIERT. ADD 1 TO MARK_EXTRACT.
15
MODIFY EXTRACT.
16
PERFORM VIM_PROCESS_VIEW_ENTRY USING VMAP_EXIX VMAP_OKCODE VMAP_I_RC.
17
IF VMAP_I_RC EQ 0.
18
ADD 1 TO VMAP_NBR.
19
ELSE.
20
VMAP_RC = VMAP_I_RC.
21
ENDIF.
22
ENDFORM. "vim_mark_and_process