1
*---------------------------------------------------------------------*
2
* FORM CHECK_AND_MODIFY_MAINKEY_TAB *
3
4
* ............... *
5
6
FORM check_and_modify_mainkey_tab USING cammt_rec.
7
CHECK vim_ignore_collapsed_mainkeys EQ space.
8
IF vim_no_mainkey_exists EQ vim_no_mkey_not_procsd OR
9
<vim_tot_mkey_beforex> NE <vim_mkey_beforex> OR
10
( vim_mkey_after_exists NE space AND
11
<vim_tot_mkey_afterx> NE <vim_mkey_afterx> ).
12
* <vim_tot_mkey_before> NE <vim_mkey_before> OR
13
* ( vim_mkey_after_exists NE space AND
14
* <vim_tot_mkey_after> NE <vim_mkey_after> ).
15
IF cammt_rec NE 9 AND cammt_rec NE 0.
16
PERFORM mod_extract_and_mainkey_tab USING 'A' 0.
17
CLEAR cammt_rec.
18
ENDIF.
19
<vim_h_mkey>(x_header-keylen) = <vim_xtotal_key>.
20
* vim_mainkey = <vim_total_key>.
21
extract = total. "this statement is necessary, do not delete it !!
22
TRANSLATE vim_no_mainkey_exists USING vim_no_mkey_procsd_patt.
23
ELSE.
24
CHECK cammt_rec NE 9 AND cammt_rec NE 0.
25
26
PERFORM check_if_entry_is_to_display USING space <vim_xtotal_key>
27
'X' <vim_begdate>.
28
cammt_rec = sy-subrc.
29
ENDFORM. "modify_mainkey_tab