ABAP–C語言調用SAP的RFC的代碼範例

C語言代碼
#include <stdlib.h>
#include <stdio.h>
#include "sapnwrfc.h"

RFC_RC SAP_API stfc_connection_impl(RFC_CONNECTION_HANDLE rfcHandle, RFC_FUNCTION_HANDLE funcHandle, RFC_ERROR_INFO* errorInfo){
 RFC_RC rc = RFC_OK;
 SAP_UC requtext[256], buf[256];

 rc = RfcGetString(funcHandle, cU("REQUTEXT"), requtext, 256, NULL, errorInfo);
 printfU(cU("Got request for STFC_CONNECTION./nREQUTEXT = %s/n/n"), requtext);
 sprintfU(buf, cU("STFC_CONNECTION called with REQUTEXT = %s"), requtext);
 rc = RfcSetString(funcHandle, cU("ECHOTEXT"), buf, strlenU(buf), errorInfo);

 return rc;
}

int mainU(int argc, SAP_UC** argv){
 RFC_RC rc = RFC_OK;
 RFC_CONNECTION_PARAMETER loginParams[1];
 RFC_ERROR_INFO errorInfo;
 RFC_CONNECTION_HANDLE connection;
 RFC_FUNCTION_DESC_HANDLE z_perform_callback, stfc_connection;
 RFC_FUNCTION_HANDLE functionContainer;
 SAP_UC data[256];

 loginParams[0].name = cU("dest"); loginParams[0].value = cU("SPJ");

 connection = RfcOpenConnection(loginParams, 1, &errorInfo);
 if (connection == NULL){
  printfU(cU("Error during logon: %s/n"), errorInfo.message);
  printfU(cU("Please check that the sapnwrfc.ini file is in the current/nworking directory and the logon parameters are ok./n"));
  return 1;
 }

 /* Note: In the following all error handling is omitted for simplicity. */
 z_perform_callback = RfcGetFunctionDesc(connection, cU("Z_PERFORM_CALLBACK"), &errorInfo);
 stfc_connection = RfcGetFunctionDesc(connection, cU("STFC_CONNECTION"), &errorInfo);

 // The stfc_connection_impl function will be called from R/3 during the RfcInvoke step below!
 rc = RfcInstallServerFunction(NULL, stfc_connection, stfc_connection_impl, &errorInfo);

 functionContainer = RfcCreateFunction(z_perform_callback, &errorInfo);

 rc = RfcSetString(functionContainer, cU("INPUT_DATA"), cU("Original Request"), 16, &errorInfo);
 rc = RfcInvoke(connection, functionContainer, &errorInfo);
 rc = RfcGetString(functionContainer, cU("OUTPUT_DATA"), data, 256, NULL, &errorInfo);

 RfcCloseConnection(connection, NULL);

 printfU(cU("Response from Z_PERFORM_CALLBACK: OUTPUT_DATA = %s/n"), data);
 return 0;
} 

ABAP代碼
FUNCTION z_perform_callback.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(INPUT_DATA) TYPE  CHAR255
*"  EXPORTING
*"     VALUE(OUTPUT_DATA) TYPE  CHAR255
*"----------------------------------------------------------------------

  DATA: error_message(120),
        request LIKE sy-lisel,
        echo LIKE sy-lisel.

  CONCATENATE 'Z_PERFORM_CALLBACK called with INPUT_DATA =' input_data
    INTO request SEPARATED BY space.

  CALL FUNCTION 'STFC_CONNECTION' DESTINATION 'BACK'
    EXPORTING
      requtext       = request
    IMPORTING
      echotext       = echo
*    RESPTEXT       =
    EXCEPTIONS
      system_failure = 1 MESSAGE error_message
      communication_failure = 2 MESSAGE error_message
            .

  IF sy-subrc NE 0.
    CONCATENATE 'Error during callback:' error_message INTO output_data
    SEPARATED BY space.
  ELSE.
    CONCATENATE 'Response from STFC_CONNECTION: ECHOTEXT =' echo INTO output_data
    SEPARATED BY space.
  ENDIF.

ENDFUNCTION.