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 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.