DATA: lv_caller_in_same_system TYPE answer.
* RFC-Ausführung im gleichen R/3-System ?
CALL FUNCTION 'RFC_WITHIN_SAME_SYSTEM'
IMPORTING
caller_in_same_system = lv_caller_in_same_system
EXCEPTIONS
system_call_not_supported = 1
no_rfc_communication = 2
internal_error = 3
OTHERS = 4.
WRITE: / 'Same system:', lv_caller_in_same_system.
WRITE: / sy-subrc.
oder
CALL 'RFCControl' ID 'CODE' FIELD 'B'. IF sy-subrc = 0. WRITE:/ 'RFC'. ENDIF.