RfcDispatch で動作する RFC サーバプログラム 

/* メインプログラム */

rfc_handle = RfcAccept (...); /* RFC 接続の受け入れ */

if (rfc_handle == RFC_HANDLE_NULL) /* リターンコードのチェック */
{
rfc_error_handling( ” RfcAccept ” ); /* RfcLastError によるエラー処理と */
return 1; /* エラー仕様の取得 */
}

rfc_rc = RfcInstallFunction ( ’ ABC ’ , abc_function , ...);
/* C ルーチン‘ abc_function ’での‘ ABC ’ */
/* RFC 機能‘ ABC ’の */
/* インストール */

if (rfc_rc != RFC_OK) /* リターンコードのチェック */
{
rfc_error_handling( ” Install function ’ ABC ’ );
/* RfcLastError によるエラー処理と */
return 1; /* エラー仕様の取得 */
}

実行 /* 接続が閉じるか終了するまで、 */
{
rfc_rc = RfcDispatch (...); /* インストールした RFC 機能のコールや */

} while ( rfc_rc == RFC_OK ); /* 実行を */ /* 待機。 */

RfcClose (...); /* RFC 接続を閉じる */

/* RFC 機能 : ’ ABC ’ */

static RFC_RC abc_function (RFC_HANDLE rfc_handle)
{
rfc_rc = RfcGetData (...); /* 関連する RFC データを取得 */
if (rfc_rc != RFC_OK) /* リターンコードのチェック */
{

rfc_error_handling( ” RfcGetData ” );
/* RfcLastError によるエラー処理と */
return 1; /* エラー仕様の取得 */
}

... /* RFC データの処理 */

rfc_rc = RfcSendData (...); /*ABAP プログラムに結果をレポート */
if (rfc_rc != RFC_OK) /* リターンコードのチェック */
{
rfc_error_handling( ” RfcSendData ” );
/* RfcLastError によるエラー処理と */
return 1; /* エラー仕様の取得 */
}

return 0; /* RFC ライブラリへ戻る */
}