【正文】 一定不能是已經(jīng)被占用的端口,否則通信將失敗,之前應(yīng)該用netstat命令查詢得到空閑的端口.保存dm文件并按如下完成編譯:dmloadcf dm_filename修改系統(tǒng)環(huán)境變量在系統(tǒng)環(huán)境變量中增加:export BDMCONFIG=$HOME/your_path/bdmconfig其中bdmconfig文件為dmloadcf dm_filename編譯之后生成的2進(jìn)制配置文件.編寫基于tuxedo的程序以及makefile.說明 fml32類型通常在開發(fā)數(shù)據(jù)庫應(yīng)用程序的時候比較常用,以下的例子完成的功能是:根據(jù)輸入的學(xué)生學(xué)號從數(shù)據(jù)庫中查詢得到該學(xué)生的姓名和年齡,其實(shí)輸入和輸出參數(shù)采用fml32類型.編寫并編譯fml32數(shù)據(jù)緩沖區(qū)定義文件定義fml32數(shù)據(jù)緩沖區(qū)文件student_fld文件如下:*base 10000 name number flags mentsstudent_id long 學(xué)生學(xué)號student_name string 學(xué)生姓名student_age 3 student_fld編譯該文件,在應(yīng)用程序中將引用該文件.編寫源程序以及定義表定義t_student表,其中id表示學(xué)號,name表示學(xué)生姓名,age定義表示姓名.進(jìn)入oracle sqlplus,鍵入:create table t_student (id number(10), name varchar2(20), age number(3))。if defined(__STDC__) || defined(__cplusplus) tpsvrinit(argc, argv) argc。 char **argv。 EXEC SQL BEGIN DECLARE SECTION。 char sConnStr [100]。 EXEC SQL END DECLARE SECTION。 argc = argc。 argv = argv。 memset(sConnStr, 0x00, sizeof(sConnStr))。 strcpy(sConnStr, “數(shù)據(jù)庫連接串”)。 EXEC SQL Connect :sConnStr。 return 1。 extern Cendifvoidif defined(__STDC__) || defined(__cplusplus)endif{ exit(1)。 Fget32(recebuf, student_id, 0, (char *)amp。recebuflen)。From t_student Where student_id = :lStudentId。 if () userlog(查詢失敗,code=%d,detail=%s , , )。 exit(2)。 }lAge, 0)。 Fchg32(sendbuf, student_name, 0, sName, 0)。 tpreturn(TPSUCCESS , 0, (char *)sendbuf, 0, 0)。 $(TARGET) wtc_jolt: proc iname=$$(PROCPLSFLAGS) oname=$*.c parse=full hold_cursor=no release_cursor=yes include=$(TUXINCLUDE) include=$(ORAINCLUDE) .(一)修改tuxedo ubb配置文件.1)在 *server節(jié)點(diǎn)中添加: SRVGRP=GROUP SRVID=1100其中GROUP是tuxedo應(yīng)用所在的組, SRVID是該server的標(biāo)識id,注意不要與其他SRVID重復(fù),wtc_jolt是剛剛編譯生成的可執(zhí)行文件名字,這樣該文件就被發(fā)布為tuxedo server.2)在*service節(jié)點(diǎn)中添加:fml32_test,這樣該函數(shù)就被發(fā)布為屬于server:wtc_jolt中的一個tuxedo service.3)編譯修改之后的ubb文件:tmloadcf ubb_filename 1)在*DM_LOCAL_SERVICES節(jié)點(diǎn)中添加: RNAME=fml32_test dmloadcf dm_filename以上配置和開發(fā)工作完成之后tuxedo方面的工作完成,tmboot ?y啟動tuxedo,如有以下提示信息,tuxedo方面的工作宣告成功. process id=28864 ... Started.exec GWTDOMAIN A : process id=28865 ... Started. 2) exec wtc_jolt A : 以上信息說明發(fā)布的server進(jìn)程啟動成功!此時鍵入命令tmadmin, 鍵入子命令psc, 如有以下提示信,說明發(fā)布service成功.Service Name Routine Name Prog Name ID Done Statusfml32_test fml32_test wtc_jolt GROUP 1100 simple 0 AVAIL進(jìn)行到這里tuxedo方面所有的工作已經(jīng)完成,下面進(jìn)入weblogic方面的工作.3)Weblogic方面需要進(jìn)行的工作.創(chuàng)建tuxedo fml(32) 數(shù)據(jù)緩沖區(qū)定義文件對應(yīng)的java類文件 進(jìn)入weblgoic console,mydomainserviceswtcConfigure a new WTC service…Name屬性鍵入: WTC_Service,create保存設(shè)置,此時WTC_Service將生成local tuxedo access等若干子項(xiàng),在下面將一步一步配置這些項(xiàng)目.配置local tuxedo access 依次填寫Access Point: Local_Wls_Domain Network Address: //weblogicserver_ip:port注意:1) Access Point ID的值應(yīng)該與在tuxedo dm文件中*DM_REMOTE_DOMAINS節(jié)中指定的domainid相同.2) Network Address中指定的通信端口一定是weblogic server上未被占用的端口. mydomainserviceswtc WTC_Service Configure a new remote tuxedo access point… Access Point ID: billing Network Address: //tuxedoserver_ip:port注意:1) Access Point ID的值是遠(yuǎn)程tuxedo domain 的domain_id.2) Local Access Point的值是上面配置的local tuxedo access point的名字.以上信息填寫完成后點(diǎn)擊create保存.導(dǎo)入tuxedo servicesConfigure a new imported service… Local Access Point: Local_Wls_Domain Remote Name: fml32_test Configure a new Resource….FldTbl32 classes: student_fld注意:1)resource定義fml(32),view(32)等數(shù)據(jù)緩沖區(qū)的類文件定義,其中student_fld就是上面編譯得到的類,如果源文件包含在包中那么要標(biāo)明包名稱在內(nèi)的全路徑,如: throws TPException, TPReplyException, RemoteException。 throws TPException, TPReplyException, RemoteException。 3)public TypedFML32 Tpcall(String service_name, TypedFML32 in_params) Tpacall : 異步調(diào)用tuxedo service. 關(guān)鍵函數(shù)代碼import 。import 。import 。import 。import 。函數(shù)setUpConnection { Context try { ctx = new InitialContext()。 } catch (NamingException ne) {throw new TPException(, Could not get TuxedoConnectionFactory : + ne)。 tuxConn = ()。 } catch (TPException e) throw new TPException(, getTuxedoConnection threw exception: + e)。 } TypedFML32 tuxRtn = null。 } catch (TPException e) { (setUpConnection throw exception: + e)。 } try { tuxReply = (service_name, in_params, 0)。 throw tre。 throw te。 (tpcall threw exception: + ee)。 } tuxRtn = (TypedFML32)()。 return tuxRtn。 { catch (TPException e) (setUpConnection throw exception: + e)。 throw e。 } try {tuxRtn=(service_name,in_params, )。 throw tre。 throw te。 throw new TPException(, Exception: +