Properties SourceCde
txt
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.