*&--------------------------------------------------------------------*
*&      Form  MARK_IGNORED_ENTRIES                                    *
*&--------------------------------------------------------------------*
* Wiederherstellen der Markierungen für 'übergangene' Einträge        *
*---------------------------------------------------------------------*
FORM mark_ignored_entries CHANGING mie_number.
  DATA: translation_mask(2) TYPE c, h_ix LIKE sy-tabix.

  CHECK ignored_entries_exist NE space.
  MOVE: uebergehen TO translation_mask,
        markiert   TO translation_mask+1(1).
  IF status-mode EQ list_bild.
    CLEAR mie_number.
    LOOP AT total.
      CHECK <mark> EQ uebergehen.
      ADD 1 TO mie_number.
      READ TABLE extract WITH KEY <vim_xtotal_key> BINARY SEARCH.
      IF sy-subrc EQ 0.
        TRANSLATE <xmark> USING translation_mask.
        MODIFY extract INDEX sy-tabix.
      ENDIF.
      TRANSLATE <mark> USING translation_mask.
      MODIFY total.
    ENDLOOP.
  ELSE.
    MOVE deta_mark_safe TO translation_mask+1(1).
    READ TABLE extract INDEX nextline.
    CHECK sy-subrc = 0.               "UF Hw490645
    MOVE sy-tabix TO h_ix.
    READ TABLE total WITH KEY <vim_xextract_key> BINARY SEARCH.
    TRANSLATE <mark> USING translation_mask.
    MODIFY total INDEX sy-tabix.
    TRANSLATE <xmark> USING translation_mask.
    MODIFY extract INDEX h_ix.
    mie_number = 1.
  ENDIF.
  IF mie_number > 0.
    CLEAR ignored_entries_exist.
  ENDIF.
ENDFORM.                               " MARK_IGNORED_ENTRIES
