REPORT z_barry_test NO STANDARD PAGE HEADING .
DATA : BEGIN OF rfctab OCCURS 0.
INCLUDE STRUCTURE rfctest.
DATA : END OF rfctab.
DATA : rfc_mess(80).
PARAMETERS : dest LIKE rfcdes-rfcdest DEFAULT 'NONE'.
CALL FUNCTION 'RFC_PING' DESTINATION dest
TABLES
rfctab40 = rfctab
EXCEPTIONS
system_failure = 1 MESSAGE rfc_mess
communication_failure = 2 MESSAGE rfc_mess
OTHERS = 99.
WRITE sy-subrc.
阅读(4134) | 评论(0) | 转发(1) |