1
*---------------------------------------------------------------------*
2
* FORM MODIFY_TABLES *
3
4
* ........ *
5
6
* --> VALUE(TAB_INDEX) *
7
8
FORM modify_tables USING value(tab_index).
9
CLEAR <status>-upd_flag.
10
IF <xmark> EQ markiert.
11
SUBTRACT: 1 FROM <status>-mk_xt,
12
1 FROM <status>-mk_to.
13
ENDIF.
14
READ TABLE total WITH KEY <vim_xextract_key> BINARY SEARCH.
15
MOVE <table1> TO <vim_extract_struc>.
16
IF x_header-bastab NE space AND x_header-texttbexst NE space.
17
MOVE: <table1_xtext> TO <vim_xextract_text>,
18
original TO <xact_text>.
19
20
<xmark> = nicht_markiert.
21
<xact> = original.
22
IF tab_index NE 0.
23
MODIFY extract INDEX tab_index.
24
25
total = extract.
26
MODIFY total INDEX sy-tabix.
27
IF x_header-frm_on_org NE space.
28
PERFORM (x_header-frm_on_org) IN PROGRAM (sy-repid).
29
30
ENDFORM.