Eigenschaften | Quelltext
Titel | MARKIERE |
Originalsprache | DE | Deutsch
Erstellt | 27.10.1998 |  | SAP |
Letzte Änderung | 13.11.2001 |  | SAP |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Testprogramm |
Anwendung | Basis (System) |
Paket | SVIM | Basis Viewmaintenance
| Editorsperre
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.