1
*---------------------------------------------------------------------*
2
* FORM LOGICAL_UNDELETE_TOTAL *
3
4
* ........ *
5
6
FORM logical_undelete_total USING value(cur_index) TYPE i.
7
CASE <action>.
8
WHEN neuer_geloescht.
9
<action> = neuer_eintrag.
10
WHEN geloescht.
11
<action> = original.
12
WHEN update_geloescht.
13
<action> = aendern.
14
ENDCASE.
15
* perform vim_bc_logs_maintain using zurueckholen
16
* x_header
17
* changing vim_bc_entry_list.
18
IF x_header-bastab NE space AND x_header-texttbexst NE space.
19
CASE <action_text>.
20
21
<action_text> = neuer_eintrag.
22
23
<action_text> = original.
24
25
<action_text> = aendern.
26
WHEN dummy_geloescht.
27
28
<vim_xtotal_text> = <text_initial_x>.
29
* <TOTAL_TEXT> = <TEXT_INITIAL>.
30
31
ENDIF.
32
<mark> = nicht_markiert.
33
MODIFY total INDEX cur_index.
34
ENDFORM. "logical_undelete_total