*&---------------------------------------------------------------------*
*&  Include           ZXV56U12                                         *
*&---------------------------------------------------------------------*
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"       IMPORTING
*"             VALUE(I_XVTTK) LIKE  VTTKVB STRUCTURE  VTTKVB
*"       EXPORTING
*"             VALUE(E_NUMKI) LIKE  INRI-NRRANGENR
*"             VALUE(E_TKNUM) LIKE  VTTK-TKNUM
*"----------------------------------------------------------------------
 
CASE I_XVTTK-TPLST.
 
WHEN 'P010'.
   E_NUMKI = 'A0'.
WHEN 'P011'.
   E_NUMKI = 'A1'.
WHEN 'P012'.
   E_NUMKI = 'A2'.
WHEN 'V010'.
   E_NUMKI = 'A3'.
WHEN 'V011'.
   E_NUMKI = 'A4'.
WHEN 'V012'.
   E_NUMKI = 'A5'.
WHEN 'V013'.
   E_NUMKI = 'A6'.
WHEN 'V014'.
   E_NUMKI = 'A7'.
 
ENDCASE.