/* 读取tuxedo环境变量的函数，filename 为环境变量的文件名字，labelname为section名字*/

Function Integer tpinit (Long TPINFO ) LIBRARY "wtuxws32.dll"

/* tpinit 函数，允许client加入tuxedo应用中*/

Function Integer tpterm () LIBRARY "wtuxws32.dll"

/* tptem 函数，client从tuxedo应用中remove掉*/

Function Integer tpcall (String SVCNAME , Long IDATA , Long ILEN, ref Long ODATA ,ref Long OLEN , Long flags ) LIBRARY "wtuxws32.dll"

/* tuxed同步调用函数，tpcall发送同步应答消息，等待服务端的应答*/

Function Long tpalloc (String BUFTYPE , String SUBTYPE , Long BUFSIZE ) LIBRARY "wtuxws32.dll"

/* 空间分配函数，申请tuxedo BUFTYPE类型的buffer*/

Function Long tprealloc (Long buffer , Long BUFSIZE ) LIBRARY "wtuxws32.dll"

/* 重新申请buffer大小的函数，大小为BUBSIZE*/

Subroutine tpfree (Long buffer ) LIBRARY "wtuxws32.dll"

/* 释放buffer*/

Function integer gettperrno() library "wtuxws32.dll"

/* 获得tuxedo错误编码,与tperrno相同*/

Function Integer Fchg32( Long RCVBUF,long FLDID,long OCC, ref String value,ref long LEN ) LIBRARY "wtuxws2.dll"

/*改变RCVBUF中field：FLDID的occurrence等于OCC的value*/

Function integer Fget32( Long RCVBUF,long FLDID,long OCC,ref String value,ref long LEN) library"wtuxws32.dll"

/*从RCVBUF中获得field：FLDID的occurrence等于OCC的value*/

Function String tpstrerror(integer tperrno) library "wtuxws32.dll"

/* 获得tuxedo错误消息的错误信息字符串，与tpstrerror相同 */

LIBRARY "libfml32.dll" alias for "Fchg32"

Function Integer Fchgd32( Long RCVBUF,long FLDID,long OCC, ref double value,ref long LEN ) LIBRARY "wtuxws32.dll" alias for "Fchg32"

/* 应用于double数据类型Fchg32函数*/

Function Integer Fchgl32( Long RCVBUF,long FLDID,long OCC, ref long value,ref long LEN ) LIBRARY " wtuxws32.dll" alias for "Fchg32"

/* 应用于long数据类型Fchg32函数*/

Function integer Fgetd32( Long RCVBUF,long FLDID,long OCC,ref double value,ref long LEN) library" wtuxws32.dll" alias for "Fget32"

/* 应用于double数据类型Fget32函数*/

Function integer Fgetl32( Long RCVBUF,long FLDID,long OCC,ref long value,ref long LEN) library" wtuxws32.dll" alias for "Fget32"

/* 应用于long数据类型Fget32函数*/

string ErrInfo

long sndbuf,rcvbuf

double lf_deposit

double lf_recnum

string strtmp

long len,lBillCount

long ll_NumLong

ErrInfo = space(200)

iret = tuxputenv("WSNADDR=//123.100.1.66:6000") /*设置环境变量*/

messagebox('tuxputenv',string(iRet))

iret = tpinit(0) /*初始化加入tuxedo应用*/

messagebox('tpinit',string(iret))

sndbuf = tpalloc("FML32","",1024) /*申请发送buffer*/

rcvbuf = tpalloc("FML32","",1024) /*申请接收buffer*/

lf_recnum = 942342.12

strtmp = "abcd"

iRet = Fchgd32(sndbuf,100665536,0,lf_recnum,len) /*改变buffer中field的value*/

messagebox('Fchg32',string(lf_recnum))

iRet = Fchgl32(sndbuf,33556580,0,lBillCount,len)

messagebox('Fchg32',string(lBillCount))

iret = tpcall ("FMLTMP" , sndbuf , 0, rcvbuf , LEN , 0 )

messagebox('tpcall',string (iret))

/*同步调用FMLTMP后台tuxedo服务*/

len=0

iret = Fgetd32(rcvbuf,100665536,0,lf_recnum,len) /*取得buffer中field的value*/

messagebox('fgetd32',string(lf_recnum))

len =0

iret = Fgetl32(rcvbuf,33556580,0,lBillCount,len)

messagebox('fgetl32',string(lBillCount))

len=0

lf_Deposit = 0.0

iret = Fgetd32(rcvbuf,100665348,0,lf_Deposit,len)

messagebox('fgetd32(DEPOSIT)',string(lf_Deposit))

ll_NumLong=0

iret = Fgetl32(rcvbuf,33556847,0,ll_NumLong,len)

messagebox('fgetd32(ll_NumLong)',string(ll_NumLong))

tpfree(sndbuf)

tpfree(rcvbuf)

tpterm()