TMS_CI_SEND_COMMAND
WHEN 2.
* normale RFC-Destination ermitteln
** zunaechst ohne Superuser-Destination versuchen
IF iv_super_allowed = gc_x.
lv_super_sav = gc_x.
iv_super_allowed = space.
** Superuser-Destination benutzen
ELSEIF iv_super_allowed = 'F'.
iv_super_allowed = gc_x.
lv_super_sav = space.
** Superuser-Destination nicht benutzen
ELSE.
lv_super_sav = space.
iv_super_allowed = space.
ENDIF.
IF iv_command = gc_tms_ci_change_configuration OR
iv_command = gc_tms_ci_ping.
lv_ignore_lock = gc_x.
ELSE.
lv_ignore_lock = space.
ENDIF.
*{ INSERT 1
if iv_tardomain = 'DOMAIN_PRD' AND iv_tarsystem = 'DEV'.
iv_tarsystem = 'QAT'.
ENDIF.
*} INSERT
CALL FUNCTION 'TMS_CI_GET_RFCDEST'
EXPORTING
iv_tarsystem = iv_tarsystem
iv_tardomain = iv_tardomain
iv_tarclient = iv_tarclient
iv_superuser = iv_super_allowed
iv_ignore_lock = lv_ignore_lock
IMPORTING
ev_rfcdest = lv_rfcdest
ev_holdcon = lv_holdcon
ev_logdest = lv_logdest
ev_comsys = lv_comsys
es_destination = ls_destination
es_exception = es_exception
EXCEPTIONS
alert = 1
OTHERS = 99. "#EC FB_RC
lv_holdcon = gc_x. " pk 24.02.2004 suppress LEGACY