1
*---------------------------------------------------------------------*
2
* FORM MOD_EXTRACT_AND_MAINKEY_TAB *
3
4
* Modify EXTRACT and mainkey table *
5
6
FORM mod_extract_and_mainkey_tab USING value(meamt_mode) TYPE c
7
value(meamt_index) TYPE i.
8
CASE meamt_mode.
9
WHEN 'A'.
10
APPEND extract.
11
WHEN 'I'.
12
IF meamt_index EQ 0.
13
INSERT extract. "#EC *
14
ELSE.
15
INSERT extract INDEX meamt_index.
16
ENDIF.
17
WHEN 'M'.
18
19
MODIFY extract. "#EC *
20
21
MODIFY extract INDEX meamt_index.
22
23
ENDCASE.
24
LOOP AT vim_collapsed_mainkeys.
25
CHECK <vim_collapsed_mkey_bfx> EQ <vim_mkey_beforex>
26
AND <vim_collapsed_keyx> NE <vim_xextract_key>.
27
* LOOP AT vim_collapsed_mainkeys WHERE mkey_bf EQ <vim_mkey_before>
28
* AND mainkey NE <vim_extract_key>.
29
IF vim_mkey_after_exists NE space.
30
CHECK <vim_collapsed_key_afx> EQ <vim_mkey_afterx>.
31
* CHECK <vim_collapsed_key_af> EQ <vim_mkey_after>.
32
33
<vim_collapsed_keyx> = <vim_xextract_key>.
34
* vim_collapsed_mainkeys-mainkey = <vim_extract_key>.
35
* changed XB. 12.06.02 BCEK060520/BCEK060521 -------begin----------
36
if <vim_collapsed_mkey_bfx> NE <vim_ext_mkey_beforex>.
37
<vim_collapsed_mkey_bfx> = <vim_ext_mkey_beforex>.
38
* vim_collapsed_mainkeys-mkey_bf = <vim_ext_mkey_before>.
39
endif.
40
* changed XB. 12.06.02 BCEK060520/BCEK060521 ---------end-----------
41
MODIFY vim_collapsed_mainkeys.
42
ENDLOOP.
43
ENDFORM. "mod_extract_and_mainkey_tab.