第一章 开发BEA Tuxedo应用程序
§1.1 开发前的思考
在开发BEA Tuxedo应用程序之前,你需要先搞清楚一系列和设计开发相关的概念,如识别什么是客户机,有哪些方法可以从外界收集数据并提交服务器进行业务处理;识别什么是服务器,哪些程序包容了可以处理客户机输入的商业逻辑;识别什么是类型缓冲区,客户程序在向其这程序发送数据前如何分配内存区域;什么是BEA Tuxedo的消息范例等。最后你还要弄明白客户程序是通过调用ATMI库来访问BEA Tuxedo系统的。
§1.2 创建BEA Tuxedo的客户程序
创建BEA Tuxedo的客户程序与在C和C++编程语言中创建其它应用程序一样,BEA Tuxedo提供了一个其于C语言的编程接口,即应用程序事务监控接口ATMI,这套接口很容易使用,以便用于开发客户程序和服务程序。除了C语言接口外,BEA Tuxedo还提供了COBOL接口。
客户程序的任务
客户程序一般执行如下任务:
⑴. 调用tpchkauth()决定加入一个应用程序所需的安全级别。可能出现的响应包括:没有安全级别,应用程序口令,应用程序授权,访问控制列表,连接级加密,公钥加密,审计。这些可以根据你的需求进行选择;
⑵. 调用tpinit()来连接到一个BEA Tuxedo应用程序,所需的安全信息作为tpinit()的参数传给了应用程序;
⑶. 执行服务请求;
⑷. 调用tpterm()来断开和BEA Tuxedo应用程序的连接。
§1.3 创建的服务程序
尽管开发者使用ATMI编程接口来创建BEA Tuxedo客户程序和服务程序,但服务程序不全部由开发者来编写,开发者只需写一些称为服务的商业函数,然后和BEA Tuxedo的一些二进制程序联编成一个可执行的服务程序。BEA Tuxedo服务程序启动后,它总是保持运行状态,只到接收到一个shutdown消息为止。一个典型的BEA Tuxedo服务程序在shutdown或reboot之前都在执行着数千个服务。
服务程序的任务
⑴. 在BEA Tuxedo服务程序启动时,执行tpsvrinit()函数,可以在里面打开一些如数据库之类的资源供以后使用;
⑵. 在BEA Tuxedo服务程序关闭时,执行tpsvrdown()函数,可以在里面关闭tpsvrinit()中打开的资料;
⑶. BEA Tuxedo服务程序以服务的形式来响应客户程序的请求,客户程序不是通过名字来调用服务程序的,而是调用服务,客户程序不知道处理它请求的服务程序的位置;
⑷. 服务程序调用tpreturn()函数来结束服务请求,并返回一个缓冲区,必要时,将它传给客户程序;
§1.4 在应用程序中使用类型缓冲区
在Bea Tuxedo系统中的所有通信过程都是通过类型缓冲区来完成的,Bea Tuxedo系统提供了大量的类型缓冲区来供开发者使用。所有类型缓冲区都必须通过Bea Tuxedo的tpalloc(), tprealloc(), tpfree()这些ATMI来分配回收,它们都有特定的头部。
统一定义的类型缓冲区可以使它们在跨越不同网络、不同协议、不同CPU构架以及不同操作系统之间得到统一的处理,这就使得开发者在分布式计算环境中有效地避开了异构网络和异构计算机系统带来的差异,把精力集中在商业逻辑的开发上。
§1.5 在BEA Tuxedo应用程序中使用消息范例
1.BEA Tuxedo系统提供多种通信模式
⑴.同步Request/Response模式;
⑵.异步Request/Response模式;
⑶.嵌套调用;
⑷.调用转发;
⑸.会话通信;
⑹.主动消息通告;
⑺.基于事件的通信;
⑻.基于队列的通信;
⑼.使用事务。
2. 同步的Request/Response模式
要进行同步调用,Bea Tuxedo客户程序使用ATMI函数tpcall()把一个请求送到服务程序,它不是通过名字来调用服务程序的,而是通过特定的服务来完成。客户程序要等到服务程序作出响应后才处理后面的工作,也就是说,它在收到服务程序的响应之前一直处于阻塞状态。
3.异步Request/Response模式
要进行异步调用,客户程序必须调用两个ATMI函数:tpacall(3c)函数,用于请求一个服务;tpgetrply(3c)函数,用于取得服务程序的响应。客户程序在请求和响应之间要完成特定任务时,可以采用这种模式。
4.使用嵌套调用
一个服务可以充当BEA Tuxedo客户程序,去调用其它BEA Tuxedo服务,换句话说,你请求的服务需要调用其它服务才能处理请求。BEA Tuxedo客户程序调用了服务X,等待它的响应,服务X调用服务Y后也处于等待状态,当服务X得到响应后,再给客户程序一个响应,这种机制的特点是效率高。
5.使用调用转发
在嵌套服务中,最里层嵌套服务可以直接给客户程序一个响应,没有必要按照调用栈逐级返回,这就使其它嵌套服务可以处理其它请求,当第一个服务是一个分发代理时,这种模式是非常有用的。在嵌套调用中,被客户调用的服务X使用tpforward(3c)函数把请求传给服务Y,服务X没有tpreturn(3c)函数。客户程序不用管请求是由谁来完成的,因此,转发调用对客户程序是透明的。
6.会话通信
会话通信适合于有多个缓冲区需要以有状态的方式在BEA Tuxedo客户程序和服务之间传递的场合。恰当地使用BEA Tuxedo的会话,因为参与会话的服务器在会话结束之前是不可用的。要完成会话通信,你的代码需要遵循如下步骤:
⑴.客户程序使用tpconnect()启动会话;
⑵.客户程序和服务使用tpsend()和tprecv()函数进行数据交换,一个特殊的标记指示着当前由哪一方来控制着会话;
⑶.当服务程序调用tpreturn()或tpdiscon()函数时,会话正常终止。
7.主动消息通告
要处理服务器的消息通知,客户程序必须使用tpsetunsol()函数来创建一个消息处理器,要发送主动消息,BEA Tuxedo客户程序或服务程序可以调用tpnotify()来把消息传递给单个客户程序,也可以通过tpbroadcast()函数来把消息同时广播给多个客户程序。当客户程序收到主动消息后,BEA Tuxedo系统调用客户程序的主动消息处理器来处理。
在一个基于信号系统中,客户程序没有必要处理所有的主动消息,然而,在一个非信号系统中,客户程序必须使用tpchkunsol()函数来检查主动消息。当客户程序调用一个服务请求时,tpchkunsol()被隐含地调用。在调用tpnotify()时,如果你设置了tpack标记位,你将会收到一个请求通知。
8.基于事件的通信
在基于事件的通信中,事件可以被发送到应用程序队列、LOG文件和系统命令。当BEA Tuxedo服务或客户程序调用tppost()函数时,任何一个BEA Tuxedo客户程序都可以使用tpsubscribe()函数订阅用户自定义事件;当BEA Tuxedo系统检测事件时,客户程序也可以订阅系统定义事件。当一个服务器死了,.SysServerDied事件就会被发布,它由BEA Tuxedo系统自动完成,不需要应用服务器干预。
9.基于队列的通信
为了实现了和/Q系统的接口,BEA Tuxedo客户程序使用两个ATMI函数,使用tpenqueue()把消息放入队列空间,使用tpdequeue()来把消息从队列空间中取走。
下面演示了点对点异步消息机制。一个客户程序使用tpenqueue()函数将消息传给服务,响应队列和失败队列的名字可以作为参数包含在tpenqueue()调用中,由于在队列中的数据是持续的,因此,所有和排队消息相关的响应消息和失败消息都可以从相应的响应队列和失败队列中取得。客户程序可以使用缺省的排队顺利,即按放放顺利排队,先进先出;也可以改变排队规则,如把一个消息放在队列开始,或放到另一个队列前面。Tpenqueue()调用把消息送到TMQUEUE服务器,并被放入固定存储体中进行排队,然后给客户程序发送一个通知消息。队列管理器给消息分配一个标识符,使用它可以随时将消息踢出队列,也可以用于tpenqueue()中,指示将新消息紧挨着标识符标识的消息。在消息出队时,要出队消息的事务必须成功地提交。客户程序使用tpdequeue()来使消息出队。
下面演示了消息被转发到另一个服务器。客户程序发出一个消息,要调用服务器上的X服务,X服务接收消息后,处理消息中的指令,然后把响应放入队列空间,客户程序再从队列空间中取出。排队系统对于服务来说是透明的,也就是说,不论服务请求是从队列发出的,还是通过tp(a)call发出的,服务都能接受。
10.使用事务
要使用事务,应用程序开发者需要使用如下ATMI函数:
⑴.tpbegin(),用于开始一个事务;
⑵.tpcommit(),开始一个二阶段提交处理;
⑶.tpabort(),产即终止事务。
任何放在begin,commit/abord之外的代码不包含事务中。在下面的例子中,客户程序打开了一个事务,请求了两个服务,并且提交了事务。因为服务请求是在事务开始和提交之间完成的,所以两个服务的行为都被了事务记录。
第二章 一个简单的Tuxedo应用程序simpapp
本章介绍了BEA Tuxedo的一个简单例子,用C语言编写的simpapp,它包含了一个客户程序和一个服务器,服务器只执行一个服务:从客户程序接收小写字母,将其转换成大写后,返回给客户程序。在使用这个例子之前,需要在系统中安装C语言编译器。
准备simpapp的文件和资源
在准备simpapp例子之前,系统中必须安装了BEA Tuxedo软件,而且要设置$TUXDIR环境变量,NT平台下为%TUXDIR%,并把%TUXDIR%\bin加到PATH中,最后还要确保你的工作目录要有写权限。完成这些工作后,请按如下步骤来准备simpapp程序:
⑴. 复制simpapp所需要的所有文件,它们位于$TUXDIR/samples/atmi/simpapp目录下;
⑵. 检查并编译客户程序;
⑶. 检查并编译服务程序;
⑷. 编辑并加载配置文件;
⑸. 启动应用程序;
⑹. 执行运行时应用程序;
⑺. 监视运行时应用程序;
⑻. 关闭应用程序。
完成这个例子后,你应该理解客户程序和服务器所执行的任务,根据你的环境编写一个配置文件,通过tmadmin检查应用程序的活动。同时,你应该理解BEA Tuxedo应用程序的基本组成部分:客户程序、服务器程序、配置文件,通过BEA Tuxedo系统的哪些命令来管理你的应用程序。
1.复制simpapp例子的相关文件
⑴.创建目录:
mkdir simpdir
cd simpdir
⑵.设置并导出环境变量
TUXDIR=BEA Tuxedo系统的根目录,如UNIX系统下可以设置为:
TUXDIR="/usr/tuxedo",NT系统下可以设置为:
TUXDIR="G:\Program Files\BEA System\Tuxedo"
TUXCONFIG=当前工作目录加上/tuxconfig,如UNIX系统下可以设置为:
TUXCONFIG="/usr/me/simpdir/tuxconfig",NT系统下可以设置为:
TUXCONFIG="G:\simpdir\tuxconfig"
PATH=$PATH:$TUXDIR/bin
LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$TUXDIR/lib
export TUXDIR TUXCONFIG PATH LD_LIBRARY_PATH
TUXDIR和PATH用于访问BEA Tuxedo系统的文件和执行命令,在Sun Solaris系统中,必须把/usr/5bin放在PATH中的第一个,在RS6000中的AIX上,将LD_LIBRARY_PATH替换成LIBPATH,在HP9000中的HP-UX上,将LD_LIBRARY_PATH替换为SHLIB_PATH。
设置TUXCONFIG的目的是用于加载配置文件。
⑶.复制simpapp文件,
cp $TUXDIR/samples/atmi/simpapp/* .
⑷.查看文件
$ls
README env simpapp.nt ubbmp wsimpcl
README.as400 setenv.cmd simpcl.c ubbsimple
README.nt simpapp.mk simpserv.c ubbws
文件说明:
simpcl.c客户程序的源代码
simpserv.c服务程序的源代码
ubbsimple应用程序配置文件的纯文本形式
2.检查并编译客户程序
⑴.检查客户程序
$more simpcl.c
#include <stdio.h>
#include "atmi.h" /* TUXEDO的头文件 */
#if defined(__STDC__) || defined(__cplusplus)
main(int argc, char *argv[])
#else
main(argc, argv)
int argc;
char *argv[];
#endif
{
char *sendbuf, *rcvbuf;
long sendlen, rcvlen;
int ret;
if(argc != 2) {
(void) fprintf(stderr, "Usage: simpcl string\n");
exit(1);
}
/* 作为一个客户过程连接到System/T */
if (tpinit((TPINIT *) NULL) == -1) {
(void) fprintf(stderr, "Tpinit failed\n");
exit(1);
}
sendlen = strlen(argv[1]);
/* 分配一个供请求响应使用的STRING 缓冲区 */
if((sendbuf = (char *) tpalloc("STRING", NULL, sendlen+1)) == NULL) {
(void) fprintf(stderr,"Error allocating send buffer\n");
tpterm();
exit(1);
}
if((rcvbuf = (char *) tpalloc("STRING", NULL, sendlen+1)) == NULL) {
(void) fprintf(stderr,"Error allocating receive buffer\n");
tpfree(sendbuf);
tpterm();
exit(1);
}
(void) strcpy(sendbuf, argv[1]);
/* Request the service TOUPPER, waiting for a reply */
ret = tpcall("TOUPPER", (char *)sendbuf, 0,
(char **)&rcvbuf, &rcvlen, (long)0);
if(ret == -1) {
(void) fprintf(stderr, "Can't send request to service TOUPPER\n");
(void) fprintf(stderr, "Tperrno = %d\n", tperrno);
tpfree(sendbuf);
tpfree(rcvbuf);
tpterm();
exit(1);
}
(void) fprintf(stdout, "Returned string is: %s\n", rcvbuf);
/* Free Buffers & Detach from System/T */
tpfree(sendbuf);
tpfree(rcvbuf);
tpterm();
return(0);
}
说明:
语句 |
说明 |
atmi.h |
调用ATMI函数必须的头文件 |
tpinit() |
客户程序调用它来加入应用程序 |
tpalloc() |
用于分配类型缓冲区的ATMI函数,STRING是五种BEA Tuxedo缓冲区数据类型之一,sendlen+1表示缓冲区类型,因为以空字符结尾,所以长度加1 |
tpcall() |
把消息缓冲区送到TOUPPER服务,它提供了响应缓冲区的地址,它一直等待着返回消息 |
tpterm() |
用于退出应用程序的ATMI函数, |
tpfree() |
释放分配的缓冲区,是和tpalloc()相对应的函数 |
⑵.编译客户程序
$buildclient -o simpcl -f simpcl.c
-o指明输出目标文件名,-f指出源文件名
3.检查并编译服务程序
⑴.检查服务程序
$more simpserv.c
#include <stdio.h>
#include <ctype.h>
#include <atmi.h> /* TUXEDO Header File */
#include <userlog.h> /* TUXEDO Header File */
/* 当服务器启动时,在处理请求之前,tpsvrinit被执行,这个不是必须的,对应的函数是shutdown*/
#if defined(__STDC__) || defined(__cplusplus)
tpsvrinit(int argc, char *argv[])
#else
tpsvrinit(argc, argv)
int argc;
char **argv;
#endif
{
/* 当argc, argv没有被使用时,一些系统会发了警告 */
argc = argc;
argv = argv;
/* userlog用于将TUXEDO消息写到日志文件中 */
userlog("Welcome to the simple server");
return(0);
}
/* TOUPPER真正处理客户请求,它接收的参数是一个缓冲区指针 */
#ifdef __cplusplus
extern "C"
#endif
void
#if defined(__STDC__) || defined(__cplusplus)
TOUPPER(TPSVCINFO *rqst)
#else
TOUPPER(rqst)
TPSVCINFO *rqst;
#endif
{
int i;
for(i = 0; i < rqst->len-1; i++)
rqst->data[i] = toupper(rqst->data[i]);
/* 返回转换后的类型缓冲区 */
tpreturn(TPSUCCESS, 0, rqst->data, 0L, 0);
}
说明:
语句 |
说明 |
whole file |
整个服务程序不提供main函数,在build时,由BEA Tuxedo系统提供。 |
tpsvrinit() |
在服务器初始化即处理请求之前被调用。若没有提供该函数,BEA Tuxedo系统会提供一个缺省的,它向USERLOG中写一条消息,说明服务器已经被启动。userlog(3c)是系统提供的一个写日志的方法。 |
TOUPPER() |
simpserv提供的唯一一个服务,它接收一个TPSVCINFO结构,它包含了要被转换成大写的字符串。 |
for loop |
BEA Tuxedo系统的循环,用于逐一转换。 |
tpreturn() |
|
⑵.编译服务器
$buildserver –o simpserv –f simpserv.c –s TOUPPER
–s TOUPPER指明了在服务器启动时需要提供的服务
4.编辑并加配置文件
⑴.怎样编辑配置文件
#ident "@(#) apps/simpapp/ubbsimple $Revision: 1.1.10.1 $"
#Skeleton UBBCONFIG file for the TUXEDO Simple Application.
# 将<>里而的内容替换成实际值.
*RESOURCES
IPCKEY <Replace with a valid IPC Key>
#Example:
#IPCKEY 123456
DOMAINID simpapp
MASTER simple
MAXACCESSERS 10
MAXSERVERS 5
MAXSERVICES 10
MODEL SHM
*MACHINES
DEFAULT:
APPDIR="<Replace with the current directory pathname>"
TUXCONFIG="<Replace with your TUXCONFIG Pathname>"
TUXDIR="<Directory where TUXEDO is installed>"
#Example:
# APPDIR="/home/me/simpapp"
# TUXCONFIG="/home/me/simpapp/tuxconfig"
# TUXDIR="/usr/tuxedo"
# 对于NT平台,可以替换成如下值
# APPDIR="G:\JQEJB\simpapp"
# TUXCONFIG="G:\JQEJB\simpapp\tuxconfig"
# TUXDIR="G:\Program Files\BEA System\Tuxedo"
<Machine-name> LMID=simple
#Example:
#JQ LMID=simple
*GROUPS
GROUP1
LMID=simple GRPNO=1 OPENINFO=NONE
*SERVERS
DEFAULT:
CLOPT="-A"
simpserv SRVGRP=GROUP1 SRVID=1
*SERVICES
TOUPPER
⑵.加载配置文件
$ tmloadcf ubbsimple
Initialize TUXCONFIG file: /usr/me/simpdir/tuxconfig [y, q] ? y
$
5.启动应用程序
⑴.执行tmboot启动应用程序
$tmboot
Boot all admin and server processes? (y/n): y
Booting all admin and server processes in
/usr/me/simpdir/tuxconfig
Booting all admin processes ....
exec BBL -A:
process id=24223 ... Started.
Booting server processes ...
exec simpserv -A :
process id=24257 ... Started.
2 processes started.
BBL是应用程序中监视共享内存结构的管理进程,simpserv是连续运行的simpapp服务程序,它等待着处理请求。
6.如何执行运行时应用程序
$ simpcl “hello, world”
Returned string is: HELLO, WORLD
7.如何监视运行时应用程序
作为管理者,你可以使用tmadmin命令解释器来检测一个应用程序,并作一些动态的改变,要运行该命令,你必须设置TUXCONFIG环境变量。tmadmin可以解释超过50个命令,要看完整的列表,请看tmadmin(1),这里我们使用了两个tadmin命令。
⑴.输入如一命令:
$tmadmin
显示:
tmadmin - Copyright (c) 1999 BEA Systems, Inc. All rights
reserved.
>
⑵.输入printserver(psr)命令,显示:
> psr
a.out Name Queue Name Grp Name ID RqDone Load Done Current Service
-------------- --------------- ------------- -- --------- -------------- ------------------
BBL 531993 simple 0 0 0 ( IDLE )
simpserv 00001.00001 GROUP1 1 0 0 ( IDLE )
⑶.输入printservice(psc)命令,显示:
Service Name Routine Name a.out Name Grp Name ID Machine # Done Status
------------ --- ------------------ ------------- ------------ --- ---------- --------- ---------
TOUPPER TOUPPER simpserv GROUP1 1 simple - AVAIL
>
8.如何关闭应用程序
⑴.运行tmshutdown命令来关闭应用程序
$ tmshutdown
Shutdown all admin and server processes? (y/n): y
Shutting down all admin and server processes in
/usr/me/simpdir/tuxconfig
Shutting down server processes ...
Server Id = 1 Group Id = GROUP1 Machine = simple: shutdown
succeeded.
Shutting down admin processes ...
Server Id = 0 Group Id = simple Machine = simple: shutdown
succeeded.
2 processes stopped.
$
⑵.检查ULOG文件
$ cat ULOG*
$
113837.tuxmach!tmloadcf.10261: CMDTUX_CAT:879: A new file system
has been created. (size = 32 4096-byte blocks)
113842.tuxmach!tmloadcf.10261: CMDTUX_CAT:871: TUXCONFIG file
/usr/me/simpdir/tuxconfig has been created
113908.tuxmach!BBL.10768: LIBTUX_CAT:262: std main starting
113913.tuxmach!simpserv.10925: LIBTUX_CAT:262: std main starting
113913.tuxmach!simpserv.10925: Welcome to the simple server
114009.tuxmach!simpserv.10925: LIBTUX_CAT:522: Default
tpsvrdone() function used.
114012.tuxmach!BBL.10768: CMDTUX_CAT:26: Exiting system
第三章 一个完整的Tuxedo应用程序bankapp
bankapp是BEA Tuxedo系统提供一个简单的银行应用程序,它完成如下功能:打开和关闭账号,查询账号余额,存款和取款,账号之间转账。
§3.1 熟悉bankapp的文件
BEA Tuxedo系统提供了一个演示数据库,bankapp例子中有很多个地方使用了命令和SQL代码来访问它。bankapp由如下文件组成:
源文件 |
生成的文件 |
内容说明 |
ACCT.ec |
ACCT.c, ACCT.o, ACCT |
包括两个服务:OPEN_ACCT和CLOSE_ACCT 用于打开和关闭账号 |
ACCTMGR.c |
ACCTMGR |
订阅事件和记录通告日志的服务器,包含: WATCHDOG 和 Q_OPENACCT_LOG 服务 |
AUDITC.c |
AUDITC |
包括一个会话服务器处理来自客户端auditcon的请求 |
BAL.ec |
BAL.c, BAL.o, BAL |
包括一组服务:ABAL, TBAL, ABAL_BID, 和 TBAL_BID 允许audit客户获得银行或支行账号以及余额 |
BALC.ec |
BALC.c, BALC.o, BALC |
包括两个服务:ABALC_BID和TBALC_BID。这些服务和TBAL_BID,ABAL_BID是一样的。 |
Bankmgr.c |
bankmgr |
订阅特定事件客客户程序 |
cracl.sh |
- |
用于创建访问控制列表ACL以演示ACL安全的shell脚本 |
crqueue.sh |
- |
notification.用于创建应用程序队列以供事件通告使用的shell脚本 |
Crusers.sh |
- |
创建用户和组以演示验证安全级别的shell脚本 |
event.flds |
- |
在事件特征中用到的字段表文件 |
FILES |
- |
bankapp用到的所有文件列表 |
README |
- |
在除NT以外的所有平台上安装指南 |
README.nt |
- |
NT平台上的安装指南 |
README2 |
- |
在bankapp中演示新特性的自述文件 |
README2.nt |
- |
在NT平台上演示新特性自述文件 |
RUNME.cmd |
- |
在NT平台上创建、配置、启动、关闭应用程序的交互式脚本 |
RUNME.sh |
- |
UNIX平台下的脚本文件,功能同上 |
showq.sh! |
- |
显示消息队列的状态和内容的shell脚本 |
TLR.ec |
TLR.c, TLR.o, TLR |
包含三个服务:WITHDRAWAL, DEPOSIT和INQUIRY |
Usrevtf.sh |
- |
创建供TMUSREVT服务器使用的ENVFILE文件 |
XFER.c |
XFER.o, XFER |
包括TRANSFER服务 |
aud.v |
aud.V, aud.h |
一个在audit 客户和BAL服务器之间使用的FML view |
Appinit.c |
appinit.o |
包含供所有服务器(除TLR以外)使用的用户自定义版的tpsvrinit()和tpsvrdown() |
audit.c |
audit.o, audit |
通过ABAL, TBAL, ABAL_BID和TBAL_BID 服务获得银行及支行账号和余余额的客户程序 |
auditcon.c |
auditcon |
audit的交互式版本,使用ABAL, TBAL, ABALC_BID和TBALC_BID.服务 |
bankapp.mk |
- |
UNIX下应用程序Make文件 |
bankapp.nt |
- |
NT平台下应用程序的Make文件 |
bank.flds |
bank.flds.h |
由服务器使用,包含银行数据库和辅助FML字段文件 |
bank.h |
- |
bankapp应用程序的头文件 |
bankvar |
- |
包括bankapp使用的环境变量,其它环境变量在ENVFILE中定义,后者被前者调用 |
Crbank.sh |
crbank |
为bankapp在SHM模式下运行时创建数据的shell脚本 |
crbankdb.sh |
crbankdb |
为一个服务器组创建数据库的shell脚本 |
crtlog.sh |
crtlog, TLOG |
在master站和non-master站的UDL上创建UDL和TLOG的shell脚本 |
driver.sh |
driver |
通过FML缓冲区驱动应用程序的shell脚本 |
envfile.sh |
envfile, ENVFILE |
创建供tmloadcf使用的ENVFILE文件的shell脚本 |
gendata.c |
gendata |
生成10个支行,30个出纳员及200个账号的程序 |
Gentran.c |
gentran |
从DEPOSIT, WITHDRAWAL, TRANSFER和INQUIRY.生成事务请求的程序 |
populate.sh |
populate |
通过FML缓冲区向数据库中插入支行、出纳员、和账号信息的shell脚本 |
Ubbmp |
TUXCONFIG |
在MP-mode下使用的UBBCONFIG文件 |
ubbshm |
TUXCONFIG |
在SHM-mode下使用的UBBCONFIG文件 |
util.c |
util.o |
包含一组由服务使用的函数,如getstr1()等 |
bankclt.c |
bankclt |
bankapp的客户程序 |
§3.2 检查bankapp的客户程序
1.bankclt.c文件
它是一个基于文本的客户,提供了:余额查询、取款、存款、转账、打开账号、关闭、号、退出程序等几大功能。除退出应用程序以外,每一个选项都调用了一个执行如下功能的例程:
⑴.通过get_account(), get_amount(), get_socsec(), get_phone(), get_val()函数从键盘获得用户输入。
⑵.将值存入一个全局的FML缓冲区(*fbfr),有些函数需要更多的字段,需要根据服务器所需的信息来确定。
⑶.通话通过do_tpcall()函数调用BEA Tuxedo系统服务,下面列出了一些函数和服务。
函数名 |
输入FML字段 |
输出 FML字段 |
服务名称 |
BALANCE() |
ACCOUNT_ID |
SBALANCE |
INQUIRY |
WITHDRAWAL() |
ACCOUNT_ID SAMOUNT |
SBALANCE |
WITHDRAWAL |
DEPOSIT() |
ACCOUNT_ID SAMOUNT |
SBALANCE |
DEPOSIT |
TRANSFER() |
ACCOUNT_ID (0) ACCOUNT_ID (1) SAMOUNT |
SBALANCE (0) SBALANCE (1) |
TRANSFER |
OPEN_ACCT() |
LAST_NAME FIRST_NAME MID_INIT SSN ADDRESS PHONE ACCT_TYPE BRANCH_ID SAMOUNT |
ACCOUNT_ID SBALANCE |
OPEN_ACCT |
CLOSE_ACCT() |
ACCOUNT_ID |
SBALANCE |
CLOSE_ACCT |
⑷.调用成功完成后,每个函数可以从返回的FML缓冲区中取得需要的数据
do_tpcall()函数的代码如下:
static int do_tpcall(char *service){
long len;
char *server_status;
/* 开始一个全局事务 */
if (tpbegin(30, 0) == -1) {
(void)fprintf(stderr, "ERROR: tpbegin failed (%s)\n",tpstrerror(tperrno));
return(-1);
}
/* 使用用户数据请求服务 */
if (tpcall(service, (char *)fbfr, 0, (char **)&fbfr, &len,0) == -1) {
if(tperrno== TPESVCFAIL && fbfr != NULL &&
(server_status=Ffind(fbfr,STATLIN,0,0)) != 0) {
(void)fprintf(stderr, "%s returns failure (%s)\n", service,server_status);
}else {
(void)fprintf(stderr,"ERROR: %s failed (%s)\n", service,
tpstrerror(tperrno));
}
/* 终止事务*/
(void) tpabort(0);
return(-1);
}
/* 提交事务 */
if(tpcommit(0) < 0) {
(void)fprintf(stderr, "ERROR: tpcommit failed (%s)\n",tpstrerror(tperrno));
return(-1);
}
return(0);
}
2.bankapp中怎样使用ud(1)
bankapp使用到了Tuxedo系统的ud(1)程序,它允许数据从标准输入读取,并送到服务。populate和driver例程都用到了ud。
在populate中,一个叫gendata的程序把服务请求以及要输入数据库的客户帐号信息一起传给了ud。
在driver中也存在类似的数据流,但程序是gentran,它的作用是把事务传递给应用程序以模拟一个活动系统。
3.一个请求/响应客户:audio.c
audit中一个请求/响应客户程序,用于支行或全行范围内的余额查询,它用到ABAL、TBAL、ABAL_BID、TBAL_BID服务,你可以通过如下两种方法来激活它:
audit [-a|-t],-a打印全行所有账号总额,[-t]打印全行范围内所有出纳员的现金供应。
audit [-a|-t] branch_ID,打印某支行Branch_ID的上述信息。
audit源代码包括两个主要部分:main()和sum_bal()子程序。两部分都用到了ATMI函数,它用到了一个在aud.h头文件中定义的VIEW类型的缓冲区,如下它的伪码:
main(){
Parse command-line options with getopt();
Join application with tpinit();
Begin global transaction with tpbegin();
If (branch_ID specified) {
Allocate buffer for service requests with tpalloc();
Place branch_ID into the aud structure;
Do tpcall() to "ABAL_BID" or "TBAL_BID";
Print balance for branch_ID;
Free buffer with tpfree();
}else
call subroutine sum_bal();
Commit global transaction with tpcommit();
Leave application with tpterm();
}
sum_bal(){
Allocate buffer for service requests with tpalloc();
For (each of several representative branch_ID’s,one for each site)
Do tpacall() to "ABAL" or "TBAL";
For (each representative branch_ID) {
Do tpgetrply() wtith TPGETANY flag set
to retrieve replies;
Add balance to total;
Print total balance;
}
Free buffer with tpfree();
}
audit.c首先检查命令行参数,看是否指定的支行代号。若指定,则将它放入aud结构,并调用ABAL_BID或TBAL_BID服务来处理请求;否则就调用sum_bal()子过程来处理。它们的程序流程图如下:
4.一个会话客户:auditcon.c
auditcon是audit的会话版,它使用了ATMI与会话相关的函数,如使用tpconnect()建立服务与客户之间的连接,用tpsend()发送一条消息,用tprecv()接收消息。如下是它的伪码:
main(){
Join the application
Begin a transaction
Open a connection to conversational service AUDITC
Do until (user says to quit) {
Query user for input
Send service request
Receive response
Print response on user’s terminal
Prompt for further input
}
Commit transaction
Leave the application
}
5.一个监视事件的客户bankmgr.c
bankmgr是一个始终运行的应用程序,它订阅应用程序定义的事件,如一次存取超过10000美元的事件。
§3.3 检查bankapp的服务器和服务
服务器是一些可执行的进程,它们提供一个或多个服务。在Tuxedo系统中,服务器始终接受来自客户端的服务请求,并将它们分配给某些服务,让它们来处理请求。所有bankapp的服务都是用C语言写的,包含有嵌入式SQL语句的C程序扩展名不是C而是EC。TRANSFER由XFER服务器来提供,它是唯一一个不包含嵌入式SQL的服务。所有bankapp服务使用ATMI的函数来管理类型缓冲区、和其它服务进行同步或异不通信、定义全局事务、一般地访问资源服务器、把响应发送回客户端。
1.bankapp的请求/响应服务器
bankapp的5个服务器中,有4个用到了嵌入式SQL访问资源管理器,这些服务器的扩展名为EC。XFER是一个转账的服务器,本身不调用资源管理器,而调用了其它服务器中的WITHDRAWAL和DEPOSIT两个服务。5个服务器的描述如下:
服务器 |
提供的功能 |
BTADD.EC |
允许任何一个站的支行和出纳员的记录添加到数据库中 |
ACCT.EC |
提供一些账号相关的有代表性的服务,如OPEN_ACCT, CLOSE_ACCT |
TLR.EC |
为出纳员提供服务,如WITHDRAWAL, DEPOSIT, INQUIRY,每一个TLR进程标识着它本身是TELLER文件中的一个真实的出纳员 |
XFER.C |
在账号之间进行转账业务 |
BAL.EC |
计算所有支行或某个支行的余额 |
2.bankapp的会话服务器
AUDITC是一个会话服务器的例子,它提供了一个服务,名字也叫AUDITC。客户机auditcon建立一个与服务AUDITC的会话连接,然后发出请求。AUDITC分析请求,并调用适当的服务(ABAL,TBAL,ABAL_BID,TBAL_BID),当AUDITC从这些服务获得响应后,再将它们送回auditcon。会话服务器可以以客户机的身份请求其它服务,也可以连接到其它会话服务器。
3.bankapp的服务
bankapp提供了12个请求/响应服务。服务名和C语言函数名相同:
服务名 |
提供服务器 |
输入 |
执行功能 |
BR_ADD |
BTADD |
FML缓冲区 |
添加一个新支行记录 |
TLR_ADD |
BTADD |
FML缓冲区 |
添加一条新出纳员记录 |
OPEN_ACCT |
ACCT |
FML缓冲区 |
向ACCOUNT文件中插入一条记录并调用DEPOSIT存入开户金额;在支行代号BRANCH_ID的基础上选择一个ACCOUNT_ID |
CLOSE_ACCT |
ACCT |
FML缓冲区 |
删除一个ACCOUNT记录;验证ACCOUNT_ID; 调用WITHDRAWAL取走所有余额 |
WITHDRAWAL |
TLR |
FML缓冲区 |
从一个指定的支行、出纳员、账号取款; 验证ACCOUNT_ID和SAMOUNT字段 |
DEPOSIT |
TLR |
FML缓冲区 |
向某个支行、出纳员、账号存款; 验证ACCOUNT_ID和SAMOUNT字段 |
INQUIRY |
TLR |
FML缓冲区 |
查询账号余额;验证ACCOUNT_ID |
TRANSFER |
XFER |
FML缓冲区 |
执行一个tpcall()调用,先后请求WITHDRAWAL和DEPOSIT服务 |
ABAL |
BAL |
aud.v的VIEW缓冲区 |
计算某一个站点所有账号的余额 |
TBAL |
BAL |
aud.v的VIEW缓冲区 |
计算某个站点所有支行出纳员的余额 |
ABAL_BID |
BAL |
aud.v的VIEW缓冲区 |
计算BRANCH_ID的账号余额 |
TBAL_BID |
BAL |
aud.v的VIEW缓冲区 |
计算BRANCH_ID的出纳员余额 |
bankapp服务的算法
⑴.BR_ADD
void BR_ADD (TPSVCINFO *transb){
-set pointer to TPSVCINFO data buffer;
-get all values for service request from field buffer;
-insert record into BRANCH;
-tpreturn() with success;
}
⑵.TLR_ADD
void TLR_ADD (TPSVCINFO *transb){
-set pointer to TPSVCINFO data buffer;
-get all values for service request from fielded buffer;
-get TELLER_ID by reading branch’s LAST_ACCT;
-insert teller record;
-update BRANCH with new LAST_TELLER;
-tpreturn() with success;
}
⑶.OPEN_ACCT
void OPEN_ACCT(TPSVCINFO *transb){
-Extract all values for service request from fielded buffer using Fget() and Fvall();
-Check that initial deposit is positive amount and tpreturn() with failure if not;
-Check that branch ID is a legal value and tpreturn() with failure if it is not;
-Set transaction consistency level to read/write;
-Retrieve BRANCH record to choose new account based on branch’s LAST_ACCT
field;
-Insert new account record into ACCOUNT file;
-Update BRANCH record with new value for LAST_ACCT;
-Create deposit request buffer with tpalloc(); initialize it for FML withFinit();
-Fill deposit buffer with values for DEPOSIT service request;
-Increase priority of coming DEPOSIT request since call is from a service;
-Do tpcall() to DEPOSIT service to add amount of initial balance;
-Prepare return buffer with necessary information;
-Free deposit request buffer with tpfree();
tpreturn() with success;
}
⑷.CLOSE_ACCT
void CLOSE_ACCT(TPSVCINFO *transb){
-Extract account ID from fielded buffer using Fvall();
-Check that account ID is a legal value and tpreturn() with failure if it is not;
-Set transaction consistency level to read/write;
-Retrieve ACCOUNT record to determine amount of final withdrawal;
-Create withdrawal request buffer with tpalloc(); initialize it for FML with Finit();
-Fill withdrawal buffer with values for WITHDRAWAL service request;
-Increase priority of coming WITHDRAWAL request since call is from a service;
-Do tpcall() to WITHDRAWAL service to withdraw balance of account;
-Delete ACCOUNT record;
-Prepare return buffer with necessary information;
-Free withdrawal request buffer with tpfree();
tpreturn with success;
}
⑸.WITHDRAWAL
void WITHDRAWAL(TPSVCINFO *transb){
-Extract account id and amount from fielded buffer using Fvall() and Fget();
-Check that account id is a legal value and tpreturn() with failure if not;
-Check that withdraw amount (amt) is positive and tpreturn() with failure if not;
-Set transaction consistency level to read/write;
-Retrieve ACCOUNT record to get account balance;
-Check that amount of withdrawal does not exceed ACCOUNT balance;
-Retrieve TELLER record to get teller’s balance and branch id;
-Check that amount of withdrawal does not exceed TELLER balance;
-Retrieve BRANCH record to get branch balance;
-Check that amount of withdrawal does not exceed BRANCH balance;
-Subtract amt to obtain new account balance;
-Update ACCOUNT record with new account balance;
-Subtract amt to obtain new teller balance;
-Update TELLER record with new teller balance;
-Subtract amt to obtain new branch balance;
-Update BRANCH record with new branch balance;
-Insert new HISTORY record with transaction information;
-Prepare return buffer with necessary information;
tpreturn with success;
}
⑹.DEPOSIT
void DEPOSIT(TPSVCINFO *transb){
-Extract account id and amount from fielded buffer using Fvall() and Fget();
-Check that account ID is a legal value and tpreturn() with failure if not;
-Check that deposit amount (amt) is positive and tpreturn() with failure if not;
-Set transaction consistency level to read/write;
-Retrieve ACCOUNT record to get account balance;
-Retrieve TELLER record to get teller’s balance and branch ID;
-Retrieve BRANCH record to get branch balance;
-Add amt to obtain new account balance;
-Update ACCOUNT record with new account balance;
-Add amt to obtain new teller balance;
-Update TELLER record with new teller balance;
-Add amt to obtain new branch balance;
-Update BRANCH record with new branch balance;
-Insert new HISTORY record with transaction information;
-Prepare return buffer with necessary information;
tpreturn() with success;
}
⑺.INQUIRY
void INQUIRY(TPSVCINFO *transb){
-Extract account ID from fielded buffer using Fvall();
-Check that account ID is a legal value and tpreturn() with failure if not;
-Set transaction consistency level to read only;
-Retrieve ACCOUNT record to get account balance;
-Prepare return buffer with necessary information;
tpreturn() with success;
}
⑻.TRANSFER
void TRANSFER(TPSVCINFO *transb){
-Extract account ID’s and amount from fielded buffer using Fvall() and Fget();
-Check that both account IDs are legal values and tpreturn() with failure if not;
-Check that transfer amount is positive and tpreturn() with failure if it is not;
-Create withdrawal request buffer with tpalloc(); initialize it for FML with Finit();
-Fill withdrawal request buffer with values for WITHDRAWAL service request;
-Increase priority of coming WITHDRAWAL request since call is from a service;
-Do tpcall() to WITHDRAWAL service;
-Get information from returned request buffer;
-Reinitialize withdrawal request buffer for use as deposit request buffer with Finit();
-Fill deposit request buffer with values for DEPOSIT service request;
-Increase priority of coming DEPOSIT request;
-Do tpcall() to DEPOSIT service;
-Prepare return buffer with necessary information;
-Free withdrawal/deposit request buffer with tpfree();
tpreturn() with success;
}
⑼.ABAL
void ABAL(TPSVCINFO *transb){
-Set transaction consistency level to read only;
-Retrieve sum of all ACCOUNT file BALANCE values for the
database of this server group (A single ESQL
statement is sufficient);
-Place sum into return buffer data structure;
tpreturn( ) with success;
}
⑽.TBAL
void TBAL(TPSVCINFO *transb){
-Set transaction consistency level to read only;
-Retrieve sum of all TELLER file BALANCE values for the
database of this server group (A single ESQL statement is sufficient);
-Place sum into return buffer data structure;
tpreturn( ) with success;
}
⑾.ABAL_BID
void ABAL_BID(TPSVCINFO *transb){
-Set transaction consistency level to read only;
-Set branch_ID based on transb buffer;
-Retrieve sum of all ACCOUNT file BALANCE values for records
having BRANCH_ID = branch_ID (A single ESQL statement is sufficient);
-Place sum into return buffer data structure;
tpreturn( ) with success;
}
⑿.ABAL_BID
void TBAL_BID(TPSVCINFO *transb){
-Set transaction consistency level to read only;
-Set branch_ID based on transb buffer;
-Retrieve sum of all TELLER file BALANCE values for records
having BRANCH_ID = branch_ID (A single ESQL statement is sufficient);
-Place sum into return buffer data structure;
tpreturn( ) with success;
}
4.集成到服务器中的应用
bankapp中用到了两个C语言的源程:
appint.c:包含应用程序定义版的tpsvrinit()和tpsvrdown()过程,它们被包含到Tuxedo系统的main()中。缺省版的tpsvrinit()调用了两个函数:tpopen()和userlog(),tpopen()用于打开资源管理器,userlog()用于记录各类消息。帛省版的tpsvrdown()同样调用了两个函数:tpclose()和userlog(),分别用于关闭资源管理器和记录关闭过程中的各类事件。你可以修改这两个过程,以完成各类初始化或应用程序结束时的收尾工作。
util.c:包含了一个叫getstr()的过程,bankapp中用它来SQL的错误消息。
5.服务编码的可选方法
在bankapp中,一个服务器提供的所有服务的代码都集成到一个文件中,文件名和服务器名字相同,它们还不是真正的服务器,因为它们不包含main()方法,在buildserver时由系统提供一个。另一种组织Tuxedo系统应用程序的方法是把每个服务代码保存在一个单独的文件中。例如,对于TLR服务器,TLR.EC文件包含三个服务,请可以将它们分成三个文件:INQUIRY.EC、WITHDRAW.EC、DEPOSIT.EC。按如下步骤完成:
⑴.将每个EC文件编译成OBJ文件
⑵.运行buildserver,将它们放到-f开关后面:
buildserver –r TUXEDO/SQL
-s DEOISUT –s WITHDRAW –s INQUIRY
-o TLR
-f DEPOSIT.C –f WITHDRAW.C –f INQUIRY.C
-f util.obj –f lm
这样一来,你就没有必要将所有的服务都写到一个源文件中了,从而增加了灵活性。
6.准备bankapp的文件和资源
⑴.设置环境变量
将samples\atmi\bankapp\nt下的bankvar文件改名为bankvar.bat,复制到父目录,然后对其进行编辑:
@echo off
rem %Tuxedo%为Tuxedo安装目录,APPDIR是bankapp所在的目录
set APPDIR=%TUXDIR%\samples\atmi\bankapp
rem消息所在目录
set NLSPATH=%TUXDIR%\locale\C
rem逻辑块大小,数据库管理员必须设置
set BLKSIZE=512
rem 被缺省使用的数据库名字
set DBNAME=bankdb
rem 指示数据库为共享模式还是私有模式
set DBPRIVATE=no
rem 指示数据库使用的IPC值,必须与ubbconfig中的IPCKEY不同
set DIPCKEY=80953
rem 由tmloadcf使用的环境文件
set ENVFILE=%APPDIR%\ENVFILE
rem 由mc, viewc, tmloadcf使用的字段表文件
set FIELDTBLS=Usysflds,bankflds,creditflds
rem 查找字段表文件的目录
set FLDTBLDIR=%TUXDIR%\udataobj;%APPDIR%
rem 数据库使用的通用设备列表
set FSCONFIG=%APPDIR%\bankdl1
rem MENU中使用的网络地址
set NADDR=
rem 网络设备名
set NDEVICE=
rem MENU脚本中使用的网络监听器地址
set NLSADDR=
rem 事务日志设备,必须和ubbconfig中MACHINES节
rem LMID站点的TLOGDEVICE参数相同
set TLOGDEVICE=%APPDIR%\TLOG
rem 为/T提供全部信息的二进制配置文件
set TUXCONFIG=%APPDIR%\tuxconfig
rem 用户日志文件,必须和ubbconfig中的MACHINES节
rem LMID站点的ULOGPFX参数相同
set ULOGPFX=%APPDIR%\ULOG
rem 由RUNME.sh使用的系统名
set UNAME=
rem 由viewc, tmloadcf使用的view文件列表
set VIEWFILES=aud.vv
set VIEWFILES32=mib_views,tmib_views
rem 查找view文件的目录
set VIEWDIR=%TUXDIR%\udataobj;%APPDIR%
set VIEWDIR32=%TUXDIR%\udataobj;%APPDIR%
rem 指定Q设备
set QMCONFIG=%APPDIR%\qdevice
set PATH=%TUXDIR%\bin;%PATH%
rem 指出Visual C++安装的目录
set MSDEV=G:\Program Files\Microsoft Visual Studio\VC98
set PATH=%PATH%;%MSDEV%\bin
set INCLUDE=%INCLUDE%;%MSDEV%\include;%MSDEV%\mfc\include
set LIB=%LIB%;%MSDEV%\lib;%MSDEV%\mfc\lib
⑵.Build bankapp的应用程序
bankapp的5个服务器:ACCT、BAL、BTADD、TLR、XFER。用一个命令就可以完成编译任务:
G:\Tuxedo\samples\atmi\bankapp\nmake bankapp.nt
若要手工完成编译,首先要将EC文件编译成C文件:
G:\Tuxedo\samples\atmi\bankapp\ESQLC ACCT.EC
生成FML缓冲区头文件:
G:\Tuxedo\samples\atmi\bankapp\mkfldhdr bankflds eventflds
生成目标文件:
G:\Tuxedo\samples\atmi\bankapp\CL /c ACCT.c appinit.c util.c
生成ACCT.exe文件:
buildserver -r TUXEDO/SQL -s OPEN_ACCT -s CLOSE_ACCT
-o ACCT.exe
-f ACCT.obj -f appinit.obj -f util.obj
-r指示哪一个资源管理器的访问库将被编译到acct.exe文件中,本例为TUXEDO/SQL
⑶.编辑bankapp的make文件
在NT平台下,bankapp提供的make文件为bankapp.nt,使用前需要检查一下环境变量TUXDIR、APPDIR的设置。另外一个要注意的地方就是资源管理器参数RM,缺省使用TUXEDO/SQL,因为Tuxedo为bankapp提供数据库服务。如果使用了其它数据库产品,需要把RM参数设置成%TUXDIR%\udataobj\RM文件列表中的某一个值。
⑷.创建bankapp的数据库
bankapp使用了TUXEDO/SQL作为资源管理器,它是一个XA-compliant的资源管理器,XA是事务管理器和资源管理器之间的接口。在单处理机SHM模式和多处理机MP模式下创建数据库的方式是不同的,在SHM模式下,创建步骤如下:
设置环境变量: G:\Tuxedo\samples\atmi\bankapp\bankvar
执行批处理文件:G:\Tuxedo\samples\atmi\bankapp\crbank
crbank.cmd调用crbankdb三次,每次调用前改变一些环境变量,执行完成后,同一台机器上有三个数据文件,这样,就可以在单机上模拟网络环境。在MP模式下创建数据库的步骤如下:
设置环境变量:G:\Tuxedo\samples\atmi\bankapp\bankvar
在一台机器上创建数据库:G:\Tuxedo\samples\atmi\bankapp\crbankdb
在其它机器上,修改bankvar.cmd文件中的数据库通用设备列表FSCONFIG,修改ubbmp配置文件中的相应部分,再进行创建操作。
⑸.准备一个XA-compliant资源管理器
若不使用TUXEDO/SQL作为资源管理器,而使用其它的XA-compliant资源管理器,需要作很多修改:修改bankvar.cmd、修改bankapp服务、修改bankapp.nt文件、修改crbank和crbankdb文件、修改配置文件。
修改bankvar.cmd文件。下面是TUXEDO/SQL资源管理器的配置,已经不能用了,你需要根据实际的数据库系统对这些值进行修改:
BLKSIZE=512
DBNAME=bankdb
DBPRIVATE=no
DIPCKEY=80953
FSCONFIG=${APPDIR}/bankdl1
修改bankapp的服务。bankapp中所有数据库访问都是通过ESQL来完成的,如果你的新资源管理器支持SQL,这就没什么问题。appinit.c中包含了打开和关闭数据库的tpopen()和tpclose()。
修改bankapp.nt。将RM参数修改为新的资源管理器,确保RM文件中有如下入口:
$TUXDIR/udataobj/RM
如果必要,改变SQL编译器和它的选项,源文件的扩展名不一定是EC,你需要指预编译的命令及参数,以ORACLE为例,使用PROC将PC文件预编译成C文件。
修改crbank和crbankdb。注意crbankdb创建的SQL语句在新资源管理器中是否能接受。修改配置文件。在GROUPS节中,为TMSNAME和OPENM指定一个适当的值参数值,这个值要让资源管理器能够识别。
⑹.如何将bankapp和Oralce8进行集成
Oracle8是XA兼容的资源管理器,要实现和bankapp的集成,按如下步骤进行:
①.编辑bankvar.cmd文件,修改如下环境变量的值:
ORACLE_HOME:Oracle8的安装目录
ORACLE_SID:Oracle的系统ID
BLK_SIZE:逻辑块的尺寸
DBNAME:缺省数据库
DBPRIVATE:指示数据库是以共享模式还是私有模式打开(yes/no)
FSCONFIG:数据库使用的通用设置列表
PATH=%PATH%;%ORACLE_HOME%\bin
INCLUDE=%ORACLE_HOME%\rdbms80\xa;
%ORACLE_HOME%\pro80\c\include
PLATFORM=inwnt40
LIB=%TUXDIR%\lib %ORACLE_HOME%\pro80\lib\msvc;
%ORACLE_HOME%\rdbms80\xa;
②.运行bankvar.cmd
③.编辑%TUXDIR%\udataobj\RM文件,追加如下行:
Oracle_XA;xaosw;%ORACLE_HOME%\pro80\lib\msvc\sqllib80.lib
%ORACLE_HOME%\RDBMS80\XA\xa80.lib
如果Oracle服务器在网络的另一端,把那台机器映射到驱动器,如F;
把如下行追加到%TUXDIR%\udataobj\RM文件中:
Oracle_XA;xaosw;f:\orant\pro80\lib\msvc\sqllib80.lib
f:\orant\RDBMS80\XA\xa80.lib
删除RM文件中以前的Oracle_XA入口
④.为Oracle8创建事务管理服务器
cd %APPDIR%
buildtms -r Oracle_XA -o TMS_ORA
⑤.编辑nt\bankapp.mak文件
RM=Oracle_XA
ORACLE_LIB=$(ORACLE_HOME)\PRO80\LIB
RMNAME=Oracle_XA
SQLPUBLIC=$(ORACLE_HOME)\PRO80\C\INCLUDE
ORACLE_DIR=$(ORACLE_HOME)\bin
在.ec.c节中,编辑从EC到C的创建规则,不再使用ESQLC了,而使用PROC:
set TUXDIR=$(TUXDIR) & $(ORACLE_DIR)\proc80
mode=ansi release_cursor=yes
include=$(SQLPUBLIC) include=$(INCDIR)
$(SQL_PLATFORM_INC) -c iname=$*.ec
在.c.obj节中,编辑规则,作出下设置:
$(CC) -c $(CFLAGS) $(SQLPUBLIC) $(INCLUDE) $*.c
⑥.使用Oracle的SQL命令更新EC文件
⑦.将nt\bankapp.mak复制到%APPDIR%下,然后Make一下:
copy nt\bankapp.mak %APPDIR%
nmake –f bankapp.mak
⑧.编辑nt\ubbshm文件:
USER_ID=0
GROUP_ID=0
UNAME_SITE1=执行hostname返回值,用大写形式
TUXDIR=与bankvar.cmd中的相同
APPDIR=与bankvar.cmd中的相同
⑨.在配置文件的GROUPS节中,输入如下改变:
TMSNAME=TMS_ORA
BANKB1 GRPNO=1
OPENINFO="Oracle_XA:Oracle_XA+Acc=P/user1/PaSsWd1+SesTm=0+LogDir=."
[
Oracle_XA + required fields:
Acc=P/oracle_user_id/oracle_password
SesTm=Session_time_limit (maximum time a transaction can be inactive)
optional fields:
LogDir=logdir (where XA library trace file is located)
MaxCur=maximum_#_of_open cursors
SqlNet=connect_string (if Oracle exists over the network)
(eg. SqlNet=hqfin@NEWDB indicates the database with sid=NEWDB accessed at host hqfin by TCP/IP)
]
BANKB2 GRPNO=2
OPENINFO="Oracle_XA:Oracle_XA+Acc=P/user2/PaSsWd2+SesTm=0+LogDir=."
BANKB3 GRPNO=3
OPENINFO="Oracle_XA:Oracle_XA+Acc=P/user3/PaSsWd3+SesTm=0+LogDir=."
⑩.执行其它操作:
创建二进制配置文件:tmloadcf –y nt/ubbshm
在Master机上创建TLOG设备和设备列表:crtlog –m
启动数据库服务器,启动Tuxedo系统:tmboot –y,确保数据库中存在V%XATRANS%视图,如果不存在,以系统用户登录Oracle,然后执行%ORACLE_HOME%\RDBMS80\ADMIN\XAVIEW.SQL,授予使用XA库的Oracle用户Select权限。
在Oracle8中创建bankapp使用的数据库对象。Oracle8安装以后,会创建一个示例数据库,bankapp可以使用这个数据库。编辑crbank-ora8.sql文件,内容如下:
WHENEVER OSERROR EXIT ;
/* 获取system用户的口令 */
PROMPT
PROMPT
PROMPT -- Some of the operations require "system" user privileges
PROMPT -- Please specify the Oracle "system" user password
PROMPT
ACCEPT syspw CHAR PROMPT ’system passwd:’ HIDE ;
CONNECT system/&syspw ;
SHOW user ;
PROMPT
/* 在缺省数据库中为bankapp创建一个新的表空间 */
DROP TABLESPACE bank1
INCLUDING CONTENTS
CASCADE CONSTRAINTS;
PROMPT
PROMPT
PROMPT -- Will create a 3MB tablespace for bankapp ;
PROMPT -------- Please specify full pathname below for Datafile ;
PROMPT -------- Ex: %ORACLE_HOME%/dbs/bankapp.dbf
PROMPT
ACCEPT datafile CHAR PROMPT ’Datafile:’ ;
CREATE TABLESPACE bank1
DATAFILE ’&datafile’ SIZE 3M REUSE
DEFAULT STORAGE (INITIAL 10K NEXT 50K
MINEXTENTS 1 MAXEXTENTS 120
PCTINCREASE 5)
ONLINE;
/* 创建一个名叫user1的用户 */
DROP USER user1 CASCADE;
PROMPT Creating user "user1"
CREATE USER user1 IDENTIFIED by PaSsWd1
DEFAULT TABLESPACE bank1
QUOTA UNLIMITED ON bank1 ;
GRANT CREATE SESSION TO user1 ;
GRANT CREATE TABLE TO user1 ;
CONNECT user1/PaSsWd1 ;
SHOW user ;
PROMPT Creating database objects for user "user1" ;
PROMPT Creating table "branch" ;
CREATE TABLE branch (
branch_id NUMBER NOT NULL PRIMARY KEY,
balance NUMBER,
last_acct NUMBER,
last_teller NUMBER,
phoneCHAR(14),
address CHAR(60)
)
STORAGE (INITIAL 5K NEXT 2K
MINEXTENTS 1 MAXEXTENTS 5 PCTINCREASE 5) ;
PROMPT Creating table "account" ;
CREATE TABLE account (
account_id NUMBER NOT NULL PRIMARY KEY,
branch_id NUMBER NOT NULL,
ssn CHAR(12) NOT NULL,
balance NUMBER,
acct_type CHAR,
last_name CHAR(20),
first_name CHAR(20),
mid_init CHAR,
phoneCHAR(14),
address CHAR(60)
)
STORAGE (INITIAL 50K NEXT 25K
MINEXTENTS 1 MAXEXTENTS 50 PCTINCREASE 5) ;
PROMPT Creating table "teller" ;
CREATE TABLE teller (
teller_id NUMBER NOT NULL PRIMARY KEY,
branch_id NUMBER NOT NULL,
balance NUMBER,
last_name CHAR(20),
first_name CHAR(20),
mid_init CHAR
)
STORAGE (INITIAL 5K NEXT 2K
MINEXTENTS 1 MAXEXTENTS 5 PCTINCREASE 5) ;
PROMPT Creating table "history" ;
CREATE TABLE history (
account_id NUMBER NOT NULL,
teller_id NUMBER NOT NULL,
branch_id NUMBER NOT NULL,
amount NUMBER
)
STORAGE (INITIAL 400K NEXT 200K
MINEXTENTS 1 MAXEXTENTS 5 PCTINCREASE 5) ;
在SQL PLUS中执行上面这段SQL语句:
SQL*plus> start $APPDIR/ crbank-ora8.sql
填充数据库:
nt\populate
在Oracle数据库中生成事务
driver
运行bankapp的客户程序:
run
关闭Tuxedo应用程序:
tmshutdown -y
⑹.如何编辑配置文件
配置文件定义了应用程序如何运行。bankapp有两个配置文件:ubbshm和ubbmp。ubbshm定义了在单机环境下如何运行bankapp,ubbmp定义了在网络环境下如何运行bankapp。
①.打开并编辑ubbmp,将<…>替换成际值。对于ubbmp,NETWORK节必须替换
*RESOURCES
IPCKEY 80952
UID <user id from id(1)>
GID <group id from id(1)>
PERM 0660
MAXACCESSERS 40
MAXSERVERS 35
MAXSERVICES 75
MAXCONV 10
MAXGTT 20
MASTER SITE1,SITE2
SCANUNIT 10
SANITYSCAN 12
BBLQUERY 180
BLOCKTIME 30
DBBLWAIT 6
OPTIONS LAN,MIGRATE
MODEL MP
LDBAL Y
##SECURITY ACL
#
*MACHINES
<SITE1’s uname> LMID=SITE1
TUXDIR="<TUXDIR>"
APPDIR="<APPDIR>"
ENVFILE="<APPDIR>/ENVFILE"
TLOGDEVICE="<APPDIR>/TLOG"
TLOGNAME=TLOG
TUXCONFIG="<APPDIR>/tuxconfig"
TYPE="<machine type>"
ULOGPFX="<APPDIR>/ULOG"
<SITE2’s uname> LMID=SITE2
TUXDIR="<TUXDIR>"
APPDIR="<APPDIR>"
ENVFILE="<APPDIR>/ENVFILE"
TLOGDEVICE="<APPDIR>/TLOG"
TLOGNAME=TLOG
TUXCONFIG="<APPDIR>/tuxconfig"
TYPE="<machine type>"
ULOGPFX="<APPDIR>/ULOG"
#
*GROUPS
#
# Group for Authentication Servers
#
Group for Application Queue (/Q) Servers
#
##QGRP1 LMID=SITE1 GRP=102
## TMSNAME=TMS_QM TMSCOUNT=2
## OPENINFO=”TUXEDO/QM:<APPDIR>/qdevice:QSP_BANKAPP”
#
# Group for Event Broker Servers
#
##EVBGRP1 LMID=SITE1 GRPNO=104
DEFAULT: TMSNAME=TMS_SQL TMSCOUNT=2
BANKB1 LMID=SITE1 GRPNO=1
OPENINFO="TUXEDO/SQL:<APPDIR>/bankdl1:bankdb:readwrite"
BANKB2 LMID=SITE2 GRPNO=2
OPENINFO="TUXEDO/SQL:<APPDIR>/bankdl2:bankdb:readwrite"
*NETWORK
SITE1 NADDR="<network address of SITE1>"
NLSADDR="<network listener address of SITE1>"
SITE2 NADDR="<network address of SITE2>"
NLSADDR="<network listener address of SITE2>"
②.UID:公告栏中IPC结构所有者有效的用户ID,在ubbmp中,所有机器上的UID必须相同,为了避免引起混乱,输入Tuxedo系统的所有者ID。GID与UID类似。SITE1’s name:机器名,在UNIX下为uname –n的结果。machine type:一个字符串,在网络环境下,用于标识一类计算机,两台计算机通信时,Tuxedo系统检查它们的机器类型,如果不同,在它们之间传递的数据就需要进行编码和解码操作,以便两台机器都能够识别它们。SITE2 name:第二台机器的机器名。OPENINFO:一个只有Tuxedo资源管理器才能识别的格式化字符串,若使用其它的资源管理器如Oracle,必须对它进行修改,以满足要求。Network address of SITE1:SITE1上BRIDGE进程网络监听器完整地址, BRIDGE是一个维护着和其它参与计算的节点之间虚电路的系统进程,以便这些节点之间可以进行消息传递。Network listener address of SITE1:SITE1上tlisten进程监听器地址。Network address of SITE2和Network listener address of SITE2同上。
③.要使应用程序具有口令特征,在ubbshm或ubbmp中的RESOURCE节中加入:
SECURITY APP_PW
⑺.创建二进制配置文件和事务日志文件
如果你在SHM模式下运行,你就没有必要在其它机器上创建tlisten进程和事务日志。
在%APPDIR%下运行bankar.cmd设置环境变量;
①.加载配置文件
tmloadcf –y ubbmp;TUXCONFIG只需要在Master机上安装,当用tmboot启动应用程序时,它就会自动地传给其它机器。如果指定了SECURITY,tmloadcf就会提示你输入应用程序的口令,可以长达30个字符。当客户进程试图加入应用程序时,就要求提供应用程序口令、用户名、用户口令。
②.创建事务日志文件TLOG
TLOG是Tuxedo系统管理全局事务使用的事务日志文件,在应用程序启动之前,在运行应用程序的每一台机器上必须创建一个TLOG入口,TLOG文件本身在Master机上创建。bankapp提供了一个叫crtlog的脚本,它创建了一个设备列表和一个TLOG文件,设备列表使用bankvar.cmd中的TLOGDEVICE变量来创建。要创建TLOG文件和设备列表,在Master机上运行:
crtlog –m
在生产环境中,设备列表名和数据库中用到的设备列表名必须相同。
在所有其它机器上,不要指定-m开关,当系统启动时,每一台非Master机上的BBL会创建日志。如果你使用了一个non-XA的资源管理器,就没有必要创建事务日志。
⑻.在每台机器上创建远程服务连接
tlisten是一个监听进程,它为tmboot之类的进程提供了远程服务连接。它必须在网络中的每一台机器上安装,并与配置文件中NETWORK段的描述一致。推荐用如下命令启动另一个tlisten进程:
tlisten –l nlsaddr
nlsaddr值必须和配置文件中NLSADDR参数值一致,tlisten使用的logfile和Tuxedo系统其它log文件分开了。一个日志文件可以被多个tlisten进程使用,缺省文件名是:%TUXDIR%\udataobj\tlog。
7.运行bankapp
⑴.如何准备启动应用程序
启动bankapp之前,检查你的机器是否还有足够的IPC资源,方法是:
tmloadcf –c ubbshm
⑵.如何启动bankapp
bankvar
tmboot –y
你可以只boot配置文件中的一部分服务,如指定-A选项可以只启动管理进程。
⑶.如何填充数据库
使用populate脚本创建填充数据库,gendata创建了10个支行,30个出纳员,200个账号,pop.out保存了创建过程。
⑷.如何测试bankapp的服务
audit {-t|-a} [branch_id]
auditcon
使用driver程序(UNIX平台下使用,NT平台下使用gt.cmd),缺省情况下,它生成300个事务,你可以通过-n指定事务数:
driver –n1000
⑸.如何关闭bankapp
tmshutdown –y
buildtms [-v] -o name -r rmname
buildclient [-v][{-r rmname|-w}][-f firstfiles][-l lastfiles][-o name]
buildserver [-v][-r rmname][-f firstfiles][-l lastfiles][-o name][-s service]
-v: 显示编译过程
-r: 所需连接的资源管理器
-w: 生成WS程序
-f: 在连接TUXEDO内部库之前所需连接的文件
-l: 在连接TUXEDO内部库之后所需连接的文件
-o: 生成可执行程序
-s: 服务名与函数名映射
同一台主机上,Tuxedo提供了服务嵌套调用和递归调用的服务调用模式。
如果仅仅是服务A需要调用服务B,则可以直接在服务A中使用tpcall(B)。
在这种情况下,服务A模拟类似客户端,唯一的不同是这个时候不需要tpinit。
FML和FML32的区别,从字面间就可以看出,函数的功能是一样的,FML32支持的
数据长度为32位的