Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 13.11.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
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.