*&---------------------------------------------------------------------*
*& Report  ZCALLRFCRECHNER                                             *
*&                                                                     *
*&---------------------------------------------------------------------*
*& Programm fr das Testen des RFC Rechners aus SAP
*& Um den Rechner zu testen mu eine entsprechende TCP/IP Verbindung
*& in der SM59 gepflegt werden und in dem Zusatz Destination angegeben
*& werden.
*& Ferner mu das Programm RFCRechner.exe -z.B. auf dem lokalen Rechner-
*& installiert sein.
*&---------------------------------------------------------------------*

REPORT  ZCALLRFCRECHNER.

* Aufbau des Selectionscreen
parameters:  p_value1 type i default 5
           , p_value2 type i default 6
           .
* sonstige Arbeitsvariable
data:   p_exception(256) type c
      , p_result         type i
      .

* Aufruf der RFC Funktion RFC_ADD
call function 'RFC_ADD' destination 'ZJMSTEST'
     exporting value1    = p_value1
               value2    = p_value2
     importing result    = p_result
               exception = p_exception.

if ( not p_exception is initial ).
   write: / p_exception.
else.
   write: / 'Das Ergebnis der Addition ist: ', p_result.
endif.

* Aufruf der RFC Funktion RFC_SUB
call function 'RFC_SUB' destination 'ZJMSTEST'
     exporting value1    = p_value1
               value2    = p_value2
     importing result    = p_result
               exception = p_exception.

if ( not p_exception is initial ).
   write: / p_exception.
else.
   write: / 'Das Ergebnis der Subtraktion ist: ', p_result.
endif.
