Properties SourceCde
txt
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