1
*---------------------------------------------------------------------*
2
* FORM GET_KEYTAB *
3
4
* read table e071k *
5
6
FORM GET_KEYTAB.
7
LOCAL: E071.
8
LOOP AT VIM_CORR_OBJTAB INTO E071.
9
CALL FUNCTION 'TRINT_READ_COMM_KEYS'
10
EXPORTING
11
WI_APPENDING = 'X'
12
WI_E071 = E071
13
WI_TRKORR = <STATUS>-CORR_NBR
14
TABLES
15
WT_E071K = CORR_KEYTAB.
16
ENDLOOP.
17
CLEAR: <STATUS>-KEYTBMODFD, GET_CORR_KEYTAB, <STATUS>-KEYTBINVLD.
18
ENDFORM.