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_ALLE                                            *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    *  -->  ACTION                                                        *
    7
    *---------------------------------------------------------------------*
    8
    FORM MARKIERE_ALLE USING ACTION.
    9
      CHECK MAXLINES NE 0.
    10
      LOOP AT EXTRACT.
    11
        CHECK <XACT> NE LEER.
    12
        CHECK <XMARK> NE ACTION.
    13
        READ TABLE TOTAL WITH KEY <VIM_xEXTRACT_KEY> BINARY SEARCH.
    14
        <XMARK> = ACTION.
    15
        <MARK>  = ACTION.
    16
        MODIFY TOTAL INDEX SY-TABIX.
    17
        MODIFY EXTRACT.
    18
        IF ACTION EQ MARKIERT.
    19
          ADD: 1 TO MARK_EXTRACT,
    20
               1 TO MARK_TOTAL.
    21
        ELSE.
    22
          SUBTRACT: 1 FROM MARK_EXTRACT,
    23
                    1 FROM MARK_TOTAL.
    24
          CLEAR BLOCK_SW.
    25
        ENDIF.
    26
      ENDLOOP.
    27
    ENDFORM.