Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 13.11.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
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