Call a Remote Function Module From ABAP Envionment

1. Create the data types that specify your remote connection information:

   DATA(lo_destination) = cl_rfc_destination_provider=>CREATE_BY_CLOUD_DESTINATION(
                            I_SERVICE_INSTANCE_NAME = 'OutboundComm_for_RFCDemo_XXX'
                            I_NAME                  = 'S4TEST_RFC_XXX'
                          ).
   
   DATA(lv_destination) = lo_destination->get_destination_name( ).
   
   DATA lv_result type c length 200.
   

2. Replace the i_service_instance_name with your service instance name, specified in the Communication Arrangement (which you created in Create a Communication Arrangement for Outbound Communication).

3. Replace the i_name with your the name of the specific RFC destination (which you created in SAP Cloud Cockpit in the tutorial Create a Communication Arrangement for Outbound Communication).

   

CALL function 'RFC_SYSTEM_INFO'
destination lv_destination
  IMPORTING
    RFCSI_EXPORT      = lv_result.

Output the result of the RFC to the ABAP Console

out->write( lv_result ).

Wrap the whole method in an exception using TRY…CATCH.

catch cx_root into data(lx_root).
  out->write( lx_root->get_text( ) ).
endtry.

You code should look roughly like this:

class Z_A4C_RFC_XXX definition
  public
  final
  create public .

public section.
  interfaces if_oo_adt_classrun.
protected section.
private section.
ENDCLASS.



CLASS Z_A4C_RFC_XXX IMPLEMENTATION.
  METHOD IF_OO_ADT_CLASSRUN~MAIN.
    TRY.
      DATA(lo_destination) = cl_rfc_destination_provider=>CREATE_BY_CLOUD_DESTINATION(
                               I_SERVICE_INSTANCE_NAME = 'OutboundComm_for_RFCDemo_XXX'
                               I_NAME                  = 'S4TEST_RFC_XXX'
                             ).

      DATA(lv_destination) = lo_destination->get_destination_name( ).

      DATA lv_result type c length 200.

      CALL function 'RFC_SYSTEM_INFO'
      destination lv_destination
        IMPORTING
          RFCSI_EXPORT      = lv_result.

        out->write( lv_result ).
    catch cx_root into data(lx_root).
      out->write( lx_root->get_text( ) ).
    endtry.
  ENDMETHOD.

ENDCLASS.

This class allows you to troubleshoot the RFC connection by checking that the HTTP connection works.

class Z_A4C_HTTP_TEST_XXX definition
  public
  final
  create public .

public section.
  interfaces if_oo_adt_classrun.
protected section.
private section.
ENDCLASS.

CLASS Z_A4C_HTTP_TEST_XXX IMPLEMENTATION.
  METHOD IF_OO_ADT_CLASSRUN~MAIN.
    TRY.
        DATA(lo_destination) = cl_http_destination_provider=>create_by_cloud_destination(
          i_name                  = 'S4HTEST_HTTP_XXX'
          i_service_instance_name = 'OutboundComm_for_RFCDemo_XXX'
          i_authn_mode = if_a4c_cp_service=>service_specific ).

        DATA(lo_http_client) = cl_web_http_client_manager=>create_by_http_destination( i_destination = lo_destination ).
        DATA(lo_request) = lo_http_client->get_http_request( ).
        DATA(lo_response) = lo_http_client->execute( i_method = if_web_http_client=>get ).
          out->write( lo_response->get_status( ) ).
          out->write( lo_response->get_text( ) ).

      CATCH cx_root INTO DATA(lx_exception).
        out->write( lo_response->get_status( ) ).
        out->write( lx_exception->get_text( ) ).
    ENDTRY.

  endmethod.
ENDCLASS.

1. Go back to your RFC class. Remove the period (.) after the IMPORTING parameter and add the following exception parameters to the function call RFC_SYSTEM_INFO:

   
   EXCEPTIONS
     system_failure        = 1 MESSAGE msg
     communication_failure = 2 MESSAGE msg
     OTHERS                = 3.
   
   

2. Now evaluate sy-subrc by adding the following CASE…ENDCASE statement:

   
   CASE sy-subrc.
      WHEN 0.
        out->write( lv_result ).
      WHEN 1.
        out->write( |EXCEPTION SYSTEM_FAILURE | && msg ).
      WHEN 2.
        out->write( |EXCEPTION COMMUNICATION_FAILURE | && msg ).
      WHEN 3.
        out->write( |EXCEPTION OTHERS| ).
    ENDCASE.