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
32
MODIFY total INDEX sy-tabix.
33
34
MODIFY extract INDEX h_ix.
35
mie_number = 1.
36
37
IF mie_number > 0.
38
CLEAR ignored_entries_exist.
39
40
ENDFORM. " MARK_IGNORED_ENTRIES