RfcGetData crashes under Unix (Solaris) with sunos_sun4u_620/librfccm.so

Question

Hi!
I'm not quite sure if this is the right place to ask and if not, please point me to the right direction!
I wrote a RFC Server program (c code) which works fine under Windows but crashes under Solaris. The command where it crashes is the RfcGetData.
Maybe somebody knows what the problem is...
What is the meaning of:
Tables[0].itmode   = RFC_ITMODE_BYREFERENCE;
with normal client code, it is always something like:
Tables[0].ithandle = thTcFileInfos;
for creating tables!
Here is the function I'm using:
RFC_RC WIN_DLL_EXPORT_FLAGS srv_z_get_tc_viewing_file_url(RFC_HANDLE hRfc)
  unsigned int             row = 0;
  int                      rc = 0;
  char                     rc_char[1024];
  char                     UrlFromSAP[4096];
  char                     seps[] = " ";
  char                    *token;
  char                    *ResultString = NULL;
  char                    *ErrorString  = NULL;
  /* RFC variables */
  RFC_PARAMETER Importing[7];
  RFC_PARAMETER Exporting[2];
  RFC_TABLE Tables[2];
  RFC_RC RfcRc;
  /* param variables */
  BAPI_DOC_AUX_DOCNUMBER iDocumentnumber;
  BAPI_DOC_AUX_DOCPART iDocumentpart;
  BAPI_DOC_AUX_DOCTYPE iDocumenttype;
  BAPI_DOC_AUX_DOCVERSION iDocumentversion;
  BAPI_DOC_FILES iRequestFile;
  INT4 iTimeout;
  BAPIRET2 eReturn;
  ITAB_H thTcFileInfos = ITAB_NULL;
  char xException[256];
  ZT4S_TC_FILE_URLS *tTcFileInfos;
  /* install structures */
  if (handleOfBAPI_DOC_FILES == 0) {
    RfcRc = RfcInstallStructure("BAPI_DOC_FILES",
                               typeOfBAPI_DOC_FILES,
                               ENTRIES(typeOfBAPI_DOC_FILES),
&handleOfBAPI_DOC_FILES);
    //if (RfcRc != RFC_OK) rfc_error("RfcInstallStructure");
  if (handleOfINT4 == 0) {
    RfcRc = RfcInstallStructure("INT4",
                               typeOfINT4,
                               ENTRIES(typeOfINT4),
&handleOfINT4);
    //if (RfcRc != RFC_OK) rfc_error("RfcInstallStructure");
  if (handleOfBAPIRET2 == 0) {
    RfcRc = RfcInstallStructure("BAPIRET2",
                               typeOfBAPIRET2,
                               ENTRIES(typeOfBAPIRET2),
&handleOfBAPIRET2);
   // if (RfcRc != RFC_OK) rfc_error("RfcInstallStructure");
  if (handleOfZT4S_TC_FILE_URLS == 0) {
    RfcRc = RfcInstallStructure("ZT4S_TC_FILE_URLS",
                               typeOfZT4S_TC_FILE_URLS,
                               ENTRIES(typeOfZT4S_TC_FILE_URLS),
&handleOfZT4S_TC_FILE_URLS);
    // if (RfcRc != RFC_OK) rfc_error("RfcInstallStructure");
  /* init export parameters */
  SETCHAR(eReturn.Type,"");
  SETCHAR(eReturn.Id,"");
  SETNUM(eReturn.Number,"");
  SETCHAR(eReturn.Message,"");
  SETCHAR(eReturn.LogNo,"");
  SETNUM(eReturn.LogMsgNo,"");
  SETCHAR(eReturn.MessageV1,"");
  SETCHAR(eReturn.MessageV2,"");
  SETCHAR(eReturn.MessageV3,"");
  SETCHAR(eReturn.MessageV4,"");
  SETCHAR(eReturn.Parameter,"");
  SETINT(&eReturn.Row,"");
  SETCHAR(eReturn.Field,"");
  SETCHAR(eReturn.System,"");
  /* define import params */
  Importing[0].name = "DOCUMENTNUMBER";
  Importing[0].nlen = 14;
  Importing[0].type = TYPC;
  Importing[0].leng = sizeof(BAPI_DOC_AUX_DOCNUMBER);
  Importing[0].addr = &iDocumentnumber;
  Importing[1].name = "DOCUMENTPART";
  Importing[1].nlen = 12;
  Importing[1].type = TYPC;
  Importing[1].leng = sizeof(BAPI_DOC_AUX_DOCPART);
  Importing[1].addr = &iDocumentpart;
  Importing[2].name = "DOCUMENTTYPE";
  Importing[2].nlen = 12;
  Importing[2].type = TYPC;
  Importing[2].leng = sizeof(BAPI_DOC_AUX_DOCTYPE);
  Importing[2].addr = &iDocumenttype;
  Importing[3].name = "DOCUMENTVERSION";
  Importing[3].nlen = 15;
  Importing[3].type = TYPC;
  Importing[3].leng = sizeof(BAPI_DOC_AUX_DOCVERSION);
  Importing[3].addr = &iDocumentversion;
  Importing[4].name = "REQUEST_FILE";
  Importing[4].nlen = 12;
  Importing[4].type = handleOfBAPI_DOC_FILES;
  Importing[4].leng = sizeof(BAPI_DOC_FILES);
  Importing[4].addr = &iRequestFile;
  Importing[5].name = "TIMEOUT";
  Importing[5].nlen = 7;
  Importing[5].type = handleOfINT4;
  Importing[5].leng = sizeof(INT4);
  Importing[5].addr = &iTimeout;
  Importing[6].name = NULL;
  /* define internal tables */
  Tables[0].name     = "TC_FILE_INFOS";
  Tables[0].nlen     = 13;
  Tables[0].type     = handleOfZT4S_TC_FILE_URLS;
  Tables[0].leng     = sizeof(ZT4S_TC_FILE_URLS);
  // This is the generated code
  //Tables[0].itmode   = RFC_ITMODE_BYREFERENCE;
  // But we have always used it like this
  Tables[0].ithandle = thTcFileInfos;
  Tables[1].name = NULL;
THE CRASH HAPPENS HERE:
  RfcRc = RfcGetData(hRfc,Importing,Tables);
  if (RfcRc != RFC_OK) return RfcRc;
  thTcFileInfos = Tables[0].ithandle;
Nachdem wir die Daten von SAP haben, können wir den CALL an T4S absetzen
  GETCHAR(iRequestFile.Docfile,UrlFromSAP);
  // Some work needs to be done here...
  // Don't know why this call is there
  ///* call RFC function */
  //RfcRc = z_get_tc_viewing_file_url(hRfc
  //                  ,&iDocumentnumber
  //                  ,&iDocumentpart
  //                  ,&iDocumenttype
  //                  ,&iDocumentversion
  //                  ,&iRequestFile
  //                  ,&iTimeout
  //                  ,&eReturn
  //                  ,thTcFileInfos
  //                  ,xException);
  if (RfcRc == RFC_EXCEPTION) { RfcRaise(hRfc,xException); RfcListen(hRfc); return RfcRc; }
  /* define export params */
  Exporting[0].name = "RETURN";
  Exporting[0].nlen = 6;
  Exporting[0].type = handleOfBAPIRET2;
  Exporting[0].leng = sizeof(BAPIRET2);
  Exporting[0].addr = &eReturn;
  Exporting[1].name = NULL;
  if (RfcRc == RFC_OK) RfcRc = RfcSendData(hRfc, Exporting, Tables);
  return RfcRc;

Answer 1

Hi!
I'm not quite sure if this is the right place to ask and if not, please point me to the right direction!
I wrote a RFC Server program (c code) which works fine under Windows but crashes under Solaris. The command where it crashes is the RfcGetData.
Maybe somebody knows what the problem is...
What is the meaning of:
Tables[0].itmode   = RFC_ITMODE_BYREFERENCE;
with normal client code, it is always something like:
Tables[0].ithandle = thTcFileInfos;
for creating tables!
Here is the function I'm using:
RFC_RC WIN_DLL_EXPORT_FLAGS srv_z_get_tc_viewing_file_url(RFC_HANDLE hRfc)
  unsigned int             row = 0;
  int                      rc = 0;
  char                     rc_char[1024];
  char                     UrlFromSAP[4096];
  char                     seps[] = " ";
  char                    *token;
  char                    *ResultString = NULL;
  char                    *ErrorString  = NULL;
  /* RFC variables */
  RFC_PARAMETER Importing[7];
  RFC_PARAMETER Exporting[2];
  RFC_TABLE Tables[2];
  RFC_RC RfcRc;
  /* param variables */
  BAPI_DOC_AUX_DOCNUMBER iDocumentnumber;
  BAPI_DOC_AUX_DOCPART iDocumentpart;
  BAPI_DOC_AUX_DOCTYPE iDocumenttype;
  BAPI_DOC_AUX_DOCVERSION iDocumentversion;
  BAPI_DOC_FILES iRequestFile;
  INT4 iTimeout;
  BAPIRET2 eReturn;
  ITAB_H thTcFileInfos = ITAB_NULL;
  char xException[256];
  ZT4S_TC_FILE_URLS *tTcFileInfos;
  /* install structures */
  if (handleOfBAPI_DOC_FILES == 0) {
    RfcRc = RfcInstallStructure("BAPI_DOC_FILES",
                               typeOfBAPI_DOC_FILES,
                               ENTRIES(typeOfBAPI_DOC_FILES),
&handleOfBAPI_DOC_FILES);
    //if (RfcRc != RFC_OK) rfc_error("RfcInstallStructure");
  if (handleOfINT4 == 0) {
    RfcRc = RfcInstallStructure("INT4",
                               typeOfINT4,
                               ENTRIES(typeOfINT4),
&handleOfINT4);
    //if (RfcRc != RFC_OK) rfc_error("RfcInstallStructure");
  if (handleOfBAPIRET2 == 0) {
    RfcRc = RfcInstallStructure("BAPIRET2",
                               typeOfBAPIRET2,
                               ENTRIES(typeOfBAPIRET2),
&handleOfBAPIRET2);
   // if (RfcRc != RFC_OK) rfc_error("RfcInstallStructure");
  if (handleOfZT4S_TC_FILE_URLS == 0) {
    RfcRc = RfcInstallStructure("ZT4S_TC_FILE_URLS",
                               typeOfZT4S_TC_FILE_URLS,
                               ENTRIES(typeOfZT4S_TC_FILE_URLS),
&handleOfZT4S_TC_FILE_URLS);
    // if (RfcRc != RFC_OK) rfc_error("RfcInstallStructure");
  /* init export parameters */
  SETCHAR(eReturn.Type,"");
  SETCHAR(eReturn.Id,"");
  SETNUM(eReturn.Number,"");
  SETCHAR(eReturn.Message,"");
  SETCHAR(eReturn.LogNo,"");
  SETNUM(eReturn.LogMsgNo,"");
  SETCHAR(eReturn.MessageV1,"");
  SETCHAR(eReturn.MessageV2,"");
  SETCHAR(eReturn.MessageV3,"");
  SETCHAR(eReturn.MessageV4,"");
  SETCHAR(eReturn.Parameter,"");
  SETINT(&eReturn.Row,"");
  SETCHAR(eReturn.Field,"");
  SETCHAR(eReturn.System,"");
  /* define import params */
  Importing[0].name = "DOCUMENTNUMBER";
  Importing[0].nlen = 14;
  Importing[0].type = TYPC;
  Importing[0].leng = sizeof(BAPI_DOC_AUX_DOCNUMBER);
  Importing[0].addr = &iDocumentnumber;
  Importing[1].name = "DOCUMENTPART";
  Importing[1].nlen = 12;
  Importing[1].type = TYPC;
  Importing[1].leng = sizeof(BAPI_DOC_AUX_DOCPART);
  Importing[1].addr = &iDocumentpart;
  Importing[2].name = "DOCUMENTTYPE";
  Importing[2].nlen = 12;
  Importing[2].type = TYPC;
  Importing[2].leng = sizeof(BAPI_DOC_AUX_DOCTYPE);
  Importing[2].addr = &iDocumenttype;
  Importing[3].name = "DOCUMENTVERSION";
  Importing[3].nlen = 15;
  Importing[3].type = TYPC;
  Importing[3].leng = sizeof(BAPI_DOC_AUX_DOCVERSION);
  Importing[3].addr = &iDocumentversion;
  Importing[4].name = "REQUEST_FILE";
  Importing[4].nlen = 12;
  Importing[4].type = handleOfBAPI_DOC_FILES;
  Importing[4].leng = sizeof(BAPI_DOC_FILES);
  Importing[4].addr = &iRequestFile;
  Importing[5].name = "TIMEOUT";
  Importing[5].nlen = 7;
  Importing[5].type = handleOfINT4;
  Importing[5].leng = sizeof(INT4);
  Importing[5].addr = &iTimeout;
  Importing[6].name = NULL;
  /* define internal tables */
  Tables[0].name     = "TC_FILE_INFOS";
  Tables[0].nlen     = 13;
  Tables[0].type     = handleOfZT4S_TC_FILE_URLS;
  Tables[0].leng     = sizeof(ZT4S_TC_FILE_URLS);
  // This is the generated code
  //Tables[0].itmode   = RFC_ITMODE_BYREFERENCE;
  // But we have always used it like this
  Tables[0].ithandle = thTcFileInfos;
  Tables[1].name = NULL;
THE CRASH HAPPENS HERE:
  RfcRc = RfcGetData(hRfc,Importing,Tables);
  if (RfcRc != RFC_OK) return RfcRc;
  thTcFileInfos = Tables[0].ithandle;
Nachdem wir die Daten von SAP haben, können wir den CALL an T4S absetzen
  GETCHAR(iRequestFile.Docfile,UrlFromSAP);
  // Some work needs to be done here...
  // Don't know why this call is there
  ///* call RFC function */
  //RfcRc = z_get_tc_viewing_file_url(hRfc
  //                  ,&iDocumentnumber
  //                  ,&iDocumentpart
  //                  ,&iDocumenttype
  //                  ,&iDocumentversion
  //                  ,&iRequestFile
  //                  ,&iTimeout
  //                  ,&eReturn
  //                  ,thTcFileInfos
  //                  ,xException);
  if (RfcRc == RFC_EXCEPTION) { RfcRaise(hRfc,xException); RfcListen(hRfc); return RfcRc; }
  /* define export params */
  Exporting[0].name = "RETURN";
  Exporting[0].nlen = 6;
  Exporting[0].type = handleOfBAPIRET2;
  Exporting[0].leng = sizeof(BAPIRET2);
  Exporting[0].addr = &eReturn;
  Exporting[1].name = NULL;
  if (RfcRc == RFC_OK) RfcRc = RfcSendData(hRfc, Exporting, Tables);
  return RfcRc;