1
*---------------------------------------------------------------------*
2
* FORM VIM_ADDRESS_KEYTAB_ENTRIES_INTERN
3
4
* create address related keytab entries (intern)
5
6
FORM vim_addr_keytab_entries_intern
7
USING value(vakei_tabname) TYPE tabname
8
value(vakei_table)
9
value(vakei_keylen) TYPE i
10
value(vakei_action) TYPE sychar01
11
vakei_rc type sy-subrc.
12
corr_keytab = e071k.
13
corr_keytab-objname = vakei_tabname.
14
MOVE vakei_table TO corr_keytab-tabkey(vakei_keylen).
15
vim_exit_11_12_active = 'X'.
16
PERFORM update_corr_keytab USING vakei_action vakei_rc.
17
CLEAR vim_exit_11_12_active.
18
ENDFORM. "vim_address_keytab_entries_intern