Oracle Tuxedo工作站客户端与服务端的样例程序

服务端代码:

 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 #include <ctype.h>
 #include <atmi.h>
 #include <userlog.h>

 static void trim(char *strIn, char *strOut){

    char *start, *end, *temp;

    temp = strIn;
    while (*temp == ' ')
    {
       ++temp;
    }

    start = temp; 

    temp = strIn + strlen(strIn) - ; 

    while (*temp == ' '){
        --temp;
     }

    end = temp; 

    for (strIn = start; strIn <= end;){
         *strOut++ = *strIn++;
    }

    *strOut = '\0';

 }

 // return 1 is true , 0 is false
 static int isDigit(const char* str, int len)
 {
     int i;
     if (len == )
     {
         return ;
     }
     for (i = ; i < len; ++i)
     {
         if (i ==  && str[i] == '-') continue;

         if (!isdigit(str[i]))
         {
             return ;
         }
     }
     return ;
 }

 static int extractErrorCodeTagValue(const char* source)
 {
     char tagBeginStr[] = {  };
     char tagEndStr[] = {  };
     char errorCodeStr[] = {  };
     char errorCodeStrOut[] = {  };
     const char *beginPos = NULL;
     const char *endPos = NULL;
     const char* ERROR_CODE_TAG = "ERRORCODE";

     char *workPtr = NULL;
     int i = ;

     if (source == NULL || strlen(source) == )
     {
         return -;
     }

     sprintf(tagBeginStr, "<%s>", ERROR_CODE_TAG);
     sprintf(tagEndStr, "</%s>", ERROR_CODE_TAG);

     beginPos = strstr(source, tagBeginStr);
     endPos = strstr(source, tagEndStr);

     if (beginPos == NULL || endPos == NULL)
     {
         return -;
     }

     for (workPtr = (char*)beginPos + strlen(tagBeginStr); workPtr != endPos; workPtr++,i++)
     {
         errorCodeStr[i] = *workPtr;
     }

     if (strlen(errorCodeStr) == )
     {
         return -;
     }

     trim(errorCodeStr, errorCodeStrOut);

     if (!isDigit(errorCodeStrOut, strlen(errorCodeStrOut)))
     {
         return -;
     }

     return atoi(errorCodeStrOut);

 }

 EXEC SQL INCLUDE sqlca;

 EXEC SQL BEGIN DECLARE SECTION;
 char result_out[] = "";
 char* requestData = NULL;
 long requestDataLen = ;
 char* resultData = NULL;
 int retErrorCode = ;
 EXEC SQL VAR result_out IS STRING();
 EXEC SQL END DECLARE SECTION;

 TEST(TPSVCINFO *rqst)

 {

   requestData = rqst->data;
   requestDataLen = rqst->len;

   userlog("Request Data is:%s", requestData); 

   userlog("Request Data Length is:%d", requestDataLen);

   EXEC SQL EXECUTE
   DECLARE
   result_out_sql varchar2();
   BEGIN
     result_out_sql := '';
     prc_K_testJsdQuery(:requestData,result_out_sql);
     :result_out := result_out_sql;
   END;
   END-EXEC;

   userlog("result_out is: %s",result_out);

   retErrorCode = extractErrorCodeTagValue(result_out);
   userlog("ret Error Code is: %d",retErrorCode);
   if(retErrorCode != )
   {
     EXEC SQL ROLLBACK;
     userlog("executed rollback");
   }
   else
   {
     EXEC SQL COMMIT;
     userlog("executed commit");
   }

   resultData = (char *)tpalloc("STRING",NULL, + );
   if(resultData)
   {
     memset(resultData,, + );
     strncpy(resultData,result_out,);
     userlog("result Data is: %s",resultData);
     userlog("result Data Length is: %d",strlen(resultData));
     tpreturn(TPSUCCESS,,resultData,strlen(resultData),);
     tpfree(resultData);
   }
   else
   {
     tpreturn(TPFAIL,,NULL,,);
   }

 }

以上代码内嵌了SQL，采用了Oracle的Pro*C/C++ 编程方式，需要运行以下命令生成相应的可以编译的server_test.c文件:

proc USERID=[数据库账户名]/[数据库密码]@si2000 sqlcheck=SEMANTICS ireclen=512 iname=server_test.pc

 

然后再编译生成好的server_test.c文件：

buildserver -o server_test -f server_test.c -r Oracle_XA -s TEST

 

以上命令有个-s的参数是服务端代码里面Service Routine的名字，其实就是提供服务的函数名了。

 

因为Tuxedo是交易中间件，银行里面大量使用了这个。所以服务端的代码不可能不涉及分布式事务，所以需要运行以下命令行生成对应数据库的事务管理服务器（TMS）：

buildtms -o TMS_ORA10G -r Oracle_XA

 

-o参数就是生成的TMS的exe文件名，这个文件的名称需要在TUXCONFIG文件中配置引用，这样启动的tuxedo服务才能使用事务。

 

然后配置TUXCONFIG文件，配置完成用tmloadcf命令生成加密后的二进制配置文件。

 

生成完成二进制配置文件之后暂时还不能启动Tuxedo服务，因为服务可能会使用事务。所以需要进入tmadmin命令中配置事务日志：

tmadmin

crdl -b [block_num] -z D:\oracle\product\10.2.0\db_2\tuxedo12.1.3.0.0_VS2010\samples\atmi\connect-database-test\TLOG

crlog -m [master_node_name]

 

block_num一定要比TUXCONFIG文件中的TLOGSIZE大20-30%

master_node_name 其实就是TUXCONFIG文件中的MASTER 配置项的值，主节点的逻辑ID

 

以上命令都成功了以后，就可以使用tmboot命令启动Tuxedo服务了。服务端已经完美运行并连接数据库。下面来写客户端代码:

 

 /*功能:调用TUXEDO服务端的服务TEST,取EMPNO=1000所对应的ENAME的值,并显示出来*/
 #include <stdio.h>
 #include "atmi.h"
 main(argc,argv)
 {

 long reqlen=;
 char *sendbuf;
 char *rcvbuf;

 char *wsaddrEnv = tuxgetenv("WSNADDR");
 if(wsaddrEnv)
 {
     fprintf(stderr,"wsnaddr is:%s\n",wsaddrEnv);
 }
 /* 与TUXEDO服务端建立连接 */
 if (tpinit((TPINIT *) NULL) == -)
 {
 (void) fprintf(stderr,"Tpinit failedn");
 exit();
 }

 /* 分配发送缓冲区*/

 sendbuf = (char *)tpalloc("STRING",NULL,reqlen);

 if ( sendbuf == (char *)NULL)

 {

 printf("tpalloc failedn");

 tpterm();

 }

 /* 分配接受缓冲区*/
 rcvbuf = (char *)tpalloc("STRING",NULL,reqlen);

 if ( rcvbuf == (char *)NULL)

 {

 printf("tpalloc failedn");

 tpterm();

 }

 strcpy(sendbuf,"<AKC190>L2017262210000651420</AKC190><YYBM>0080</YYBM>");

 /*调用TUXEDO的服务TEST*/

 if (tpcall("TEST", (char *)sendbuf, 0L, (char **)&rcvbuf, (long *)&reqlen, <   ) )
 /*tpcall("TOUPPER", (char *)sendbuf, 0, (char **)&rcvbuf, &rcvlen, (long)0))*/
 {

 printf("tpcall failed,tperrno=%ld,tperrtext=%s\n",tperrno,tpstrerror(tperrno)); 

 tpfree(rcvbuf); 

 tpterm();  

 exit();

 }

 printf("name=%s\n",rcvbuf);

 tpfree(rcvbuf);

 tpfree(sendbuf);

 tpterm();

 return();

 }

然后以上代码用以下命令行来编译:

buildclient -o client_test -f client_test.c -w

 

-w参数必须加上，因为是远程客户端连接Tuxedo服务（客户端和服务端不在一台物理机上），如果是本地客户端连接Tuxedo服务（客户端和服务端在一台物理机上），就不用加-w

 

 

references:

http://blog.163.com/lover_j_j/blog/static/1682474472007101591059797/

https://docs.oracle.com/cd/B14117_01/appdev.101/a97269/pc_01int.htm#sthref50

https://docs.oracle.com/en/database/oracle/oracle-database/12.2/adfns/xa.html#GUID-22284B0A-C63F-471A-96ED-AEA195068944

https://wenku.baidu.com/view/ef4b38c5580216fc710afdcf.html

http://blog.csdn.net/cemer815/article/details/5493081

http://stevenos.iteye.com/blog/362630