1
*---------------------------------------------------------------------*
2
* LOGICAL_DELETE_FROM_TOTAL *
3
4
* ........ *
5
6
FORM logical_delete_from_total USING value(cur_index) TYPE i.
7
CASE <action>.
8
WHEN neuer_eintrag.
9
<action> = neuer_geloescht.
10
WHEN original.
11
<action> = geloescht.
12
WHEN aendern.
13
<action> = update_geloescht.
14
ENDCASE.
15
* perform vim_bc_logs_maintain using geloescht
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_geloescht.
22
23
IF <vim_xtotal_text> NE <text_initial_x>.
24
* IF <total_text> NE <text_initial>.
25
<action_text> = geloescht.
26
ELSE.
27
PERFORM (vim_frm_fill_textkey) IN PROGRAM (sy-repid)
28
USING <vim_total_struc>
29
<vim_tot_txt_struc>.
30
* Unicode: Form FILL_TEXTTAB_KEY_UC instead of FILL_TEXTTAB_KEY_UC
31
* USING <vim_total_key>
32
* <total_text>.
33
<action_text> = dummy_geloescht. "always del texttbent
34
ENDIF.
35
36
<action_text> = update_geloescht.
37
38
39
<mark> = nicht_markiert.
40
MODIFY total INDEX cur_index.
41
ENDFORM. "logical_delete_from_total