CALL FUNCTION 'TH_CREATE_MODE'
EXPORTING
TRANSAKTION = 'VA03'
* DEL_ON_EOT = 0
* PARAMETERS =
* PROCESS_DARK = ''
* IMPORTING
* MODE =
EXCEPTIONS
MAX_SESSIONS = 1
INTERNAL_ERROR = 2
NO_AUTHORITY = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.