1
*&--------------------------------------------------------------------*
2
*& Form DELETE_FROM_MAINKEY_TAB *
3
4
* delete entry from mainkey_tab. *
5
6
FORM delete_from_mainkey_tab.
7
LOOP AT vim_collapsed_mainkeys.
8
CHECK <vim_h_coll_mkey>(x_header-keylen) = <f1_x>.
9
* LOOP AT VIM_COLLAPSED_MAINKEYS WHERE MAINKEY EQ <F1>.
10
DELETE vim_collapsed_mainkeys.
11
ENDLOOP.
12
ENDFORM. "delete_from_mainkey_tab