Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 31.01.2002 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
txt
    1
    *&--------------------------------------------------------------------*
    2
    *&      Form  MARK_IGNORED_ENTRIES                                    *
    3
    *&--------------------------------------------------------------------*
    4
    * Wiederherstellen der Markierungen für 'übergangene' Einträge        *
    5
    *---------------------------------------------------------------------*
    6
    FORM mark_ignored_entries CHANGING mie_number.
    7
      DATA: translation_mask(2) TYPE c, h_ix LIKE sy-tabix.
    8
    9
      CHECK ignored_entries_exist NE space.
    10
      MOVE: uebergehen TO translation_mask,
    11
            markiert   TO translation_mask+1(1).
    12
      IF status-mode EQ list_bild.
    13
        CLEAR mie_number.
    14
        LOOP AT total.
    15
          CHECK <mark> EQ uebergehen.
    16
          ADD 1 TO mie_number.
    17
          READ TABLE extract WITH KEY <vim_xtotal_key> BINARY SEARCH.
    18
          IF sy-subrc EQ 0.
    19
            TRANSLATE <xmark> USING translation_mask.
    20
            MODIFY extract INDEX sy-tabix.
    21
          ENDIF.
    22
          TRANSLATE <mark> USING translation_mask.
    23
          MODIFY total.
    24
        ENDLOOP.
    25
      ELSE.
    26
        MOVE deta_mark_safe TO translation_mask+1(1).
    27
        READ TABLE extract INDEX nextline.
    28
        CHECK sy-subrc = 0.               "UF Hw490645
    29
        MOVE sy-tabix TO h_ix.
    30
        READ TABLE total WITH KEY <vim_xextract_key> BINARY SEARCH.
    31
        TRANSLATE <mark> USING translation_mask.
    32
        MODIFY total INDEX sy-tabix.
    33
        TRANSLATE <xmark> USING translation_mask.
    34
        MODIFY extract INDEX h_ix.
    35
        mie_number = 1.
    36
      ENDIF.
    37
      IF mie_number > 0.
    38
        CLEAR ignored_entries_exist.
    39
      ENDIF.
    40
    ENDFORM.                               " MARK_IGNORED_ENTRIES