Tmax 4Gl Programming Guide (Power Builder, Delphi, Visual Basic, Visual Basic.net, C#.net) Tmax 3.8 Tmax 4GL Programming Guide

Transcription

1 Tmax 4GL Programming Guide (Power Builder, Delphi, Visual Basic, Visual Basic.net, C#.net) : TM4P : Tmax 3.8 : July 2, 2003 : Sep 20, 2003

2 Tmax 4Gl Programming Guide (Power Builder, Delphi, Visual Basic, Visual Basic.net, C#.net) Tmax 3.8 Tmax 4GL Programming Guide

3 Copyright (c) 2001 Tmax Soft Co., Ltd. All Rights Reserved.,,, Tmax Soft.,,,..... Tmax, WebT, WebtoB, JEUS, Host-Link, WebInOne Tmax Soft Co., Ltd.. Tmax Tel: , 2006 Fax: Tmax Administration Guide Document Edition Date Version TM4P JUN 21, 2002 Tmax 3.8 Tmax. Tmax Standard. Tmax Standard TP Function + 2 Phase Commit Web Admin Console, X.25 Gateway, TCP/IP Gateway, Host-Link, Power Tmax Options Builder Interface Module, SERIAL Gateway, TCP/IP Service Gateway Tmax 4GL Programming Guide

4 Tmax 4GL Programming GuidePower Builder, Delphi, Visual Basic,.net framework(visual Basic.net, C#.net) 4GL Tmax.,, 4GL Tmax. 4GL Application4GL Tmax.? Tmax 4GL Tmax. Tmax Tmax Reference ManualTmax Programming Guide.? 1. Power Builder : Power Builder Tmax. 2. Visual Basic : Visual Basic Tmax. 3. Delphi : Delphi Tmax. 4. Visual Basic.net : Visual Basic.net Tmax. 5. C#.net : C#.net Tmax. Tmax Reference Manual Tmax FDL Reference Manual Tmax Programming Guide { } [ ] ( ) Numeric String Literal abc abc Tmax 4GL Programming Guide

5 I. Power Builder pb_reset... 9 pb_tpalloc pb_tpstart pb_tmaxreadenv pb_tpend pb_tpcall pb_etpcall pb_tpfcall pb_tpacall pb_tpgetrply pb_tpcancel pb_tpcallw pb_tpconnect pb_tpsend pb_tprecv pb_tpdiscon pb_isblocked pb_tpbroadcast pb_tpsetunsol pb_getunsold pb_tpget pb_tpgetunsol pb_tpput f_data f_datadel f_fdata f_fdatadel f_form f_getdata pb_tx_begin pb_tx_commit pb_tx_rollback pb_tx_info pb_tx_set_commit_return pb_tx_set_transaction_control pb_tx_set_transaction_timeout tp_init tuxreadenv tp_term tp_call Tmax 4GL Programming Guide

6 tp_fcall tp_acall tp_getrply tp_cancel tuxcall tp_connect tp_conv tp_send tp_recv tp_discon isblocked tp_broadcast tp_subscribe tp_unsubscribe tp_begin tp_commit tp_abort Power Builder Sample II. Visual Basic PUTINT PUTLONG PUTFLOAT PUTDOUBLE PUTVAR PUTCAR_BA PUTSTR PUTCHR PUTCAR GETINT GETLONG GETFLOAT GETDOUBLE GETVAR GETCAR_BA GETSTR GETCHR GETCAR TmaxError FdlErrorMsg FilltpstartBuf Visual Basic Sample III. Delphi Tmax 4GL Programming Guide

7 2. Delphi Sample IV. Visual Basic.net ErrorMsg FdlErrorMsg PUTINT PUTLONG PUTDOUBLE PUTFLOAT PUTSHORT PUTCAR PUTVAR PUTCHR PUTCAR PUTCAR GETINT GETLONG GETDOUBLE GETFLOAT GETSHORT GETCAR GETVAR GETCHR GETCAR GETCAR FilltpstartBuf Visual Basic.NET Sample V. C#.net C#.NET Sample Tmax 4GL Programming Guide

8 I. Power Builder Tmax 4GL Programming Guide

9 1. Tmax. (tmax.pbd).. -.,. tmax.pbd. tmax.pbd. Tmax 4GL Programming Guide

10 2. pb_reset long ret u_tmax uo_tmax uo_tmax = CREATE u_tmax uo_tmax.usr_name = 'tmaxclient' uo_tmax.clt_name = 'cilent01' uo_tmax.dom_pwd = 'tmax' uo_tmax.usr_pwd = 'client01' uo_tmax.flags = uo_tmax.tpunsol_ign ret = uo_tmax.pb_tpstart() if ret < 0 then error processing end if Tmax 4GL Programming Guide

11 pb_tpalloc svcname : itype : ) STRUCT, STRING, CARRAY, FIELD isubtype : ilen : size ( : 1024) long ret Tmax 4GL Programming Guide

12 long buf u_tmax uo_tmax uo_tmax = CREATE u_tmax uo_tmax.usr_name = 'tmaxclient' uo_tmax.clt_name = 'cilent01' uo_tmax.dom_pwd = 'tmax' uo_tmax.usr_pwd = 'client01' uo_tmax.flags = uo_tmax.tpunsol_ign ret = uo_tmax.pb_tpstart() if ret < 0 then error processing end if Tmax 4GL Programming Guide

13 tpbegin long ret u_tmax uo_tmax uo_tmax = CREATE u_tmax uo_tmax.usr_name = 'tmaxclient' uo_tmax.clt_name = 'cilent01' uo_tmax.dom_pwd = 'tmax' uo_tmax.usr_pwd = 'client01' uo_tmax.flags = uo_tmax.tpunsol_ign ret = uo_tmax.pb_tpstart() if ret < 0 then error processing end if uo_tmax.pb_tpbegin Tmax 4GL Programming Guide

14 pb_tpstart pb_tpstart() returns integer Tmax Tmax. IP (TMAX_ HOST_ADDR), (TMAX_HOST_PORT), SDLFILE, FIELD(FDL) FDLFILE. < > 1. dos autoexec.bat. : SET TMAX_HOST_ADDR= SET TMAX_HOST_PORT=8888 SET SDLFILE=C:\tmax\sdl\tmax.sdl SET FDLFILE=C:\tmax\fdl\tmax.fdl 2. unix(ksh).profile. : export TMAX_HOST_ADDR= export TMAX_HOST_PORT=8888 export SDLFILE=C:\tmax\sdl\tmax.sdl export FDLFILE=C:\tmax\fdl\tmax.fdl IP FIELD IP FIELD pb_tpstart() u_tmaxinstance. usr_name clt_name dom_pwd usr_pwd flags TPUNSOL_IGN TPUNSOL_POLL (pb_tpgetunsol() TPUNSOL_HND (pb_tpsetunsol(), pb_getunsold() long ret u_tmax uo_tmax uo_tmax = CREATE u_tmax uo_tmax.usr_name = 'tmaxclient' uo_tmax.clt_name = 'cilent01' uo_tmax.dom_pwd = 'tmax' uo_tmax.usr_pwd = 'client01' uo_tmax.flags = uo_tmax.tpunsol_ign Tmax 4GL Programming Guide

15 ret = uo_tmax.pb_tpstart() if ret < 0 then error processing end if Integer. -1 tperrnoerror. Tmax Reference Manualtpstart(). Tmax 4GL Programming Guide

16 pb_tmaxreadenv pb_tmaxreadenv(string env_file, string section) returns integer long ret u_tmax uo_tmax uo_tmax = CREATE u_tmax ret = uo_tmax.pb_tmaxreadenv(./tmax.env, "TMAX") if ret < 0 then error processing end if Tmax 4GL Programming Guide

17 Integer. -1 tperrnoerror. Tmax Reference Manualtmaxreadenv(). Tmax 4GL Programming Guide

18 pb_tpend pb_tpend() returns integer long ret u_tmax uo_tmax uo_tmax = CREATE u_tmax ret = uo_tmax.pb_tpend() if ret < 0 then error processing end if Integer. -1 tperrnoerror. Tmax Reference Manualtpend(). Tmax 4GL Programming Guide

19 pb_tpcall pb_tpcall(string svcname, string itype, string idata, string from[], ref string odata[]) returns integer. idata svcname. form columndataodata. svcname : itype : TAB( ~t ) NewLine( ~n ) ) - STRUCT itype = STRUCT~tstruct_name~n - STRING itype = STRING~t~n - FIELD KEY itype = FIELD~t~n idata : TAB NewLine form : odata STRUCT FIELD KEY Field., Field Newline Newline form. Form Newline form. odata : PowerBuilderImportString DataWindow TAB, RowNewLine. TmaxInstance flagstimeout. msg : message tperrno : tpurcode : User Code(tpreturn ) flags : pb_tpcall flag TPNOTRAN non transaction mode Tmax 4GL Programming Guide

20 TPNOCHANGE TPNOBLOCK non Blocking Mode TPNOTIME Blocking timeout timeout : pb_tx_set_transaction_timeout Blocking timeout - STRUCT string itype, input, form[], output[] int ret itype = "STRUCT~t" + "kstrdata~n" input = string(len(before.text)) + ~t + before.text + ~n form[1] = "len" + ~n + & "sdata" + ~n + & ~n form[2] = ~n output[1] = space(1024) uo_tmax.flags = uo_tmax.tpnochange uo_tmax.timeout = 50 ret = uo_tmax.pb_tpcall("sync", itype, input, form, output) if ret < 0 then messagebox( "ERROR","tpcall Failed : Error Code =" + string(uo_tmax.tperrno) ) return end if afterlen.text = uo_tmax.f_getdata(form[1], output[1], 1, "len") afterdata.text = uo_tmax.f_getdata(form[1], output[1], 1, "sdata") - FIELD KEY long ret string itype, input, form[], output[] if isnull(sle_1.text) or sle_1.text = '' then end if itype = "FIELD~t~n" input = "INPUT~t" + sle_1.text + "~n" form[1] = "OUTPUT~n~n" form[2] = "~n" output[1] = space(40) ret = uo_tmax.pb_tpcall("fdltoupper", itype, input, form[], output[]) Tmax 4GL Programming Guide

21 if ret < 0 then error processing end if Tmax Reference Manual tpcall(). pb_tpacall, pb_tpgetrply Tmax 4GL Programming Guide

22 pb_etpcall pb_etpcall(string svcname, string itype, string idata, string from[], ref string odata[]) returns integer pb_tpcall pb_tpcall. FILENAM, NEWFILE. TP_BITMAP CARRAY. FILENAM input ( 4M ) TP_BITMAP. NEWFILE idata. TP_BITMAP NEWFILE. NEWFILE. svcname : itype : TAB( ~t ) NewLine( ~n ) idata : TAB NewLine ) - input = "FILENAM~t" + FileName + "~n" - input = "NEWFILE~t" + FileName + "~n" form : odata STRUCT FIELD KEY Field., Field Newline Newline form. Form Newline form. odata : PowerBuilderImportString DataWindow TAB Tmax 4GL Programming Guide

23 , RowNewLine. TmaxInstance flagstimeout. msg : message tperrno : tpurcode : User Code(tpreturn ) flags : pb_tpcall flag TPNOTRAN non transaction mode TPNOCHANGE TPNOBLOCK non Blocking Mode TPNOTIME Blocking timeout timeout : pb_tx_set_transaction_timeout Transaction Time- Out long ret string itype, idata, form[], odata[] string FileName = "c:\abc.bmp" if isnull(sle_1.text) or sle_1.text = '' then error processing end if itype = "FML~t~n" /*FILEupload FILENAM.*/ idata = "FILENAM~t + FileName + ~n form[1] = "~n" odata[1] = space(1024) ret = uo_tmax.pb_etpcall("imgsave", itype, idata, form[], odata[]) if ret < 0 then error processing end if Tmax 4GL Programming Guide

24 pb_tpfcall pb_tpfcall ( string svcname, string itype, string idata, string form[], ref string odata[], string ifilename, string fform[], ref string fodata[] ) returns integer pb_tpcall(). Tmax FILED form output fform fodata. TAB( ~t ) NewLine( ~n ) TAB NewLine odata STRUCT FIELD KEY Field., Field Newline Newline form. Form Newline form. PowerBuilderImportString DataWindow TAB, RowNewLine. TAB NewLine FIELD_NAME1+ ~t + VALUE1+ ~n + & FIELD_NAME2+ ~t + VALUE2+ ~n + & ~n fodata STRUCT FIELD KEY Field., Field Newline Newline form. Form Newline form. Tmax 4GL Programming Guide

25 ... InputFile = c:\temp\fdata0.txt InputFile = FileOpen(InputFile, StreamMode!, Write!, LockReadWrite!, Replace!)... uo_tmax.f_fdata(dw_input, InputFile) if FileClose(InputFile) <> 1 then error processing end if... ret = uo_tmax.pb_tpfcall( FCALL, itype, input, form, output, inputfilename, fform, foutput) if ret = -1 then error processing end if... f_fdata Tmax 4GL Programming Guide

26 pb_tpacall pb_tpacall ( string svcname, string itype, string idata ) returns integer,. (pb_tpgetrply())pb_tpacall(). pb_tpacall(). pb_tpgetrply(). TAB( ~t ) NewLine( ~n ) TAB NewLine string input, itype, form[], output[] int length, cd, ret length = len(before.text) itype = "STRUCT~tkstrdata~n" input = string(length) + ~t + before.text + ~n form[1] = "len~n" + "sdata~n" + ~n form[2] = ~n output[1] = space(1024) cd = uo_tmax.pb_tpacall("sync", itype, input) if cd < 0 then error processing end if ret = uo_tmax.pb_tpgetrply(cd, form, output) if ret < 0 then error processing end if (pb_tpgetrply() ). Tmax 4GL Programming Guide

27 pb_tpgetrply, pb_tpcancel, pb_tpcall Tmax 4GL Programming Guide

28 pb_tpgetrply pb_tpgetrply ( integer cd, ref string form[], ref string odata[] ) returns integer pb_tpgetrply()pb_tpacall(). pb_tpgetrply().. tperrnotpetime. cdpb_tpacall(),. form outputpb_tpcall(). pb_tpacall(). form : odata STRUCT FIELD KEY Field., Field Newline Newline form. Form Newline form. odata : PowerBuilderImportString DataWindow TAB, RowNewLine. string input, itype, form[], output[] int length, cd, ret length = len(before.text) itype = "STRUCT~tkstrdata~n" input = string(length) + ~t + before.text + ~n form[1] = "len~n" + "sdata~n" + ~n form[2] = ~n output[1] = space(1024) cd = uo_tmax.pb_tpacall("sync", itype, input) if cd < 0 then error processing end if ret = uo_tmax.pb_tpgetrply(cd, form, output) if ret < 0 then error processing Tmax 4GL Programming Guide

29 end if Integer. -1 tperrnoerror, msg. Tmax Reference Manual tpgetrply(). f_form, pb_tpacall, pb_tpcancel, pb_tpcall Tmax 4GL Programming Guide

30 pb_tpcancel pb_tpcancel ( integer cd ) returns integer pb_tpcancel()pb_tpacall().. cd. commit rollback. pb_tpacall() string input, itype, form[], output[] int length, cd, ret length = len(before.text) itype = "STRUCT~tkstrdata~n" input = string(length) + ~t + before.text + ~n form[1] = "len~n" + "sdata~n" + ~n form[2] = ~n output[1] = space(1024) cd = uo_tmax.pb_tpacall("sync", itype, input) if cd < 0 then error processing end if ret = uo_tmax.pb_tpcancel(cd) if ret < 0 then error processing end if Integer. -1 tperrnoerror, msg. Tmax Reference Manual tpcancel(). pb_tpacall, pb_tpgetrply Tmax 4GL Programming Guide

31 pb_tpcallw pb_tpcallw ( string svcname, powerobject iobject[], powerobject oobject[] ) returns integer iobject PowerObject Service, oobject PowerObject. iobject PowerObject oobject Power Object FIELD. input Object : Control Control.tag FIELD Field. DataWindow, DataWindowChild, : column FIELD FIELD. Row data. DataStore SingleLineEdit, MultiLineEdit : Control.Tag FIELD Field. Control.Textdata. StaticText, EditMask : Control.Tag FIELD Field. Control.Textdata. ListBox Control.Tag FIELD Field. data. DropDownListBox Control.Tag FIELD Field. data. CheckBox Control.Tag FIELD Field. Check data. RadioButton Control.Tag FIELD Field. Check data. outputobject input. ListBoxDropDownListBox data. uo_tmaxinstance Append TRUE, output DataWindow, DataWindow. FALSE DelBuf TRUE, inputdatawindow, DataWindow Delete Buffer (Primary Buffer ). Tmax 4GL Programming Guide

32 TRUE DataOnFail TRUE,. FALSE AppData pb_tpcall() input. DateFmt, Date/Time/DateTime, String TimeFmt, Format. DateTimeFmt pb_tpcallw pb_tpcall, pb_tpcall. long ret windowobject indata[], outdata[] indata[1] = dw_1 indata[2] = sle_input outdata[1] = dw_2 uo_tmax.flags = 0; ret = uo_tmax.pb_tpcallw ("SVC1", indata, outdata) if ret < 0 then error processing end if pb_tpcall, tuxcall Tmax 4GL Programming Guide

33 pb_tpconnect pb_tpconnect ( string svcname, string itype, string idata, long arg_flag ) returns integer pb_tpconnect(). pb_tpsend(), pb_tprecv(). Tmax Reference Manualtpconnect(). TAB( ~t ) NewLine( ~n ) TAB NewLine. TPNOTRAN : pb_tpconnect() svc, svc. svc, pb_tpconnect() TPNOTRAN. pb_tpconnect(), TPNOTRAN (timeout). TPNOTRAN,. TPSENDONLY :,,.,. TPSENDONLY TPRECVONLY. TPRECVONLY :,,.,. TPSENDONLY TPRECVONLY. Tmax 4GL Programming Guide

34 TPNOTIME : TPNOTIME. pb_tpconnect() Blocking timeout. TPSIGSTRT : (signal)..,, tperrno TPGOTSIG. int ret, cd string itype, otype, idata, form[], odata[] itype = "STRING~t~n" otype = "STRING~t~n" idata = string(len(before.text)) + ~t + before.text + ~n odata[1] = space(1024) cd = uo_tmax.pb_tpconnect("conv", itype, idata, uo_tmax.tprecvonly) if cd < 0 then error processing end if ret = uo_tmax.pb_tprecv(cd, form, odata, uo_tmax.tpflags) if ret < 0 then if uo_tmax.revent <> uo_tmax.tpev_sendonly or & uo_tmax.revent = uo_tmax.tpev_svcsucc then error processing end if end if Integer. -1 tperrnoerror.. Tmax Reference Manualtpconnect(). pb_tpsend, tp_tprecv, pb_tpdiscon Tmax 4GL Programming Guide

35 pb_tpsend pb_tpsend ( integer cd, string itype, string idata, long arg_flag ) returns integer pb_tpsend().. Tmax Reference Manualtpsend(). pb_tpconnect() TAB( ~t ) NewLine( ~n ) TAB NewLine. TPRECVONLY : TPRECVONLY,., pb_tpsend(). pb_tprecv(), TPEV_SENDONLY. pb_tprecv(). TPNOBLOCK : (, ). TPNOBLOCK pb_tpsend(), ( ). TPNOTIME : TPNOTIME. pb_tpconnect(). Tmax 4GL Programming Guide

36 TPSIGSTRT : (signal)..,, tperrno TPGOTSIG. int ret, cd string itype, otype, idata, form[], odata[] itype = "STRING~t~n" otype = "STRING~t~n" idata = string(len(before.text)) + ~t + before.text + ~n odata[1] = space(1024) cd = uo_tmax.pb_tpconnect("conv", itype, idata, uo_tmax.tpsendonly) if cd < 0 then error processing end if ret = uo_tmax.pb_tpsend(cd, itype, idata, uo_tmax.tprecvonly) if ret < 0 then error processing endif,. -1,. tperrnopb_tpeevent( 22) revent pb_tpdiscon().. TPFAILtpreturn. reventpb_tpev_svcsucc, PB_TPEV_SVCFAIL tpurcoode. -1 tperrnoerror (PB_TPEEVENT Tmax 4GL Programming Guide

37 ). Tmax Reference Manualtpsend(). pb_tpconnect, tp_tprecv, pb_tpdiscon Tmax 4GL Programming Guide

38 pb_tprecv pb_tprecv ( integer cd, ref string form[], ref string odata[], long arg_flag ) returns integer pb_tprecv().. Tmax Reference Manualtprecv(). pb_tpconnect() odata STRUCT FIELD KEY Field., Field Newline Newline form. Form Newline form. PowerBuilderImportString DataWindow TAB, RowNewLine.. TPNOBLOCK :., return.. TPNOTIME :. pb_tprecv() Blocking timeout. TPSIGRSTRT : (signal)..,, tperrno TPGOTSIG. int ret, cd string itype, otype, idata, form[], odata[] itype = "STRING~t~n" otype = "STRING~t~n" Tmax 4GL Programming Guide

39 idata = string(len(before.text)) + ~t + before.text + ~n odata[1] = space(1024) cd = uo_tmax.pb_tpconnect("conv", itype, idata, uo_tmax.tpsendonly) if cd < 0 then error processing end if ret = uo_tmax.pb_tprecv(cd, form, odata, uo_tmax.tpnoflags) if ret < 0 then if uo_tmax.revent <> uo_tmax.tpev_sendonly or & uo_tmax.revent = uo_tmax.tpev_svcsucc then error processing end if end if,. -1,. tperrnopb_tpeevent( 22) revent pb_tpdiscon()... TPFAILtpreturn SUCCESS ( ) reventpb_tpev_svcsucc, PB_TPEV_SVCFAIL tpurcoode. -1 tperrnoerror (PB_TPEEVENT ). Tmax Reference Manualtprecv(). Tmax 4GL Programming Guide

40 pb_tpconnect, tp_tprecv, pb_tpdiscon Tmax 4GL Programming Guide

41 pb_tpdiscon pb_tpdiscon ( integer cd ) returns integer pb_tpdiscon(), TPEV_DISCONIMM.. Tmax Reference Manualtpdiscon(). pb_tpconnect() int ret, cd string itype, otype, idata, form[], odata[] itype = "STRING~t~n" otype = "STRING~t~n" idata = string(len(before.text)) + ~t + before.text + ~n odata[1] = space(1024) cd = uo_tmax.pb_tpconnect("conv", itype, idata, uo_tmax.tpsendonly) if cd < 0 then error processing end if ret = uo_tmax.pb_tpdiscon(cd) if ret < 0 then error processing end if Integer. -1 tperrnoerror. Tmax Reference Manualtpdiscon(). pb_tpconnect, tp_tpsend, pb_tprecv Tmax 4GL Programming Guide

42 pb_isblocked pb_isblocked ( ) returns integer Blocking. Blocking Service. Service Service. Service button ( button ) Service. Service button. ret = uo_tmax.pb_isblocked() if ret = 0 then MessageBox("pb_isBlocked", "NO BLOCK " + string(uo_tmax.tperrno)) else MessageBox("pb_isBlocked", "BLOCKING") end if Integer. Blocking 1return. IsBlocked Tmax 4GL Programming Guide

43 pb_tpbroadcast pb_tpbroadcast ( string nodename, string usrname, string cltname, string data ) returns integer Client Message. nodename : Message. usrname : Message. pb_tpstart() usrname Message. cltname : Message. pb_tpstart() cltname Message. idata : TAB NewLine nodename, usrname, cltname. (wildcards). usrnamecltname?* nodename *. NULL,. Tmax Reference Manualtpbroadcast(). string nodename, usrname, cltname, data int ret. nodename = tmax usrname = * cltname = * data = sle_input.text ret = uo_tmax.pb_tpbroadcast(nodename, usrname, cltname, data) if ret < 0 then error processing end if Tmax Reference Manualtpbroadcast(). Tmax 4GL Programming Guide

44 - Tmax 4GL Programming Guide

45 pb_tpsetunsol pb_tpsetunsol ( unsignedinteger hwnd, string ename, unsignedinteger mid, long arg_flags ) returns integer. pb_getunsold(). hwnd : ename : tppost. mid : arg_flags :. TPBROADCAST, TPSENDTOCLI. pb_tpsetunsol(), pb_getunsold() u_tmaxinstance flagstpunsol_hndpb_tpstart(). uo_tmax.flags = uo_tmax.tpunsol_hnd ret = uo_tmax.pb_tpsetunsol ( HANDLE(this),, 1025, uo_tmax.tpbroadcast ) if ret = -1 then error processing end if unsoldata = space(1024) ret = uo_tmax.pb_getunsold(unsoldata, rlen, 1025) if ret < 0 then error processing end if TPEINVAL :. (16). pb_getunsold Tmax 4GL Programming Guide

46 pb_getunsold pb_getunsold ( ref string odata, integer len, unsignedinteger mid ) returns integer pb_tpsetunsol() pb_getunsold() odata :. len : mid : pb_tpsetunsol(), pb_getunsold() u_tmaxinstance flagstpunsol_hndpb_tpstart(). uo_tmax.flags = uo_tmax.tpunsol_hnd ret = uo_tmax.pb_tpsetunsol ( HANDLE(this),, 1025, uo_tmax.tpbroadcast ) if ret = -1 then error processing end if unsoldata = space(1024) ret = uo_tmax.pb_getunsold(unsoldata, rlen, 1025) if ret < 0 then error processing end if TPEINVAL : rcvbufnull mid 0. TPEITYPE :. TPEOTYPE :. TPEMATCH : mid. Tmax 4GL Programming Guide

47 pb_tpsetunsol Tmax 4GL Programming Guide

48 pb_tpget argument argument argumentsize. char * long addresspb.dll pb.dll string argument input. buf : long. loc : pb.dll loc. size :. TPEINVAL : rcvbufnull mid 0. TPEITYPE TPEOTYPE TPEMATCH pb_tpput Tmax 4GL Programming Guide

49 pb_tpgetunsol pb_tpgetunsol ( integer types, string form[], ref string odata[], integer arg_flags ) returns integer. pb_tpsetunsol() blocking. Tmax Reference Manualtpgetunsol(). types :. TPBROADCAST, TPSENDTOCLI. form : form. odata :. arg_flags : TPBLOCK pb_tpgetunsol(). TPNOTIME pb_tpgetunsol(). string form[], tmp[] tmp[1] = space(30) ret = uo_tmax.pb_tpgetunsol(uo_tmax.tpbroadcast, form[], tmp[], uo_tmax.tpblock) if ret < 0 then error processing end if TPEINVAL : rcvbufnull mid 0. TPEITYPE TPEOTYPE TPEMATCH pb_tpsetunsol, pb_getunsold Tmax 4GL Programming Guide

50 pb_tpput argument argument argument size. buf : long. loc :. size :. TPEINVAL : rcvbufnull mid 0. TPEITYPE TPEOTYPE TPEMATCH pb_tpget Tmax 4GL Programming Guide

51 f_data f_data ( {DataWindow DataWindowChild Datastore} ds_in ) returns string data. DataWindow( DataWindowChild, DataStore) Column datatab( ~t ), Column -Data NewLine( ~n ). Stringpb_tpcall input. ds_in : PowerBuilder Object (DataWindow, DataWindowChild, DataStore ) DataWindow( DataWindowChild, DataStore)data Row. string itype, input, form[], output[] itype = "STRING~t~n" input = uo_tmax.f_data(dw_input) + & ~n ret = uo_tmax.pb_tpcall("toupper", itype, input, form[], output[]) if ret < 0 then error processing end if String. DataWindow( DataWindowChild, DataStore) column data TAB( ~t )NewLine( ~n ). f_datadel, f_fdatadel, pb_tpcall, pb_tpacall, pb_tpconnect Tmax 4GL Programming Guide

52 f_datadel f_datadel ( {DataWindow DataWindowChild Datastore} ds_in ) returns string data. DataWindow( DataWindowChild, DataStore) Column datatab( ~t ), Column -Data NewLine( ~n ). Stringpb_tpcall input. ds_in : PowerBuilder Object (DataWindow, DataWindowChild, DataStore ) DeleteRow DeletedBufferdata : 1. DataWindow Allow Update ( Rows Menu Update Properties... Menu ) check. 2. ImportString ResetUpdate DeleteRow DeleteBuffer Row. string itype, input, form[], output[] itype = "STRING~t~n" input = uo_tmax.f_datadel(dw_input) + & ~n ret = uo_tmax.pb_tpcall("toupper", itype, input, form[], output[]) if ret < 0 then error processing end if String. DataWindow( DataWindowChild, DataStore)DeletedBuffer data TAB( ~t )NewLine( ~n ). f_fdata, f_fdatadel, pb_tpcall, pb_tpacall, pb_tpconnect Tmax 4GL Programming Guide

53 f_fdata f_fdata ( {Datastore DataWindow DataWindowChild} ds_in, integer filehandle ) returns integer Data. DataWindow( DataWindowChild, DataStore) RowColumn dataf_data format File Handle write., Column datatab( ~t ), Column -Data NewLine( ~n ). ds_in : PowerBuilder Object (DataWindow, DataWindowChild, DataStore ) filehandle : Service Data Field pb_tpfcall 4. DataWindow( DataWindowChild, DataStore)data Row.... InputFile = c:\temp\fdata0.txt InputFile = FileOpen(InputFile, StreamMode!, Write!, LockReadWrite!, Replace!)... uo_tmax.f_fdata(dw_input, InputFile) if FileClose(InputFile) <> 1 then error processing end if... if uo_tmax.tp_fcall(input, form, output, inputfilename, fform, foutput) = -1 then error processing end if... Integer File. f_data, f_datadel, f_fdatadel Tmax 4GL Programming Guide

54 f_fdatadel f_fdatadel ( {Datastore DataWindow DataWindowChild} ds_in, integer filehandle ) returns integer Data. DataWindow( DataWindowChild, DataStore) RowColumn dataf_data format File Handle write. ds_in : PowerBuilder Object (DataWindow, DataWindowChild, DataStore ) filehandle : DeleteRow DeletedBufferdata : 1. DataWindow Allow Update ( Rows Menu UpdateProperties... Menu ) check. 2. ImportString ResetUpdate DeleteRow DeleteBuffer Row. DataWindow( DataWindowChild, DataStore)dataDelete Buffer Row. f_fdata. - Integer File. f_data, f_datadel, f_fdata Tmax 4GL Programming Guide

55 f_form f_form ( {Datastore DataWindow DataWindowChild} ds_in) returns string form. DataWindow( DataWindowChild, DataStore) Column pb_tpcall4 String., column NewLine( ~n ) NewLine( ~n ). ds_in : PowerBuilder Object (DataWindow, DataWindowChild, DataStore ) string itype, input, form[], output[] itype = "STRING~t~n" input = uo_tmax.f_data(dw_input) + & ~n form[1] = uo_tmax.f_form(dw_input) ret = uo_tmax.pb_tpcall("toupper", itype, input, form[], output[]) if ret < 0 then error processing end if string. DataWindow(DataWindowChild, DataStore)Column NewLine( ~n ). pb_tpcall, pb_tpgetrply, pb_tprecv, pb_tpconv Tmax 4GL Programming Guide

56 f_getdata f_getdata ( string form, string odata, integer arg_row, string arg_col_name ) returns string form outputarg_row arg_col_name return. form : odata STRUCT FIELD KEY Field., Field Newline Newline form. Form Newline form. odata : PowerBuilderImportString DataWindow TAB, RowNewLine. arg_row : arg_col_name : string itype, input, form[], output[] itype = "STRING~t~n" input = uo_tmax.f_data(dw_input) + & ~n form[1] = uo_tmax.f_form(dw_input) ret = uo_tmax.pb_tpcall("toupper", itype, input, form[], output[]) if ret < 0 then error processing end if string.. - Tmax 4GL Programming Guide

57 pb_tx_begin pb_tx_begin ( ) returns integer., pb_tx_commit() pb_tx_rollback(). if _is_tx <> true then ret = uo_tmax.pb_tx_begin() if ret < 0 then error processing end if _is_tx = true end If Tmax Reference Manualtx_begin(). pb_tx_commit, pb_tx_rollback Tmax 4GL Programming Guide

58 pb_tx_commit pb_tx_commit ( ) returns integer commit. if _is_tx <> true then end if ret = uo_tmax.pb_tx_commit() if ret < 0 then error processing end If _is_tx = false Tmax Reference Manualtx_commit(). pb_tx_begin, pb_tx_rollback Tmax 4GL Programming Guide

59 pb_tx_rollback pb_tx_rollback ( ) returns integer rollback. ret = uo_tmax.pb_tpcall("insert", itype, input, form[], output[]) if ret < 0 then if _is_tx = true then ret = uo_tmax.pb_tx_rollback() if ret < 0 then error processing end if _is_tx = false end if error processing end if Tmax Reference Manualtx_rollback(). pb_tx_begin, pb_tx_commit Tmax 4GL Programming Guide

60 pb_tx_info pb_tx_info ( ) returns integer. xid u_tmaxdata, when_return, transaction_control, transaction_timeout transaction_stat. if _is_tx <> true then ret = uo_tmax.pb_tx_begin() if ret < 0 then error processing end if _is_tx = true end If if ret = uo_tmax.pb_tx_info() if ret < 0 then error processing end if Transaction mode 1 0. tperrnoerror. 1 TmaxInstance. data : ( :CLH :.) when_return : commit_return (pb_tx_set_commit_return() ) transaction_control : transaction control (pb_tx_set_transaction_control().) transaction_timeout : (pb_tx_set_transaction_timeout().) transaction_stat : Tmax Reference Manualtx_info(). pb_tx_begin, pb_tx_commit, pb_tx_rollback Tmax 4GL Programming Guide

61 pb_tx_set_commit_return pb_tx_set_commit_return ( long w_return ) returns integer when_return Global Transactioncommit. w_return :. TX_COMMIT_DECISION_LOGGED flagpb_tx_commit() two-phase commit protocol return.. TX_COMMIT_COMPLETED flagpb_tx_commit() two-phase commit protocol return. if ret = uo_tmax.pb_tx_set_commit_return(uo_tmax.tx_commit_completed) if ret < 0 then error processing end if if _is_tx <> true then ret = uo_tmax.pb_tx_begin() if ret < 0 then error processing end if _is_tx = true end If Tmax Reference Manualtx_set_commit_return(). pb_tx_info Tmax 4GL Programming Guide

62 pb_tx_set_transaction_control pb_tx_set_transaction_control ( long control ) returns integer control pb_tx_commit() pb_tx_rollback() transaction. control TX_UNCHAINED. control :. TX_UNCHAINED transaction. pb_tx_begin() transaction. TX_CHAINED pb_tx_commit() pb_tx_rollback() transaction. if ret = uo_tmax.pb_tx_set_transaction_control(uo_tmax.tx_chained) if ret < 0 then error processing end if if _is_tx <> true then ret = uo_tmax.pb_tx_begin() if ret < 0 then error processing end if _is_tx = true end If Tmax Reference Manual tx_set_transaction_control(). pb_tx_info Tmax 4GL Programming Guide

63 pb_tx_set_transaction_timeout pb_tx_set_transaction_timeout ( long timeout ) returns integer transactiontimeout. timeout :. if ret = uo_tmax.pb_tx_set_transaction_timeout(5) if ret < 0 then error processing end if if _is_tx <> true then ret = uo_tmax.pb_tx_begin() if ret < 0 then error processing end if _is_tx = true end If Tmax Reference Manual tx_set_transaction_timeout(). pb_tx_info Tmax 4GL Programming Guide

64 tp_init tp_init ( ) returns integer Tmax. pb_tpstart(). long ret u_tmax uo_tmax uo_tmax = CREATE u_tmax uo_tmax.usr_name = 'tmaxclient' uo_tmax.clt_name = 'cilent01' uo_tmax.dom_pwd = 'tmax' uo_tmax.usr_pwd = 'client01' uo_tmax.flags = uo_tmax.tpunsol_ign ret = uo_tmax.tp_initt() if ret < 0 then error processing end if pb_tpstart Tmax 4GL Programming Guide

65 tuxreadenv tuxreadenv ( string env_file, string section ) returns integer long ret u_tmax uo_tmax uo_tmax = CREATE u_tmax ret = uo_tmax.tuxreadenv(./tmax.env, "TMAX") if ret < 0 then error processing end if Integer. -1 tperrnoerror. Tmax 4GL Programming Guide

66 tp_term tp_term ( ) returns integer long ret u_tmax uo_tmax uo_tmax = CREATE u_tmax ret = uo_tmax.tp_term() if ret < 0 then error processing end if Integer. -1 tperrnoerror. Tmax 4GL Programming Guide

67 tp_call tp_call ( string idata, string form[], ref string odata[] ) returns integer idata Service, form column dataodata. tp_call() Tmax FILED(FDL) idata : service data. TAB NewLine form : odata Field Newline Newline form. Form Newline form. odata : PowerBuilderImportString DataWindow TAB, RowNewLine. TmaxInstance flagstimeout. msg : message tperrno : tpurcode : User Code(tpreturn ) flags : pb_tpcall flag TPNOTRAN non transaction mode TPNOCHANGE TPNOBLOCK non Blocking Mode TPNOTIME Blocking timeout timeout : pb_tx_set_transaction_timeout Blocking timeout input = SRVCNM + ~t + TOUPPER + ~n + & FIELD_NAME1 + ~t + VALUE1 + ~n + & FIELD_NAME2 + ~t + VALUE2 + ~n + & ~n form[1] = "OUTPUT~n~n" form[2] = "~n" output[1] = space(1024) Tmax 4GL Programming Guide

68 ret = uo_tmax. tp_call(input, form, output) if ret < 0 then error processing end if Integer. -1 tperrnoerror, msg. pb_tpcall, f_data, f_datadel, f_form, tuxcall Tmax 4GL Programming Guide

69 tp_fcall tp_fcall ( string idata, string form[], ref string odata[], string ifilename, string fform[], ref string foutdata[] ) returns integer tp_call(). Tmax FILED(FDL) form odata fform foutdata. service data. TAB NewLine odata Field Newline Newline form. Form Newline form. PowerBuilderImportString DataWindow TAB, RowNewLine. TAB NewLine fodata Field Newline Newline form. Form Newline form.... InputFile = c:\temp\fdata0.txt InputFile = FileOpen(InputFile, StreamMode!, Write!, LockReadWrite!, Replace!)... uo_tmax.f_fdata(dw_input, InputFile) if FileClose(InputFile) <> 1 then error processing end if... ret = uo_tmax.tp_fcall(input, form, output, inputfilename, fform, foutput) if ret = -1 then error processing Tmax 4GL Programming Guide

70 end if... Integer. -1 tperrnoerror, msg. pb_tpfcall, f_data, f_datadel, f_form Tmax 4GL Programming Guide

71 tp_acall tp_acall ( ref string idata ) returns integer. (tp_getrply() ).,. tp_acall() Tmax FIELD. service data. TAB NewLine string input, form[], odata[] int cd, ret input = SRVCNM + ~t + TOUPPER + ~n + & FIELD_NAME1 + ~t + VALUE1 + ~n + & FIELD_NAME2 + ~t + VALUE2 + ~n + & ~n form[1] = "OUTPUT~n~n" form[2] = "~n" output[1] = space(1024) cd = uo_tmax.tp_acall(input) if cd < 0 then error processing end if ret = uo_tmax.tp_getrply(cd, form, output) if ret < 0 then error processing end if (tp_getrply() ). pb_tpacall, tp_getrply Tmax 4GL Programming Guide

72 tp_getrply tp_getrply ( integer cd, ref string form[], ref string odata[] ) returns integer tp_getrply()tp_acall(). cdtp_acall(),. tp_getrply()tmax FIELD. form outputtp_call(). tp_acall(). form : odata Field Newline Newline form. Form Newline form. odata : PowerBuilderImportString DataWindow TAB, RowNewLine. string input, form[], odata[] int cd, ret input = SRVCNM + ~t + TOUPPER + ~n + & FIELD_NAME1 + ~t + VALUE1 + ~n + & FIELD_NAME2 + ~t + VALUE2 + ~n + & ~n form[1] = "OUTPUT~n~n" form[2] = "~n" output[1] = space(1024) cd = uo_tmax.tp_acall(input) if cd < 0 then error processing end if ret = uo_tmax.tp_getrply(cd, form, output) if ret < 0 then error processing end if Tmax 4GL Programming Guide

73 Integer. -1 tperrnoerror, msg. pb_tpgetrply, tp_acall Tmax 4GL Programming Guide

74 tp_cancel tp_cancel ( integer cd ) returns integer tp_cancel()tp_acall().. commit rollback. tp_acall() string input, form[], odata[] int cd, ret input = SRVCNM + ~t + TOUPPER + ~n + & FIELD_NAME1 + ~t + VALUE1 + ~n + & FIELD_NAME2 + ~t + VALUE2 + ~n + & ~n form[1] = "OUTPUT~n~n" form[2] = "~n" output[1] = space(1024) cd = uo_tmax.tp_acall(input) if cd < 0 then error processing end if ret = uo_tmax.pb_tpcancel(cd) if ret < 0 then error processing end if Integer. -1 tperrnoerror. tp_acall, tp_getrply Tmax 4GL Programming Guide

75 tuxcall tuxcall ( string svcname, powerobject sobject[], ref powerobject robject[] ) returns integer sobject PowerObject Service, robject PowerObject. tuxcall() Tmax FIELD. sobject Object. DataWindow, DataWindowChild, DataStore SingleLineEdit, MultiLineEdit StaticText, EditMask ListBox DropDownListBox CheckBox RadioButton : column FIELD FIELD. Row data. : Control.Tag FIELD Field. Control.Textdata. : Control.Tag FIELD Field. Control.Textdata. Control.Tag FIELD Field. data. Control.Tag FIELD Field. data. Control.Tag FIELD Field. Check data. Control.Tag FIELD Field. Check data. robjectobject input. ListBoxDropDownListBox data. u_tmaxinstance. dwappend : TRUE, robject DataWindow, DataWindow. FALSE dwdelbuf : TRUE, sobject DataWindow, DataWindowDelete Buffer (Primary Buffer ). TRUE DataOnFail : TRUE,. FALSE AuxData Tmax 4GL Programming Guide

76 DateFmt, TimeFmt, DateTimeFmt tp_call()input. Date/Time/DateTime, String Format. *tuxcall() tp_call(), tp_call(). long ret windowobject indata[], outdata[] indata[1] = dw_1 indata[2] = sle_input outdata[1] = dw_2 uo_tmax.flags = 0; ret = uo_tmax.tuxcall("svc1", indata, outdata) if ret < 0 then error processing end if Integer. -1 tperrnoerror, msg. tp_call, pb_tpcallw Tmax 4GL Programming Guide

77 tp_connect tp_connect ( string idata, long arg_flag ) returns integer tp_connect(). tp_send(),tp_recv(). tp_connect() Tmax FIELD. service data. TAB NewLine. TPNOTRAN : pb_tpconnect() svc, svc. svc, pb_tpconnect() TPNOTRAN. pb_tpconnect(), TPNOTRAN (timeout). TPNOTRAN,. TPSENDONLY :,,.,. TPSENDONLY TPRECVONLY. TPRECVONLY :,,.,. TPSENDONLY TPRECVONLY. TPNOTIME : TPNOTIME. pb_tpconnect(). Tmax 4GL Programming Guide

78 TPSIGSTRT : (signal)..,, tperrno TPGOTSIG. int ret, cd string idata idata = SRVCNM + ~t + CONV + ~n + & FIELD_NAME1 + ~t + VALUE1 + ~n + & FIELD_NAME2 + ~t + VALUE2 + ~n + & ~n cd = uo_tmax.tp_connect(idata, uo_tmax.tprecvonly) if cd < 0 then error processing end if Integer. -1 tperrnoerror.. tp_send, tp_recv, tp_conv, tp_discon Tmax 4GL Programming Guide

79 tp_conv tp_conv ( integer cd, string idata, ref string form[], ref string odata[], long arg_flag ) returns integer cd,. tp_conv() Tmax FIELD. tp_connect() service data. TAB NewLine odata Field Newline Newline form. Form Newline form. PowerBuilderImportString DataWindow TAB, RowNewLine. pb_tpsend(), pb_tprecv() flag. int ret, cd string idata idata = SRVCNM + ~t + CONV + ~n + & FIELD_NAME1 + ~t + VALUE1 + ~n + & FIELD_NAME2 + ~t + VALUE2 + ~n + & ~n form[1] = "OUTPUT~n~n" form[2] = "~n" output[1] = space(1024) cd = uo_tmax.tp_connect(idata, uo_tmax.tprecvonly) if cd < 0 then error processing end if ret = uo_tmax.tp_conv(cd, idata, form, output, uo_tmax.tpnoflags) if ret < 0 then if uo_tmax.revent <> uo_tmax.tpev_sendonly or & uo_tmax.revent = uo_tmax.tpev_svcsucc then error processing Tmax 4GL Programming Guide

80 end if end if,. -1,. tperrnopb_tpeevent( 22) revent pb_tpdiscon()... TPFAILtpreturn SUCCESS ( ) reventpb_tpev_svcsucc, PB_TPEV_SVCFAIL tpurcoode. -1 tperrnoerror (PB_TPEEVENT ). Tmax Reference Manualtpsend(). tp_connect, tp_discon, tp_send, tp_recv Tmax 4GL Programming Guide

81 tp_send tp_send ( integer cd, string idata, long arg_flag ) returns integer tp_send().. tp_send() Tmax FILED. pb_tpconnect() service data. TAB NewLine. TPRECVONLY : TPRECVONLY,., pb_tpsend(). pb_tprecv(), TPEV_SENDONLY. pb_tprecv(). TPNOBLOCK : (, ). TPNOBLOCK pb_tpsend(), ( ). TPNOTIME : TPNOTIME. pb_tpconnect(). TPSIGSTRT : (signal)..,, tperrno TPGOTSIG. Tmax 4GL Programming Guide

82 int ret, cd string itype, otype, idata, form[], odata[] idata = SRVCNM + ~t + CONV + ~n + & FIELD_NAME1 + ~t + VALUE1 + ~n + & FIELD_NAME2 + ~t + VALUE2 + ~n + & ~n cd = uo_tmax.tp_connect(idata, uo_tmax.tpsendonly) if cd < 0 then error processing end if ret = uo_tmax.tp_send(idata, uo_tmax.tprecvonly) if ret < 0 then error processing end if,. -1,. tperrnopb_tpeevent( 22) revent pb_tpdiscon().. TPFAILtpreturn. reventpb_tpev_svcsucc, PB_TPEV_SVCFAIL tpurcoode. -1 tperrnoerror (PB_TPEEVENT ). tp_connect, tp_discon, tp_recv, tp_conv Tmax 4GL Programming Guide

83 tp_recv tp_recv ( integer cd, ref string form[], ref string odata[], long arg_flag ) returns integer tp_recv().. tp_recv() Tmax FIELD. pb_tpconnect() odata Field Newline Newline form. Form Newline form. PowerBuilderImportString DataWindow TAB, RowNewLine.. TPNOBLOCK :., return.. TPNOTIME :. pb_tprecv(). TPSIGRSTRT : (signal)..,, tperrno TPGOTSIG. int ret, cd string itype, otype, idata, form[], odata[] idata = SRVCNM + ~t + CONV + ~n + & FIELD_NAME1 + ~t + VALUE1 + ~n + & FIELD_NAME2 + ~t + VALUE2 + ~n + & ~n Tmax 4GL Programming Guide

84 cd = uo_tmax.tp_connect(idata, uo_tmax.tprecvonly) if cd < 0 then error processing end if ret = uo_tmax.tp_recv(cd, form, odata, uo_tmax.tpnoflags) if ret < 0 then if uo_tmax.revent <> uo_tmax.tpev_sendonly or & uo_tmax.revent = uo_tmax.tpev_svcsucc then error processing end if end if,. -1,. tperrnopb_tpeevent( 22) revent pb_tpdiscon()... TPFAILtpreturn SUCCESS ( ) reventpb_tpev_svcsucc, PB_TPEV_SVCFAIL tpurcoode. -1 tperrnoerror (PB_TPEEVENT ). tp_connect, tp_discon, tp_send, tp_conv Tmax 4GL Programming Guide

85 tp_discon tp_discon ( integer cd ) returns integer tp_discon(), TPEV_DISCONIMM. tpreturn, client., abort. tp_connect() int ret, cd string idata idata = SRVCNM + ~t + CONV + ~n + & FIELD_NAME1 + ~t + VALUE1 + ~n + & FIELD_NAME2 + ~t + VALUE2 + ~n + & ~n cd = uo_tmax.tp_connect(idata, uo_tmax.tprecvonly) if cd < 0 then error processing end if ret = uo_tmax.tp_discon(cd) if ret < 0 then error processing end if Integer. -1 tperrnoerror. pb_tpconnect, tp_tpsend, pb_tprecv Tmax 4GL Programming Guide

86 isblocked isblocked ( ) returns integer Blocking. Blocking Service. Service Service. Service button ( button ) Service. Service button. ret = uo_tmax.isblocked() if ret = 0 then MessageBox("pb_isBlocked", "NO BLOCK " + string(uo_tmax.tperrno)) else MessageBox("pb_isBlocked", "BLOCKING") end if Integer. Blocking 1return. pb_isblocked Tmax 4GL Programming Guide

87 tp_broadcast tp_broadcast ( string nodename, string usrname, string cltname, string idata ) returns integer Client Message. nodename : Message. usrname : Message. pb_tpstart() usrname Message. cltname : Message. pb_tpstart() cltname Message. idata : service data. TAB NewLine nodename, usrname, cltname. (wildcards). usrnamecltname?* nodename *. NULL,. string nodename, usrname, cltname, data int ret. nodename = tmax usrname = * cltname = * data = SRVCNM + ~t + BROAD + ~n + & FIELD_NAME1 + ~t + VALUE1 + ~n + & ~n ret = uo_tmax.tp_broadcast(nodename, usrname, cltname, data) if ret < 0 then error processing end if Tmax 4GL Programming Guide

88 pb_tpbroadcast Tmax 4GL Programming Guide

89 tp_subscribe tp_subscribe ( unsignedinteger hwnd, string event_name, unsignedinteger message_id ) returns integer tppost(). event_name tppost() hwnd message_id., Message.WordParm ID. get_evtname() get_data() ID. tp_unsubscribe(). hwnd : event_name : message_id : ID - tp_unsubscribe Tmax 4GL Programming Guide

90 tp_unsubscribe tp_unsubscribe ( unsignedinteger hwnd ) returns integer tp_subscribe(), tp_setunsol() (hwnd) Message. hwnd : - tp_subscribe Tmax 4GL Programming Guide

91 tp_begin tp_begin ( unsignedlong timeout, long arg_flags ) returns integer., tp_commit() tp_abort(). timeout : transaction.( ) transaction timeout transactionabort. arg_flags :. if _is_tx <> true then ret = uo_tmax.tp_begin(10, 0) if ret < 0 then error processing end if _is_tx = true end If tp_commit, tp_abort Tmax 4GL Programming Guide

92 tp_commit tp_commit ( long arg_flags ) returns integer commit. arg_flags :. if _is_tx <> true then end if ret = uo_tmax.tp_commit(0) if ret < 0 then error processing end If _is_tx = false tp_begin, tp_abort Tmax 4GL Programming Guide

93 tp_abort tp_abort ( long arg_flags ) returns integer abort. arg_flags :. ret = uo_tmax.pb_tpcall("insert", itype, input, form[], output[]) if ret < 0 then if _is_tx = true then ret = uo_tmax.tp_abort(0) if ret < 0 then error processing end if _is_tx = false end if error processing end if. tp_begin, tp_commit Tmax 4GL Programming Guide

94 3. Power Builder Sample,,,,,,,. 8 singleline editor1, 6., 50.,,,. demo.pbl : client emp_c.pc : service (Oracle ) demo.f : Field Key Buffer emp_c.mk: Makefile tmconfig.m : Tmax - User Object : tmax.pbd - : FIELD KEY BUFFER fdlc fdl - : pb_tpcall() - :,,, - Tmax :,. - : FDLSELECT, FDLUPDATE, FDLDELETE, FDLINSERT - : SVRGROUP ( XA ) Tmax 4GL Programming Guide

95 < > < > Tmax 4GL Programming Guide

96 Global Variables u_tmax uo_tmax boolean btxrun, bconnect Window Fuctions tmaxconnect ( ) returns Boolean IF uo_tmax.pb_tpstart()<0 THEN st_err.text = (".\n tpstart() Failed: Error Code =" + string(uo_tmax.tperrno)) return FALSE END IF return TRUE inputcheck ( integer inputnum ) returns Boolean IF isnull( sle_empno.text ) OR sle_empno.text = "" THEN st_err.text = "." return FALSE END IF IF( inputnum = 1) THEN return TRUE IF isnull( sle_name.text ) OR sle_name.text = "" THEN goto errormsg IF isnull( sle_job.text ) OR sle_job.text = "" THEN goto errormsg IF isnull( sle_mgr.text ) OR sle_mgr.text = "" THEN goto errormsg IF (len(sle_date.text) <>8 ) THEN goto errormsg IF isnull( sle_sal.text ) OR sle_sal.text = "" THEN goto errormsg IF isnull( sle_comm.text ) OR sle_comm.text = "" THEN goto errormsg IF isnull( sle_dept.text ) OR sle_dept.text = "" THEN goto errormsg return TRUE errormsg: st_err.text = ", 8 (YYYYMMDD)." return FALSE clearwindow ( ) returns Boolean sle_empno.clear() sle_name.clear() sle_job.clear() sle_mgr.clear() sle_date.clear() sle_sal.clear() sle_comm.clear() sle_dept.clear() sle_empno.setfocus() Tmax 4GL Programming Guide

97 errorprocess ( string infomsg ) st_err.text = InfoMsg IF( btxrun = TRUE ) THEN uo_tmax.pb_tx_rollback() btxrun = FALSE END IF IF( bconnect = TRUE ) THEN uo_tmax.pb_tpend() bconnect = FALSE END IF successprocess ( string infomsg ) st_err.text = InfoMsg IF( btxrun = TRUE ) THEN uo_tmax.pb_tx_commit() btxrun = FALSE END IF IF( bconnect = TRUE ) THEN uo_tmax.pb_tpend() bconnect = FALSE END IF Open Script string FileName uo_tmax = CREATE u_tmax uo_tmax.flags = 0 FileName ="D:\PB\MyProgram\tmax.env" IF uo_tmax.pb_tmaxreadenv( FileName, "tmax1") <0 THEN messagebox( "Eviroment Error","Enviroment File Loading Failed : Error Code =" + string(uo_tmax.tperrno)) return END IF open(w_demo) Script string itype, idata, form[], odata[] IF(inputcheck(1) = FALSE) THEN return Tmax 4GL Programming Guide

98 itype = "FIELD~t~n" idata = "EMPNO"+"~t"+sle_empno.text+"~n" form[1] ="EMPNO~n" + & "ENAME~n" + & "JOB~n" + & "MGR~n" + & "DATE~n" + & "SAL~n" + & "COMM~n" + & "DEPTNO~n" + & "E_TYPE~nE_CODE~nE_MSG~nE_TMP~n~n" form[2] = "~n"//"e_type~ne_code~ne_msg~ne_tmp~n~n" odata[1] = space(1024) bconnect = tmaxconnect() IF bconnect = FALSE THEN errorprocess( ".") return END IF IF uo_tmax.pb_tpcall("fdlselect", itype, idata, form[], odata[]) <0 THEN errorprocess( uo_tmax.f_getdata(form[1], odata[1], 1, "E_MSG") ) return END IF dw_out.importstring(odata[1]) dw_out.visible = TRUE cb_back.visible = TRUE cb_sel.enabled = FALSE cb_udt.enabled = FALSE cb_del.enabled = FALSE cb_ins.enabled = FALSE cb_exit.enabled = FALSE successprocess( sle_empno.text + ".") Script string itype, idata, form[], odata[] IF(inputcheck(0) = FALSE) THEN return itype = "FIELD~t~n" idata = "EMPNO~t" +sle_empno.text+"~n" + & "ENAME~t"+sle_name.text+"~n" + & "JOB~t"+sle_job.text+"~n" + & "MGR~t"+sle_mgr.text+"~n" + & "DATE~t" +sle_date.text+"~n" + & Tmax 4GL Programming Guide

99 "SAL~t" +sle_sal.text+"~n" + & "COMM~t" +sle_comm.text+"~n" + & "DEPTNO~t" +sle_dept.text+"~n~n" form[1] = "E_TYPE~nE_CODE~nE_MSG~nE_TMP~n~n" form[2] = "~n" odata[1] = space(1024) bconnect = tmaxconnect() IF bconnect = FALSE THEN errorprocess( ".") return END IF IF btxrun = FALSE THEN IF uo_tmax.pb_tx_begin()<0 THEN errorprocess( "pb_tx_begin Error") return END IF btxrun = TRUE END IF IF uo_tmax.pb_tpcall("fdlupdate", itype, idata, form[], odata[])<0 THEN errorprocess( "Error:\n"+uo_tmax.f_getdata(form[1], odata[1], 1, "E_MSG") ) return END IF clearwindow() successprocess( sle_empno.text + "." ) Script int string ret itype, idata, form[], odata[] IF(inputcheck(1) = FALSE) THEN return itype = "FIELD~t~n" idata = "EMPNO"+"~t"+sle_empno.text+"~n~n" form[1] = "E_TYPE~nE_CODE~nE_MSG~nE_TMP~n~n" form[2] = "~n" odata[1] = space(1024); bconnect = tmaxconnect() IF bconnect = FALSE THEN errorprocess( ".") return END IF Tmax 4GL Programming Guide

100 IF btxrun = FALSE THEN IF uo_tmax.pb_tx_begin()<0 THEN errorprocess( "pb_tx_begin Error") return END IF btxrun = TRUE END IF IF uo_tmax.pb_tpcall("fdldelete", itype, idata, form[], odata[])<0 THEN errorprocess( uo_tmax.f_getdata(form[1], odata[1], 1, "E_MSG") ) return END IF successprocess( sle_empno.text + "." ) clearwindow() Script long string ret itype, idata, form[], odata[] IF(inputcheck(0) = FALSE) THEN return itype = "FIELD~t~n" idata = "EMPNO~t"+sle_empno.text+"~n" + & "ENAME~t"+sle_name.text+"~n" + & "JOB~t"+sle_job.text+"~n" + & "MGR~t"+sle_mgr.text+"~n" + & "DATE~t"+sle_date.text+"~n" + & "SAL~t"+sle_sal.text+"~n" + & "COMM~t"+sle_comm.text+"~n" + & "DEPTNO~t"+sle_dept.text+"~n" + & "~n" form[1] = "E_TYPE~nE_CODE~nE_MSG~nE_TMP~n~n" form[2] = "~n" odata[1] = space(1024); bconnect = tmaxconnect() IF bconnect = FALSE THEN errorprocess( ".") return END IF IF btxrun = FALSE THEN IF uo_tmax.pb_tx_begin()<0 THEN errorprocess( "pb_tx_begin Error") Tmax 4GL Programming Guide

101 return END IF btxrun = TRUE END IF IF uo_tmax.pb_tpcall("fdlinsert", itype, idata, form[], odata[])<0 THEN errorprocess( uo_tmax.f_getdata(form[1], odata[1], 1, "E_MSG") ) return END IF successprocess( sle_empno.text + "." ) clearwindow() Script close(w_demo) Script int i cb_sel.enabled = TRUE cb_udt.enabled = TRUE cb_del.enabled = TRUE cb_ins.enabled = TRUE cb_exit.enabled = TRUE FOR i=1 to (dw_out.rowcount()+2) dw_out.deleterow ( 1 ) NEXT clearwindow() dw_out.visible = FALSE cb_back.visible = FALSE Tmax 4GL Programming Guide

102 demo.f DataBase EMP Table EMPNO NUMBER NOT NULL P1 ENAME VARCHAR(16) JOB VARCHAR(16) MGR NUMBER HIREDATE DATE SAL NUMBER(7,2) COMM NUMBER(7,2) DEPTNO NUMBER Tmax 4GL Programming Guide

103 emp_c.pc Tmax 4GL Programming Guide

104 Tmax 4GL Programming Guide

105 Tmax 4GL Programming Guide

106 Tmax 4GL Programming Guide

107 Tmax 4GL Programming Guide

108 Tmax 4GL Programming Guide

109 } Tmax 4GL Programming Guide

110 emp_c.mk Tmax 4GL Programming Guide

111 tmconfig.m *DOMAIN dom1 *NODE tmax1 *SVRGROUP svg1 *SERVER emp_c *SERVICE FDLSELECT FDLUPDATE FDLDELETE FDLINSERT SHMKEY=70000, MAXUSER=200, MINCLH=1, MAXCLH=5, TPORTNO=8888, BLOCKTIME=200, TXTIME=200 TMAXDIR="/home/tmax", APPDIR="/home/tmax/appbin", PATHDIR="/home/tmax/path", TLOGDIR= "/home/tmax/log/tlog", SLOGDIR="/home/tmax/log/slog" ULOGDIR="/home/tmax/log/ulog" NODENAME=tmax1, DBNAME=ORACLE, OPENINFO="ORACLE_XA+Acc=P/scott/tiger+SesTm=60", TMSNAME = svg1_tms SVGNAME=svg1, MIN=1 SVRNAME= emp_c SVRNAME= emp_c SVRNAME= emp_c SVRNAME= emp_c Tmax 4GL Programming Guide

112 II. Visual Basic Tmax 4GL Programming Guide

113 1... atmi.bas fdl. Bas comm..bas winapi.bas : atmi : : : windows Tmax.. (comm.bas). atmi Tmax Reference Manual Tmax Programming Guide.. Tmax 4GL Programming Guide

114 2. PUTINT Function PUTINT(ByVal Fdlptr&, Field As String, idx As Long, idata As Integer) As Long FIELD(FDL) Field Integer idata idx. Fdlptr : FDL Field : idx : idata : Dim lsendbuf As Long Dim lret As Long Dim intdata As Integer lsendbuf = tpalloc("field ", "", 0) lret = PUTINT(ByVal lsendbuf, "INTDATA", 0, intdata) PUTLONG, PUTDOUBLE, PUTVAR, PUTCAR, PUTFLOAT, PUTSTR, PUTCHR Tmax 4GL Programming Guide

115 PUTLONG Function PUTLONG(ByVal Fdlptr&, Field As String, idx As Long, ldata As Long) As Long FIELD(FDL) Field Long ldata idx. Fdlptr : FDL Field : Idx : LData : Dim lsendbuf As Long Dim lret As Long Dim longdata As Long lsendbuf = tpalloc("field ", "", 0) lret = PUTLONG(ByVal lsendbuf, "LONGDATA", 0, longdata) PUTINT, PUTDOUBLE, PUTVAR, PUTCAR, PUTFLOAT, PUTSTR, PUTCHR Tmax 4GL Programming Guide

116 PUTFLOAT Function PUTFLOAT(ByVal Fdlptr&, Field As String, idx As Long, ddata As Single) As Long FIELD(FDL) Field Single ddata idx. Fdlptr : FDL Field Idx Ddata Dim lsendbuf As Long Dim lret As Long Dim doubledata As Single lsendbuf = tpalloc("field ", "", 0) lret = PUTFLOAT(ByVal lsendbuf, "DOUBLEDATA", 0, doubledata) PUTINT, PUTLONG, PUTVAR, PUTCAR, PUTDOUBLE, PUTSTR, PUTCHR Tmax 4GL Programming Guide

117 PUTDOUBLE Function PUTDOUBLE(ByVal Fdlptr&, Field As String, idx As Long, ddata As Double) As Long FIELD(FDL) Field Double ddata idx. Fdlptr : FDL Field idx ddata Dim lsendbuf As Long Dim lret As Long Dim doubledata As Double lsendbuf = tpalloc("field ", "", 0) lret = PUTDOUBLE(ByVal lsendbuf, "DOUBLEDATA", 0, doubledata) PUTINT, PUTLONG, PUTVAR, PUTCAR, PUTFLOAT, PUTSTR, PUTCHR Tmax 4GL Programming Guide

118 PUTVAR Function PUTVAR(ByVal Fdlptr&, Field As String, idx As Long, text As String) As Long FIELD(FDL) Field String text idx. Fdlptr : FDL Field : idx : text : Dim lsendbuf As Long Dim lret As Long lsendbuf = tpalloc("field ", "", 0) lret = PUTVAR(ByVal lsendbuf, "INPUT", 0, txtinput.text) PUTINT, PUTLONG, PUTDOUBLE, PUTCAR, PUTFLOAT, PUTSTR, PUTCHR Tmax 4GL Programming Guide

119 PUTCAR_BA Function PUTCAR_BA(ByVal Fdlptr&, Field As String, idx As Long, ByteArray() As Byte, datalen As Long) As Long FIELD(FDL) Field Image ByteArray idx. Fdlptr : FDL Field : idx : ByteArray : datalen : ByteArray Dim isrc As Integer Dim lcopy As Long Dim lsize As Long Dim lbuffer() As Byte Dim datalen As Long lsendbuf = tpalloc("field", "", ) isrc = FreeFile Open ".\nmlogo.bmp" For Binary Access Read As isrc lsize = LOF(iSrc) datalen = lsize Do If lsize > MAX_BUFFER Then lsize = lsize - MAX_BUFFER lcopy = MAX_BUFFER Else lcopy = lsize End If ReDim lbuffer(lcopy - 1) Get isrc,, lbuffer Loop Until lcopy = lsize Close isrc lret = PUTCAR_BA(ByVal lsendbuf, "TP_BITMAP", 0, lbuffer, datalen) if lret < 0 then error processing Tmax 4GL Programming Guide

120 end if PUTINT, PUTLONG, PUTDOUBLE, PUTCAR, PUTVAR, PUTFLOAT, PUTSTR, PUTCHR Tmax 4GL Programming Guide

121 PUTSTR Function PUTSTR(ByVal strptr&, text As String) As Long STRING text. strptr : STRING text : Dim lsendbuf As Long Dim lret As Long Dim text As String lsendbuf = tpalloc("string", "", 1024) lret = PUTSTR(lsendbuf, text) PUTINT, PUTLONG, PUTDOUBLE, PUTVAR, PUTCAR, PUTFLOAT, PUTCHR Tmax 4GL Programming Guide

122 PUTCHR Function PUTCHR(ByVal Fdlptr&, ByVal Field As String, ByVal idx As Integer, ByRef data As String, ByVal datalen As Integer) As Integer Tmax fdl fbchg_tu() nth fldname value. value Char. Fbchg_tu() (nth) (value),. Fldptr : STRING Fieldt : Idx : Data : String datalen : String Dim lsendbuf As Long Dim lret As Long Dim chr As String lsendbuf = fballoc(10, 100) chr = a lret = PUTSTR(lsendbuf, CHR, 0, chr, 1 ) PUTINT, PUTLONG, PUTDOUBLE, PUTVAR, PUTCAR, PUTFLOAT, PUTSTR Tmax 4GL Programming Guide

123 PUTCAR Function PUTCAR(ByVal Carptr&, text As String, Datalen As Long) As Long CARRAY String text. Carptr : FDL Text : Datalen : Dim lsendbuf As Long Dim lret As Long Dim DataLen As Long lsendbuf = tpalloc("carray", "", 1024) 'CARRAY. DataLen = LenB(txtInput.text) lret = PUTCAR(ByVal lsendbuf, txtinput.text, DataLen) PUTINT, PUTLONG, PUTDOUBLE, PUTVAR, PUTFLOAT, PUTSTR, PUTCHR lstrcpy. ) Dim lsendbuf As Long Dim lret As Long lsendbuf = tpalloc("string", "", 1024) lret = lstrcpy(byval lsendbuf, ByVal txtinput.text) Tmax 4GL Programming Guide

124 GETINT Function GETINT(ByVal Fdlptr&, Field As String, idx As Long, idata As Integer) As Long FIELD(FDL) Field idxinteger idata. Fdlptr : FDL Field : idx : idata : Dim lsendbuf As Long Dim lret As Long Dim intdata As Integer lsendbuf = tpalloc("field ", "", 0) lret = GETINT(ByVal lsendbuf, "INTDATA", 0, intdata) GETLONG, GETDOUBLE, GETVAR, GETCAR, GETFLOAT, GETSTR, GETCHR Tmax 4GL Programming Guide

125 GETLONG Function GETLONG(ByVal Fdlptr&, Field As String, idx As Long, ldata As Long) As Long FIELD(FDL) Field idxlong ldata. Fdlptr : FDL Field : idx : ldata : Dim lsendbuf As Long Dim lret As Long Dim longdata As Long lsendbuf = tpalloc("field ", "", 0) lret = GETLONG(ByVal lsendbuf, "LONGDATA", 0, longdata) GETINT, GETDOUBLE, GETVAR, GETCAR, GETFLOAT, GETSTR, GETCHR Tmax 4GL Programming Guide

126 GETFLOAT Function GETFLOAT (ByVal Fdlptr&, Field As String, idx As Long, ddata As Single) As Long FIELD(FDL) Field idxsingle ddata. Fdlptr : FDL Field idx ddata Dim lsendbuf As Long Dim lret As Long Dim doubledata As Single lsendbuf = tpalloc("field ", "", 0) lret = GETFLOAT (ByVal lsendbuf, "DOUBLEDATA", 0, doubledata) Tmax 4GL Programming Guide

127 GETDOUBLE Function GETDOUBLE(ByVal Fdlptr&, Field As String, idx As Long, ddata As Double) As Long FIELD(FDL) Field idxdouble ddata. Fdlptr : FDL Field idx ddata Dim lsendbuf As Long Dim lret As Long Dim doubledata As Double lsendbuf = tpalloc("field ", "", 0) lret = GETDOUBLE(ByVal lsendbuf, "DOUBLEDATA", 0, doubledata) GETINT, GETLONG, GETVAR, GETCAR, GETFLOAT, GETSTR, GETCHR Tmax 4GL Programming Guide

128 GETVAR Function GETVAR(ByVal Fdlptr&, Field As String, idx As Long, text As String) As Long FIELD(FDL) Field idxstring text. Fdlptr : FDL Field : idx : text : Dim lsendbuf As Long Dim lret As Long lsendbuf = tpalloc("field ", "", 0) lret = GETVAR(ByVal lsendbuf, "INPUT", 0, txtoutput.text) GETINT, GETLONG, GETDOUBLE, GETCAR, GETFLOAT, GETSTR, GETCHR Tmax 4GL Programming Guide

129 GETCAR_BA Function GETCAR_BA (ByVal Fdlptr&, Field As String, idx As Long, ByRef ByteArray() As Byte, datalen As Long) As Long FIELD(FDL) Field idximage ByteArray. Fdlptr : FDL Field : idx : ByteArray : datalen : ByteArray Dim rbuffer(102400) As Byte Dim datalen As Long lrecvbuf = tpalloc("field", "", ) lret = PUTCAR_BA(ByVal lsendbuf, "TP_BITMAP", 0, lbuffer, datalen) if lret < 0 then error processing end if lret = tpcall(byval "FILEUP", ByVal lsendbuf, ByVal datalen&, lrecvbuf, lrbuflen, ByVal 0) lblcomment.caption = lblcomment.caption & " -> tpcall : " & lret If lret = -1 Then error processing end If lret = GETCAR_BA(ByVal lrecvbuf, "TP_BITMAP", 0, rbuffer, datalen) if lret < 0 then error processing end if GETINT, GETLONG, GETDOUBLE, GETCAR, GETVAR, GETFLOAT, GETSTR, GETCHR Tmax 4GL Programming Guide

130 GETSTR Function GETSTR(ByVal strptr&, text As String) As Long STRING text. strptr : STRING text : Dim lsendbuf As Long Dim lret As Long Dim text As String lsendbuf = fballoc(10, 100) Irecvbuf = fballoc(10, 100) lret = tpcall(byval SVC1, ByVal lsendbuf, ByVal DataLen&, lrecvbuf, lrbuflen, ByVal 0) lret = GETSTR(lrecvbuf, text) GETINT, GETLONG, GETDOUBLE, GETVAR, GETCAR, GETFLOAT, GETSTR, GETCHR Tmax 4GL Programming Guide

131 GETCHR Function GETCHR(ByVal Fdlptr&, ByVal Field As String, ByVal idx As Integer, ByRef data As String, ByVal datalen As Integer) As Integer Tmax fdl fbchg_tu() nth Field value. value Char. fbget_tu() (idx) (char).. Fldptr : STRING Field : Idx : Data : string datalen : string Dim lsendbuf As Long Dim lret As Long Dim chr As String lsendbuf = fballoc(10, 100) Irecvbuf = fballoc(10, 100) lret = tpcall(byval SVC1, ByVal lsendbuf, ByVal DataLen&, lrecvbuf, lrbuflen, ByVal 0) 'lret = GETSTR(lrecvbuf, CHR, 0, chr, 1 ) GETINT, GETLONG, GETDOUBLE, GETVAR, GETSTR, GETCAR, GETFLOAT Tmax 4GL Programming Guide

132 GETCAR Function GETCAR(ByVal Carptr&, text As String, Datalen As Long) As Long CARRAY String text. Carptr : FDL Text : Datalen : Dim lsendbuf As Long Dim lrecvbuf As Long Dim text As String Dim lret As Long Dim lrbuflen As Long lsendbuf = tpalloc("carray", "", 1024) lrecvbuf = tpalloc("carray", "", 1024) lret = tpcall(byval SVC1, ByVal lsendbuf, ByVal DataLen&, lrecvbuf, lrbuflen, ByVal 0) 'CARRAY. lret = GETCAR(lsendbuf, text, lrbuflen) GETINT, GETLONG, GETDOUBLE, GETVAR, GETSTR, GETFLOAT, GETSTR, GETCHR Tmax 4GL Programming Guide

133 TmaxError Sub TmaxError(StrErr As String) StrErr tperrno string error MsgBox. StrErr : Dim lsendbuf As Long Dim lrecvbuf As Long Dim lret As Long Dim lrbuflen As Long lsendbuf = tpalloc("carray", "", 1024) lrecvbuf = tpalloc("carray", "", 1024) lret = tpcall(byval "SVC1", ByVal lsendbuf, ByVal 0, lrecvbuf, lrbuflen, ByVal 0) If lret = -1 Then TmaxError ("tpcall (SVC1)") End If FdlErrorMsg Tmax 4GL Programming Guide

134 FdlErrorMsg Sub FdlErrorMsg(StrErr As String) StrErr fberrno MsgBox. StrErr : lret = fbput(byval lsendbuf, ByVal lfid, ByVal txtinput.text, ByVal 0) If lret = -1 Then FdlErrorMsg("fbput") error processing End If TmaxError Tmax 4GL Programming Guide

135 FilltpstartBuf Function FilltpstartBuf(sndbufp As Long, startinfop As tpstart_t) As Long Tmax tpstart_t. sndbufp : tpalloc startinfop : tpstart_t Dim lsndbuf As Integer Dim lret As Integer TmaxError Tmax 4GL Programming Guide

136 3. Visual Basic Sample, (EMP),,,.. TMAXDIR, IP.. : atmi.bas, fdl.bas, comm.bas, winapi.bas. *** VB *** EmployeeGrid.frm :. EmployeeGrid.frx EmployeeMgr.frm :Main.,,,. MSSCCPRJ.SCC QA_4GL.vbg QA_4GL_Sample.exe QA_4GL_Sample.vbp QA_4GL_Sample.vbw Atmi.bas comm.bas fdl.bas winapi.bas *** *** emp_c.mk : Makefile. emp_c.pc :. AIXOracle 9i. employee.m : Tmax *** *** demo.f : Field key bufferr. tmax. - Tmax : NULL - : FIELD KEY BUFFER fdlc fdl - : tpcall() Tmax 4GL Programming Guide

137 - : Tms AutoTransaction - : FDLSELECT, FDLINSERT, FDLDELETE, FDLUPDATE - : SVRGROUP EmployeeMgr EmployeeMgr Caption= LabelErr Caption= BtnExit BtnIns BtnDel BtnUdt BtnSel EditName EditEmpNo EditDept EditComm EditSal EditDate EditMgr EditJob Caption= Caption= Caption= Caption= Caption= < > Tmax 4GL Programming Guide

138 < > EmployeeMgr.frm Source Option Explicit Private Sub BtnDel_Click() Dim Isendbuf As Long Dim Irecvbuf As Long Dim Irbuflen As Long Dim Iret As Long Dim text As String Dim value As Long Dim dvalue As Double Dim svalue As Single Dim tx_b As Integer Dim txbool As Integer ' 1, 0 ' ' tpstart ' tmaxstart ' ' txbool = 0 If EditEmpNo.text = "" Then MsgBox "." Tmax 4GL Programming Guide

139 tmaxend Exit Sub End If value = Trim(EditEmpNo.text) ' ' Isendbuf = fballoc(100, 1024) If Isendbuf = Null Then TmaxError ("fballoc") Call fbfree(isendbuf) tmaxend Exit Sub End If ' ' Irecvbuf = fballoc(100, 1024) If Irecvbuf = Null Then TmaxError ("fballoc") Call fbfree(irecvbuf) tmaxend Exit Sub End If Iret = PUTLONG(ByVal Isendbuf, "EMPNO", 0, value) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If ' ' Iret = tx_begin txbool = 1 If Iret < 0 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If ' ' Iret = tpcall(byval "FDLDELETE", ByVal Isendbuf, ByVal 0, Irecvbuf, Irbuflen, ByVal 0) LabelErr.Caption = "sbuf = " & Isendbuf & ", rbuf = " & Irecvbuf If Iret = -1 Then TmaxError ("tpcall(svc1)") ViewErr (Irecvbuf) Call ExitSub(txbool, Isendbuf, Irecvbuf) Tmax 4GL Programming Guide

140 End If ' ' Iret = tx_commit If Iret < 0 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) Else txbool = 1 Call ExitSub(txbool, Isendbuf, Irecvbuf) End If End Sub Private Sub BtnExit_Click() End End Sub Private Sub BtnIns_Click() Dim Isendbuf As Long Dim Irecvbuf As Long Dim Irbuflen As Long Dim Iret As Long Dim text As String Dim value As Long Dim dvalue As Double Dim svalue As Single Dim lenl As Long Dim txbool As Integer ' 1, 0 ' ' tpstart ' tmaxstart ' ' txbool = 0 If EditEmpNo.text = "" Then MsgBox "." tmaxend Exit Sub End If ' ' Isendbuf = fballoc(100, 1024) If Isendbuf = Null Then TmaxError ("fballoc") Call fbfree(isendbuf) Tmax 4GL Programming Guide

141 tmaxend Exit Sub End If ' ' Irecvbuf = fballoc(100, 1024) If Irecvbuf = Null Then TmaxError ("fballoc") Call fbfree(irecvbuf) tmaxend Exit Sub End If Iret = PUTLONG(ByVal Isendbuf, "EMPNO", 0, Trim(EditEmpNo.text)) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If Iret = PUTVAR(ByVal Isendbuf, "ENAME", 0, Trim(EditName.text)) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If Iret = PUTVAR(ByVal Isendbuf, "JOB", 0, Trim(EditJob.text)) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If Iret = PUTLONG(ByVal Isendbuf, "MGR", 0, Trim(EditMgr.text)) If Iret = -1 Then ' ' Call ExitSub(txbool, Isendbuf, Irecvbuf) End If Iret = PUTVAR(ByVal Isendbuf, "DATE", 0, Trim(EditDate.text)) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If svalue = Trim(EditSal.text) ' fbput, fbget_fldkey comm.bas. ' ' fbget_fldkey. ' Iret = fbput(byval Isendbuf, ByVal fbget_fldkey("sal"), svalue, ByVal lenl) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If '. ' Tmax 4GL Programming Guide

142 'svalue = Trim(EditComm.text) 'Iret = fbput(byval Isendbuf, ByVal fbget_fldkey("comm"), svalue, ByVal lenl) 'If Iret = -1 Then ' FdlErrorMsg ("fbput") ' Exit Sub 'End If '. ' Iret = PUTFLOAT(ByVal Isendbuf, "COMM", 0, Trim(EditComm.text)) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If Iret = PUTLONG(ByVal Isendbuf, "DEPTNO", 0, Trim(EditDept.text)) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If ' ' Iret = tx_begin txbool = 1 If Iret < 0 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If ' ' Iret = tpcall(byval "FDLINSERT", ByVal Isendbuf, ByVal 0, Irecvbuf, Irbuflen, ByVal 0) LabelErr.Caption = "sbuf = " & Isendbuf & ", rbuf = " & Irecvbuf If Iret = -1 Then TmaxError ("tpcall(svc1)") ViewErr (Irecvbuf) Call ExitSub(txbool, Isendbuf, Irecvbuf) End If ' ' Iret = tx_commit If Iret < 0 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) Else txbool = 1 Call ExitSub(txbool, Isendbuf, Irecvbuf) End If Tmax 4GL Programming Guide

143 End Sub ' ' ' ' Private Sub BtnSel_Click() Hide ' ' EmployeeGrid.Show End Sub ' ' Private Sub BtnUdt_Click() Dim Isendbuf As Long Dim Irecvbuf As Long Dim Irbuflen As Long Dim Iret As Long Dim text As String Dim value As Long Dim dvalue As Double Dim svalue As Single Dim lenl As Long Dim txbool As Integer ' 1, 0 ' ' tpstart ' tmaxstart ' ' txbool = 0 If EditEmpNo.text = "" Then MsgBox "." tmaxend Exit Sub End If ' ' Isendbuf = fballoc(100, 1024) If Isendbuf = Null Then TmaxError ("fballoc") Call fbfree(isendbuf) tmaxend Exit Sub End If ' ' Irecvbuf = fballoc(100, 1024) Tmax 4GL Programming Guide

144 If Irecvbuf = Null Then TmaxError ("fballoc") Call fbfree(irecvbuf) tmaxend Exit Sub End If Iret = PUTLONG(ByVal Isendbuf, "EMPNO", 0, Trim(EditEmpNo.text)) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If Iret = PUTVAR(ByVal Isendbuf, "ENAME", 0, Trim(EditName.text)) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If Iret = PUTVAR(ByVal Isendbuf, "JOB", 0, Trim(EditJob.text)) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If Iret = PUTLONG(ByVal Isendbuf, "MGR", 0, Trim(EditMgr.text)) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If Iret = PUTVAR(ByVal Isendbuf, "DATE", 0, Trim(EditDate.text)) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If svalue = Trim(EditSal.text) ' Declare Function fbput Lib "TMAX4GL.DLL" (ByVal pfbuf As Long, ByVal fieldid As Long, pbuffer As Any, ByVal Fieldlen As Long) As Long Iret = fbput(byval Isendbuf, ByVal fbget_fldkey("sal"), svalue, ByVal lenl) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If svalue = Trim(EditComm.text) Iret = fbput(byval Isendbuf, ByVal fbget_fldkey("comm"), svalue, ByVal lenl) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If Tmax 4GL Programming Guide

145 Iret = PUTLONG(ByVal Isendbuf, "DEPTNO", 0, Trim(EditDept.text)) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If ' ' Iret = tx_begin txbool = 1 If Iret < 0 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If ' ' Iret = tpcall(byval "FDLUPDATE", ByVal Isendbuf, ByVal 0, Irecvbuf, Irbuflen, ByVal 0) LabelErr.Caption = "sbuf = " & Isendbuf & ", rbuf = " & Irecvbuf If Iret = -1 Then TmaxError ("tpcall(svc1)") ViewErr (Irecvbuf) Call ExitSub(txbool, Isendbuf, Irecvbuf) End If ' ' Iret = tx_commit If Iret < 0 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) Else txbool = 1 Call ExitSub(txbool, Isendbuf, Irecvbuf) End If End Sub Private Sub ExitSub(txbool As Integer, Isendbuf As Long, Irecvbuf As Long) If txbool = 1 Then tx_rollback End If ' ' Call fbfree(byval Isendbuf&) Call fbfree(byval Irecvbuf&) ' tpend ' tmaxend Tmax 4GL Programming Guide

146 Exit Sub End Sub ' tpstart ' Private Sub tmaxstart() Dim ret As Integer '. ' ' atmi.bas. ' ' Declare Function tmaxreadenv Lib "TMAX4GL.DLL" (ByVal envfile As String, ByVal label As String) As Long ' ' Tmax Reference Manual. ' ret = tmaxreadenv("c:\tmax.env", "aix5l389") If ret < 0 Then TmaxError ("tmaxreadenv") Exit Sub End If ret = tpstart(byval 0&) If ret = -1 Then LabelErr.Caption = "tpstart error = " & gettperrno() TmaxError ("tpstart") Exit Sub Else LabelErr.Caption = "tpstart return value = " & ret & " tpstart success" End If End Sub ' tpend ' Private Sub tmaxend() Dim ret As Integer ret = tpend() If ret = -1 Then LabelErr.Caption = "tpend error = " & gettperrno() TmaxError ("tpend") Exit Sub Else LabelErr.Caption = "tpreturn return value = " & ret End If End Sub Tmax 4GL Programming Guide

147 < > ' ' Private Sub ViewErr(ByVal a As Long) 'E_TYPE 9009 long - - 'E_CODE 9010 long - - 'E_MSG 9011 string - - 'E_TMP 9012 long - - Dim typel, codel, tmpl As Long Dim msgs As String Dim Iret As Integer ' Tmax FDL Reference Manual ' ' comm.bas ' Iret = fbget_tu(byval a, ByVal fbget_fldkey("e_type"), 0, typel, 0) If Iret = -1 Then FdlErrorMsg ("fbget_tu") Exit Sub End If Iret = fbget_tu(byval a, ByVal fbget_fldkey("e_code"), 0, codel, 0) If Iret = -1 Then FdlErrorMsg ("fbget_tu") Exit Sub End If Iret = GETVAR(ByVal a, "E_MSG", 0, msgs) If Iret = -1 Then TmaxError ("ViewErr, GETVAR, E_MSG") Exit Sub End If Iret = fbget_tu(byval a, ByVal fbget_fldkey("e_tmp"), 0, tmpl, 0) If Iret = -1 Then FdlErrorMsg ("fbget_tu") Exit Sub End If ' ' Tmax 4GL Programming Guide

148 MsgBox ("Error Type : " & typel & ",Code : " & codel & ",Message : " & msgs & ",Tmp : " & tmpl) End Sub Tmax 4GL Programming Guide

149 EmployeeGrid EmployeeGrid Caption= InfoText MultiLine=True BtnReturn Caption= < > < > EmployeeGrid.frm Source LabelErr Option Explicit ' ' Private Sub BtnReturn_Click() Hide EmployeeMgr.Show End Sub ' Click ' Private Sub Form_Activate() Dim Isendbuf As Long Tmax 4GL Programming Guide

150 Dim Irecvbuf As Long Dim Irbuflen As Long Dim Iret As Integer Dim text As String Dim value As Long Dim dvalue As Double Dim svalue As Single Dim lenl As Long Dim inits, outputs As String Dim empnos, enames, jobs, mgrs, dates, sals, comms, deptnos As String Dim cntl As Long Dim eno As Long Dim txbool As Integer ' 1, 0 ' ' tpstart ' tmaxstart ' ' txbool = 0 inits = vbcrlf & vbtab & vbtab & vbtab & "***** *****" & vbcrlf & vbtab & "=========================================================" & vbcrlf & vbtab & " COMM " & vbcrlf & vbtab & "=========================================================" & vbcrlf & vbcrlf If EmployeeMgr.EditEmpNo.text = "" Then MsgBox "." Hide EmployeeMgr.Show Exit Sub End If ' ' Isendbuf = fballoc(100, 1024) If Isendbuf = Null Then TmaxError ("fballoc") Call fbfree(isendbuf) tmaxend Exit Sub End If ' ' Irecvbuf = fballoc(100, 1024) If Irecvbuf = Null Then Tmax 4GL Programming Guide

151 TmaxError ("fballoc") Call fbfree(irecvbuf) tmaxend Exit Sub End If '. eno = Trim(EmployeeMgr.EditEmpNo.text) Iret = fbput(byval Isendbuf, ByVal fbget_fldkey("empno"), eno, ByVal lenl) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If ' ' Iret = tpcall(byval "FDLSELECT", ByVal Isendbuf, ByVal 0, Irecvbuf, Irbuflen, ByVal 0) If Iret = -1 Then ViewErr (Irecvbuf) Call ExitSub(txbool, Isendbuf, Irecvbuf) End If cntl = fbkeyoccur(byval Irecvbuf, ByVal fbget_fldkey("empno")) Dim i As Long For i = 0 To cntl - 1 Iret = GETLONG(ByVal Irecvbuf, "EMPNO", i, value) If Iret = -1 Then TmaxError ("GETLONG(EMPNO)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If empnos = value Iret = GETVAR(ByVal Irecvbuf, "ENAME", i, text) If Iret = -1 Then TmaxError ("GETVAR(ENAME)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If enames = text Iret = GETVAR(ByVal Irecvbuf, "JOB", i, text) If Iret = -1 Then TmaxError ("GETVAR(JOB)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If jobs = text Tmax 4GL Programming Guide

152 Iret = GETLONG(ByVal Irecvbuf, "MGR", i, value) If Iret = -1 Then TmaxError ("GETLONG(MGR)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If mgrs = value Iret = GETVAR(ByVal Irecvbuf, "DATE", i, text) If Iret = -1 Then TmaxError ("GETVAR(DATE)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If dates = text ' SAL float. ' ' comm.bas. ' Iret = fbget_tu(byval Irecvbuf, ByVal fbget_fldkey("sal"), i, svalue, 0) If Iret = -1 Then FdlErrorMsg ("fbget_tu") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If sals = svalue Iret = GETFLOAT(ByVal Irecvbuf, "COMM", i, svalue) If Iret = -1 Then TmaxError ("GETFLOAT(COMM)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If comms = svalue Iret = GETLONG(ByVal Irecvbuf, "DEPTNO", i, value) If Iret = -1 Then TmaxError ("GETLONG(DEPTNO)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If deptnos = value & vbcrlf outputs = outputs & " " & empnos & vbtab & enames & vbtab & jobs & vbtab & mgrs & vbtab & dates & vbtab & sals & vbtab & comms & vbtab & deptnos Next i InfoText.text = inits & outputs ' ' LabelErr.Caption = "SAL = " & dvalue Tmax 4GL Programming Guide

153 Call ExitSub(txbool, Isendbuf, Irecvbuf) End Sub Private Sub ExitSub(txbool As Integer, Isendbuf As Long, Irecvbuf As Long) If txbool = 1 Then tx_rollback End If ' ' Call fbfree(byval Isendbuf&) Call fbfree(byval Irecvbuf&) ' tpend ' tmaxend Exit Sub End Sub ' tpstart ' Private Sub tmaxstart() Dim ret As Integer '. ' ' atmi.bas. ' ' Declare Function tmaxreadenv Lib "TMAX4GL.DLL" (ByVal envfile As String, ByVal label As String) As Long ' ' Tmax Reference Manual. ' ret = tmaxreadenv("c:\tmax.env", "aix5l389") If ret < 0 Then TmaxError ("tmaxreadenv") Exit Sub End If ret = tpstart(byval 0&) If ret = -1 Then LabelErr.Caption = "tpstart error = " & gettperrno() TmaxError ("tpstart") Exit Sub Else LabelErr.Caption = "tpstart return value = " & ret & " tpstart success" End If End Sub ' tpend ' Tmax 4GL Programming Guide

154 Private Sub tmaxend() Dim ret As Integer ret = tpend() If ret = -1 Then LabelErr.Caption = "tpend error = " & gettperrno() TmaxError ("tpend") Exit Sub Else LabelErr.Caption = "tpreturn return value = " & ret End If End Sub ' ' Private Sub ViewErr(ByVal a As Long) 'E_TYPE 9009 long - - 'E_CODE 9010 long - - 'E_MSG 9011 string - - 'E_TMP 9012 long - - Dim typel As Long Dim codel As Long Dim msgs As String Dim tmpl As Long Dim Iret As Integer Iret = fbget_tu(byval a, ByVal fbget_fldkey("e_type"), 0, typel, 0) If Iret = -1 Then FdlErrorMsg ("fbget_tu") Exit Sub End If Iret = fbget_tu(byval a, ByVal fbget_fldkey("e_code"), 0, codel, 0) If Iret = -1 Then FdlErrorMsg ("fbget_tu") Exit Sub End If Iret = GETVAR(ByVal a, "E_MSG", 0, msgs) Iret = fbget_tu(byval a, ByVal fbget_fldkey("e_tmp"), 0, tmpl, 0) If Iret = -1 Then FdlErrorMsg ("fbget_tu") Exit Sub End If MsgBox ("Error Type : " & typel & ",Code : " & codel & ",Message : " & msgs & ",Tmp : " & tmpl) Tmax 4GL Programming Guide

155 End Sub demo.f DataBase EMP Table EMPNO NUMBER NOT NULL P1 ENAME VARCHAR(16) JOB VARCHAR(16) MGR NUMBER HIREDATE DATE SAL NUMBER(7,2) COMM NUMBER(7,2) DEPTNO NUMBER Tmax 4GL Programming Guide

156 emp_c.pc Tmax 4GL Programming Guide

157 Tmax 4GL Programming Guide

158 Tmax 4GL Programming Guide

159 Tmax 4GL Programming Guide

160 Tmax 4GL Programming Guide

161 Tmax 4GL Programming Guide

162 } Tmax 4GL Programming Guide

163 emp_c.mk Tmax 4GL Programming Guide

164 tmconfig.m *DOMAIN dom1 *NODE tmax1 *SVRGROUP svg1 *SERVER emp_c *SERVICE FDLSELECT FDLUPDATE FDLDELETE FDLINSERT SHMKEY=70000, MAXUSER=200, MINCLH=1, MAXCLH=5, TPORTNO=8888, BLOCKTIME=200, TXTIME=200 TMAXDIR="/home/tmax", APPDIR="/home/tmax/appbin", PATHDIR="/home/tmax/path", TLOGDIR= "/home/tmax/log/tlog", SLOGDIR="/home/tmax/log/slog" ULOGDIR="/home/tmax/log/ulog" NODENAME=tmax1, DBNAME=ORACLE, OPENINFO="ORACLE_XA+Acc=P/scott/tiger+SesTm=60", TMSNAME = svg1_tms SVGNAME=svg1, MIN=1 SVRNAME= emp_c SVRNAME= emp_c SVRNAME= emp_c SVRNAME= emp_c Tmax 4GL Programming Guide

165 III. Delphi Tmax 4GL Programming Guide

166 1.,.. C.. atmi Tmax Reference ManualTmax Programing Guide.. atmi.pas fdl.pas : atmi : Tmax 4GL Programming Guide

167 2. Delphi Sample,. tpstart TPSTART_T Tmax Tmax. : atmi.pas, fdl.pas, TuxSvc.pas. *** *** Atmi.dcu Atmi.pas EmployeeMgr.bpg EmployeeMgr.cfg EmployeeMgr.dof EmployeeMgr.dpr EmployeeMgr.exe EmployeeMgr.res Fdl.dcu Fdl.pas TuxSvc.pas main.dcu main.dfm main.pas : client. *** *** emp_c.mk : Makefile. emp_c.pc :. AIXOracle 9i. employee.m : Tmax *** *** demo.f : Field key bufferr. tmax. - Tmax : Tmax - : FIELD KEY BUFFER fdlc fdl - : tpcall() - : Tms AutoTransaction Tmax 4GL Programming Guide

168 - : FDLSELECT, FDLDELETE, FDLUPDATE, FDLINSERT - : SVRGROUP EmployeeMgrForm EmployeeMgrForm Caption= LabelErr TLabel Caption= BtnExit TButton Caption= BtnIns TButton Caption= BtnDel TButton Caption= BtnUdt TButton Caption= BtnSel TButton Caption= EditName EditEmpNo EditDept EditComm EditSal EditDate EditMgr EditJob MList BtnReturn TEdit TEdit TEdit TEdit TEdit TEdit TEdit TEdit TMemo TButton < > Tmax 4GL Programming Guide

169 < > main.pas Source unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TEmployeeMgrForm = class(tform) LabelEmpNo: TLabel; LabelName: TLabel; EditEmpNo: TEdit; EditName: TEdit; GroupBoxInfo: TGroupBox; LabelJob: TLabel; LabelMgr: TLabel; LabelDate: TLabel; LabelSal: TLabel; EditJob: TEdit; EditMgr: TEdit; EditDate: TEdit; EditSal: TEdit; EditComm: TEdit; Tmax 4GL Programming Guide

170 EditDept: TEdit; LabelComm: TLabel; LabelDept: TLabel; BtnSel: TButton; BtnUdt: TButton; BtnDel: TButton; BtnIns: TButton; BtnExit: TButton; LabelErr: TLabel; MList: TMemo; BtnReturn: TButton; procedure BtnExitClick(Sender: TObject); procedure BtnSelClick(Sender: TObject); procedure BtnUdtClick(Sender: TObject); procedure BtnDelClick(Sender: TObject); procedure BtnInsClick(Sender: TObject); procedure tmaxstart(); procedure BtnReturnClick(Sender: TObject); procedure ViewErr( a:pointer ); { Private declarations } public { Public declarations } end; var EmployeeMgrForm: TEmployeeMgrForm; implementation // Atmi, Fdl uses Atmi, Fdl; const BufferSize = 1024; {$R *.DFM} // String {$H+} procedure TEmployeeMgrForm.tmaxStart(); var tpinfo: ptpstart; ret: integer; begin // atmi.pas. Tmax 4GL Programming Guide

171 // Function tmaxreadenv(a:pchar; b:pchar):integer; cdecl; external TmaxDLL; // Tmax Reference Manual. ret := tmaxreadenv('c:\tmax.env', 'aix5l389'); if ret < 0 then begin ShowMessage('tmaxreadenv Error'); Exit; end; // tpstart tpinfo := tpalloc('tpstart', NIL, 0); if tpinfo = Nil then begin ShowMessage('tpinfo tpalloc failed,' + StrPas(tpstrerror(gettperrno))); tpfree(tpinfo); Exit; end; // //. // // // tpinfo.usrname := 'tmax'; // // tpinfo.cltname := 'tmax'; // // tpinfo.flags := TPUNSOL_POLL; // Tmax ret := tpstart(tpinfo); if ret < 0 then begin ShowMessage('tpstart failed' + StrPas(tpstrerror(gettperrno))); tpfree(tpinfo); tpend(); Exit; end; // tpfree(tpinfo); end; //. procedure TEmployeeMgrForm.BtnExitClick(Sender: TObject); begin tpend(); close; end; Tmax 4GL Programming Guide

172 procedure TEmployeeMgrForm.BtnUdtClick(Sender: TObject); var sndbuf, revbuf: Pointer; ret, empno_l, mgr_l, deptno_l: longint; sal_f, comm_f: single; job_s, ename_s: pointer; rlen: integer; date_s: string[100]; begin tmaxstart(); // sndbuf := fballoc(1000, 10000); if sndbuf = Nil then begin ShowMessage('sndbuf tpalloc failed, ' + StrPas(tpstrerror(gettperrno))); fbfree(sndbuf); tpend(); Exit; end; // revbuf := fballoc(1000, 10000); if revbuf = Nil then begin ShowMessage('revbuf tpalloc failed, ' + StrPas(tpstrerror(gettperrno))); fbfree(revbuf); tpend(); Exit; end; empno_l := StrToInt(EditEmpNo.text); fbput(sndbuf, 0); ename_s := PChar(EditName.text); fbput(sndbuf, fbget_fldkey('ename'), ename_s, 0); job_s := PChar(EditJob.text); fbput(sndbuf, fbget_fldkey('job'), job_s, 0); mgr_l := StrToInt(EditMgr.text); fbput(sndbuf, 0); // date_s := PChar(EditDate.text); // fbput(sndbuf, 0); date_s := EditDate.text; Tmax 4GL Programming Guide

173 rlen := length(editdate.text); ret := fbchg_tu(sndbuf, 0); if ret = -1 then begin LabelErr.Caption := LabelErr.Caption + 'DATE error!!!'; Exit; end; sal_f := StrToFloat(EditSal.text); fbput(sndbuf, 0); comm_f := StrToFloat(EditComm.text); fbput(sndbuf, 0); deptno_l := StrToInt(EditDept.text); fbput(sndbuf, 0); // ret := tx_begin(); if ret = -1 then begin LabelErr.Caption := LabelErr.Caption + 'tx_begin error'; Exit; end; // ret := tpcall('fdlupdate', 0); if ret < 0 then begin ViewErr(revbuf); tx_rollback(); fbfree(sndbuf); fbfree(revbuf); tpend(); Exit; end; ret := tx_commit(); if ret < 0 then begin ShowMessage('tx_commit failed! ' + StrPas(tpstrerror(gettperrno))); tx_rollback(); fbfree(sndbuf); fbfree(revbuf); tpend(); Exit; end; // fbfree(sndbuf); Tmax 4GL Programming Guide

174 fbfree(revbuf); tpend(); end; procedure TEmployeeMgrForm.BtnDelClick(Sender: TObject); var sndbuf, revbuf: Pointer; empno_l, ret: longint; rlen: integer; begin tmaxstart(); // sndbuf := fballoc(1000, 10000); if sndbuf = Nil then begin ShowMessage('sndbuf tpalloc failed, ' + StrPas(tpstrerror(gettperrno))); tpend(); Exit; end; // revbuf := fballoc(1000, 10000); if sndbuf = Nil then begin ShowMessage('sndbuf tpalloc failed, ' + StrPas(tpstrerror(gettperrno))); tpend(); Exit; end; empno_l := StrToInt(EditEmpNo.text); fbput(sndbuf, 0); // ret := tx_begin(); if ret = -1 then begin LabelErr.Caption := LabelErr.Caption + 'tx_begin error'; Exit; end; // ret := tpcall('fdldelete', 0); if ret < 0 then begin ViewErr(revbuf); tx_rollback(); fbfree(sndbuf); fbfree(revbuf); tpend(); Tmax 4GL Programming Guide

175 Exit; end; ret := tx_commit(); if ret < 0 then begin ViewErr(revbuf); tx_rollback(); fbfree(sndbuf); fbfree(revbuf); tpend(); Exit; end; // fbfree(sndbuf); fbfree(revbuf); tpend(); end; procedure TEmployeeMgrForm.BtnInsClick(Sender: TObject); var sndbuf, revbuf: Pointer; empno_l, mgr_l, deptno_l: longint; sal_f, comm_f: single; job_s, ename_s, date_s: string[100]; ret, rlen: integer; begin // tpstart tmaxstart(); // LabelErr.Caption := ''; sndbuf := fballoc(1000,10000); if sndbuf = Nil then begin LabelErr.Caption := 'sndbuf tpalloc failed, ' + StrPas(tpstrerror(gettperrno)); fbfree(sndbuf); tpend(); Exit; end; revbuf := fballoc(100,1000); if revbuf = Nil then begin LabelErr.Caption := 'revbuf tpalloc failed, ' + StrPas(tpstrerror(gettperrno)); fbfree(revbuf); tpend(); Exit; Tmax 4GL Programming Guide

176 end; empno_l := StrToInt(EditEmpNo.text); ret := fbput(sndbuf, 0); if ret = -1 then begin LabelErr.Caption := 'EMPNO error!!!'; Exit; end; ename_s := EditName.text; rlen := length(editname.text); ret := fbchg_tu(sndbuf, fbget_fldkey('ename'),0,@ename_s[1], 0); if ret = -1 then begin LabelErr.Caption := LabelErr.Caption + 'ENAME error!!!'; Exit; end; job_s := EditJob.text; rlen := length(editjob.text); ret := fbchg_tu(sndbuf, fbget_fldkey('job'),0,@job_s[1], 0); if ret = -1 then begin LabelErr.Caption := LabelErr.Caption + 'JOB error!!!'; Exit; end; mgr_l := StrToInt(EditMgr.text); ret := fbput(sndbuf, 0); if ret = -1 then begin LabelErr.Caption := LabelErr.Caption + 'MGR error!!!'; Exit; end; date_s := EditDate.text; rlen := length(editdate.text); ret := fbchg_tu(sndbuf, fbget_fldkey('date'),0,@date_s[1], 0); if ret = -1 then begin LabelErr.Caption := LabelErr.Caption + 'DATE error!!!'; Exit; end; sal_f := StrToFloat(EditSal.text); ret := fbput(sndbuf, 0); if ret = -1 then begin LabelErr.Caption := LabelErr.Caption + 'SAL error!!!'; Exit; end; Tmax 4GL Programming Guide

177 comm_f := StrToFloat(EditComm.text); ret := fbput(sndbuf, 0); if ret = -1 then begin LabelErr.Caption := LabelErr.Caption + 'COMM error!!!'; Exit; end; deptno_l := StrToInt(EditDept.text); ret := fbput(sndbuf, 0); if ret = -1 then begin LabelErr.Caption := LabelErr.Caption + 'DEPTNO error!!!'; Exit; end; // ret := tx_begin(); if ret = -1 then begin LabelErr.Caption := LabelErr.Caption + 'tx_begin error'; Exit; end; // ret := tpcall('fdlinsert', 0); if ret < 0 then begin ViewErr(revbuf); tx_rollback(); fbfree(sndbuf); fbfree(revbuf); tpend(); Exit; end; ret := tx_commit(); if ret < 0 then begin ViewErr(revbuf); tx_rollback(); fbfree(sndbuf); fbfree(revbuf); tpend(); Exit; end; // fbfree(revbuf); fbfree(sndbuf); tpend(); Tmax 4GL Programming Guide

178 end; procedure TEmployeeMgrForm.BtnReturnClick(Sender: TObject); begin BtnReturn.Visible := false; MList.Visible := false; end; procedure TEmployeeMgrForm.ViewErr( a:pointer ); var types: PChar; codes: PChar; msgs: PChar; tmps: PChar; // Iret: Integer; begin // E_TYPE 9009 long - - // E_CODE 9010 long - - // E_MSG 9011 string - - // E_TMP 9012 long - - types := fbgetvals(a, fbget_fldkey('e_type'), 0); codes := fbgetvals(a, fbget_fldkey('e_code'), 0); msgs := fbgetvals(a, fbget_fldkey('e_msg'), 0); tmps := fbgetvals(a, fbget_fldkey('e_tmp'), 0); ShowMessage('Error Type : ' + types + ',Code : ' + codes + ',Message : ' + msgs + ',Tmp : ' + tmps); end; Tmax 4GL Programming Guide

179 //. procedure TEmployeeMgrForm.BtnSelClick(Sender: TObject); var sndbuf, revbuf: Pointer; empno_l, ret: longint; rlen: integer; varf: single; cnt_i, i: integer; empno_s, name_s, job_s, mgr_s, date_s, sal_s, comm_s, dept_s: string; output_s: string; init_s: string; begin // MList.Visible := true; BtnReturn.Visible := true; tmaxstart(); // sndbuf := fballoc(100,1000); if sndbuf = Nil then begin ShowMessage('sndbuf tpalloc failed, ' + StrPas(tpstrerror(gettperrno))); fbfree(sndbuf); Tmax 4GL Programming Guide

180 tpend(); Exit; end; // revbuf := fballoc(100,1000); if revbuf = Nil then begin ShowMessage('revbuf tpalloc failed, ' + StrPas(tpstrerror(gettperrno))); fbfree(revbuf); tpend(); Exit; end; empno_l := StrToInt(EditEmpNo.text); fbput(sndbuf, 0); // ret := tpcall('fdlselect', 0); if ret < 0 then begin ViewErr(revbuf); fbfree(sndbuf); fbfree(revbuf); init_s := #10#13#9#9#9'*********** ***********'#10#9'================================================== ==========='#10#9' COMM '#10#9'========================================================== ==='#10; output_s := init_s + ' '; MList.Lines.Text := output_s; tpend(); Exit; end; cnt_i := fbkeyoccur(revbuf, fbget_fldkey('empno')); for i := 0 to cnt_i -1 do begin empno_s := fbgetvals(revbuf, fbget_fldkey('empno'),i); name_s := fbgetvals(revbuf, fbget_fldkey('ename'),i); job_s := fbgetvals(revbuf, fbget_fldkey('job'),i); mgr_s := fbgetvals(revbuf, fbget_fldkey('mgr'),i); date_s := fbgetvals(revbuf, fbget_fldkey('date'),i); sal_s := fbgetvals(revbuf, fbget_fldkey('sal'),i); comm_s := fbgetvals(revbuf, fbget_fldkey('comm'),i); dept_s := fbgetvals(revbuf, fbget_fldkey('deptno'),i); output_s := output_s + ' ' + empno_s + #9 + name_s + #9 + job_s + Tmax 4GL Programming Guide

181 #9 + mgr_s + #9 + date_s + #9 + sal_s + #9 + comm_s + #9 + dept_s + #10 ; end; init_s := #10#13#9#9#9'*********** ***********'#10#9'================================================== ==========='#10#9' COMM '#10#9'========================================================== ==='#10; output_s := init_s + output_s; MList.Lines.Text := output_s; // fbfree(sndbuf); fbfree(revbuf); tpend(); end; Tmax 4GL Programming Guide

182 procedure TEmployeeMgrForm.ViewErr( a:pointer ); var types: PChar; codes: PChar; msgs: PChar; tmps: PChar; // Iret: Integer; begin // E_TYPE 9009 long - - // E_CODE 9010 long - - // E_MSG 9011 string - - // E_TMP 9012 long - - types := fbgetvals(a, fbget_fldkey('e_type'), 0); codes := fbgetvals(a, fbget_fldkey('e_code'), 0); msgs := fbgetvals(a, fbget_fldkey('e_msg'), 0); tmps := fbgetvals(a, fbget_fldkey('e_tmp'), 0); ShowMessage('Error Type : ' + types + ',Code : ' + codes + ',Message : ' + msgs + ',Tmp : ' + tmps); end; Tmax 4GL Programming Guide

183 demo.f DataBase EMP Table EMPNO NUMBER NOT NULL P1 ENAME VARCHAR(16) JOB VARCHAR(16) MGR NUMBER HIREDATE DATE SAL NUMBER(7,2) COMM NUMBER(7,2) DEPTNO NUMBER Tmax 4GL Programming Guide

184 emp_c.pc Tmax 4GL Programming Guide

185 Tmax 4GL Programming Guide

186 Tmax 4GL Programming Guide

187 Tmax 4GL Programming Guide

188 Tmax 4GL Programming Guide

189 Tmax 4GL Programming Guide

190 } Tmax 4GL Programming Guide

191 emp_c.mk Tmax 4GL Programming Guide

192 tmconfig.m *DOMAIN dom1 *NODE tmax1 *SVRGROUP svg1 *SERVER emp_c *SERVICE FDLSELECT FDLUPDATE FDLDELETE FDLINSERT SHMKEY=70000, MAXUSER=200, MINCLH=1, MAXCLH=5, TPORTNO=8888, BLOCKTIME=200, TXTIME=200 TMAXDIR="/home/tmax", APPDIR="/home/tmax/appbin", PATHDIR="/home/tmax/path", TLOGDIR= "/home/tmax/log/tlog", SLOGDIR="/home/tmax/log/slog" ULOGDIR="/home/tmax/log/ulog" NODENAME=tmax1, DBNAME=ORACLE, OPENINFO="ORACLE_XA+Acc=P/scott/tiger+SesTm=60", TMSNAME = svg1_tms SVGNAME=svg1, MIN=1 SVRNAME= emp_c SVRNAME= emp_c SVRNAME= emp_c SVRNAME= emp_c Tmax 4GL Programming Guide

193 IV. Visual Basic.net Tmax 4GL Programming Guide

194 1... atmi.vb : atmi fdl.vb : TmaxMacros.vb : WinApi.vb : windows Tmax. atmi Tmax Reference Manual Tmax Programming Guide.. Tmax 4GL Programming Guide

195 2. ErrorMsg Public Shared Function ErrorMsg (ByVal pbuffer As Integer, ByVal msg As String) As Integer TmaxMacros.vb. fieldkey STATLIN tpurcode MsgBox. msg MsgBox. pbuffer : msg : Dim lsndbuf, lrcvbuf As Integer Dim rlen, lret As Integer lret = tpcall("fdltoupper", lsndbuf, 0, lrcvbuf, rlen, TPNOFLAGS) If lret < 0 Then ErrorMsg(lrcvbuf, "FDLTOUPPER") End If integer : -1. FdlErrorMsg Tmax 4GL Programming Guide

196 FdlErrorMsg Public Shared Function FdlErrorMsg(ByVal msg As String) As Integer fdl. msg MsgBox. msg : Dim lsndbuf As Integer Dim lret As Integer lret = fbput(lsndbuf, fbget_fldkey("input"), txtsmallf.text, txtsmallf.textlength) If lret < 0 Then FdlErrorMsg("fbput") End If integer : -1. ErrorMsg Tmax 4GL Programming Guide

197 PUTINT Public Shared Function PUTINT(ByVal pfbuf As Integer, _ ByVal fldname As String, _ ByVal nth As Integer, _ ByRef value As Integer) As Integer Tmax fdl fbchg_tu() nth fldname value. value Integer. fbchg_tu() (nth) (value),. pfbuf : tpalloc() fballoc() fldname : (pfbuf) nth : value : Integer Dim lsndbuf As Integer Dim lret As Integer Dim tempi As Integer lsndbuf = fballoc(10, 100) tempi = CInt(txtInt.Text) lret = PUTINT(lsndbuf, "INTDATA", 2, tempi) If lret < 0 Then error processing End If integer : -1. PUTLONG, PUTDOUBLE, PUTFLOAT, PUTSHORT, PUTCAR3, PUTVAR, PUTCHR Tmax 4GL Programming Guide

198 PUTLONG Public Shared Function PUTLONG(ByVal pfbuf As Integer, _ ByVal fldname As String, _ ByVal nth As Integer, _ ByRef value As Long) As Integer Tmax fdl fbchg_tu() nth fldname value. valuelong. fbchg_tu() (nth) (value),. pfbuf : tpalloc() fballoc() fldname : (pfbuf) nth : value : Long Dim lsndbuf As Integer Dim lret As Integer Dim templ As Long lsndbuf = fballoc(10, 100) templ = CLong(txtLong.Text) lret = PUTLONG(lsndbuf, "LONGDATA", 2, templ) If lret < 0 Then error processing End If integer : -1. PUTINT, PUTDOUBLE, PUTFLOAT, PUTSHORT, PUTCAR3, PUTVAR, PUTCHR Tmax 4GL Programming Guide

199 PUTDOUBLE Public Shared Function PUTDOUBLE(ByVal pfbuf As Integer, _ ByVal fldname As String, _ ByVal nth As Integer, _ ByRef value As Double) As Integer Tmax fdl fbchg_tu() nth fldname value. valuedouble. fbchg_tu() (nth) (value),. pfbuf : tpalloc() fballoc() fldname : (pfbuf) nth : value : Double Dim lsndbuf As Integer Dim lret As Integer Dim tempd As Double lsndbuf = fballoc(10, 100) tempd = CDbl(txtDouble.Text) lret = PUTDOUBLE(lsndbuf, "DOUBLEDATA", 2, tempd) If lret < 0 Then error processing End If integer : -1. PUTINT, PUTLONG, PUTFLOAT, PUTSHORT, PUTCAR3, PUTVAR, PUTCHR Tmax 4GL Programming Guide

200 PUTFLOAT Public Shared Function PUTFLOAT(ByVal pfbuf As Integer, _ ByVal fldname As String, _ ByVal nth As Integer, _ ByRef value As Single) As Integer Tmax fdl fbchg_tu() nth fldname value. valuesingle. fbchg_tu() (nth) (value),. pfbuf : tpalloc() fballoc() fldname : (pfbuf) nth : value : String Dim lsndbuf As Integer Dim lret As Integer Dim temps As Single lsndbuf = fballoc(10, 100) temps = CSng(txtSingle.Text) lret = PUTFLOAT(lsndbuf, "TAPE_SENT", 2, temps) If lret < 0 Then error processing End If integer : -1. PUTINT, PUTLONG, PUTSHORT, PUTDOUBLE, PUTCAR3, PUTVAR, PUTCHR Tmax 4GL Programming Guide

201 PUTSHORT Public Shared Function PUTSHORT(ByVal pfbuf As Integer, _ ByVal fldname As String, _ ByVal nth As Integer, _ ByRef value As Short) As Integer Tmax fdl fbchg_tu() nth fldname value. valueshort. fbchg_tu() (nth) (value),. pfbuf : tpalloc() fballoc() fldname : (pfbuf) nth : value : Short Dim lsndbuf As Integer Dim lret As Integer Dim temps As Short lsndbuf = fballoc(10, 100) temps = CShort(txtShort.Text) lret = PUTSHORT(lsndbuf, "SUPER_NUM", 2, temps) If lret < 0 Then error processing End If integer : -1. PUTINT, PUTLONG, PUTFLOAT, PUTDOUBLE, PUTCAR3, PUTVAR, PUTCHR Tmax 4GL Programming Guide

202 PUTCAR3 Public Shared Function PUTCAR3(ByVal pfbuf As Integer, _ ByVal fldname As String, _ ByVal nth As Integer, _ ByRef value() As Byte, _ ByVal len As Integer) As Integer Tmax fdl fbchg_tu() nth fldname value. value Byte array. binary. fbchg_tu() (nth) (value),. pfbuf : tpalloc() fballoc() fldname : (pfbuf) nth : value : Binary len : Binary Dim lsndbuf As Integer Dim lret As Integer Dim tempb() As Short Dim fs As FileStream Dim br As BinaryReader Dim FilePath As String lsndbuf = fballoc(10, 100) fs = New FileStream(FilePath, FileMode.Open, FileAccess.Read, FileShare.None) br = New BinaryReader(fs) ReDim tempb(cint(fs.length)) br.read(tempbr, 0, CInt(fs.Length)) br.close() fs.close() lret = PUTCAR3(lsendbuf, "TP_BITMAP", 0, tempb, Cint(fs.Length)) If lret < 0 Then error processing End If Tmax 4GL Programming Guide

203 integer : -1. PUTINT, PUTLONG, PUTSHORT, PUTDOUBLE, PUTFLOAT, PUTVAR, PUTCHR Tmax 4GL Programming Guide

204 PUTVAR Public Shared Function PUTVAR(ByVal pfbuf As Integer, _ ByVal fldname As String, _ ByVal nth As Integer, _ ByVal value As String) As Integer Tmax fdl fbchg_tu() nth fldname value. valuestring. fbchg_tu() (nth) (value),. pfbuf : tpalloc() fballoc() fldname : (pfbuf) nth : value : String Dim lsndbuf As Integer Dim lret As Integer Dim temps As String lsndbuf = fballoc(10, 100) temps = txtstring.text lret = PUTVAR(lsndbuf, " FILENAME ", 2, temps) If lret < 0 Then error processing End If integer : -1. PUTINT, PUTLONG, PUTSHORT, PUTDOUBLE, PUTFLOAT, PUTCAR3, PUTCHR Tmax 4GL Programming Guide

205 PUTCHR Public Shared Function PUTCHR(ByVal pfbuf As Integer, _ ByVal fldname As String, _ ByVal nth As Integer, _ ByRef value As Char, _ ByVal len As Integer) As Integer Tmax fdl fbchg_tu() nth fldname value. valuechar. fbchg_tu() (nth) (value),. pfbuf : tpalloc() fballoc() fldname : (pfbuf) nth : value : Char len Char Dim lsndbuf As Integer Dim lret As Integer Dim tempc As Char lsndbuf = fballoc(10, 100) tempc = New String("a").ToCharArray() lret = PUTCHR(lsndbuf, "CHR", 0, tempc(0), 1) If lret < 0 Then error processing End If integer : -1. PUTINT, PUTLONG, PUTSHORT, PUTDOUBLE, PUTFLOAT, PUTCAR3, PUTVAR Tmax 4GL Programming Guide

206 PUTCAR Public Shared Function PUTCAR(ByVal pbuffer As Integer, _ ByVal value As String, _ ByVal len As Integer) As Integer carray tpalloc(). PBuffer : tpalloc () Value : String Len : String Dim lsndbuf As Integer Dim rlet As Integer Dim temps As String lsndbuf = tpalloc( CARRAY,, 0) temps = txtstring.text lret = PUTCAR(lsndbuf, temps, temps.length) If lret < 0 Then MsgBox( PUTCAR fail [ & tpstrerror(gettperrno()) & ] ) End If integer : -1. GETCAR Tmax 4GL Programming Guide

207 PUTCAR2 Public Shared Function PUTCAR2(ByVal pbuffer As Integer, _ ByRef value() As Byte, _ ByVal len As Integer) As Integer binary tpalloc(). pbuffer : tpalloc() value : Binary len : Binary Dim lsndbuf As Integer Dim lret As Integer Dim tempb() As Short Dim fs As FileStream Dim br As BinaryReader Dim FilePath As String lsndbuf = tpalloc( CARRAY,, 0) fs = New FileStream(FilePath, FileMode.Open, FileAccess.Read, FileShare.None) br = New BinaryReader(fs) ReDim tempb(cint(fs.length)) br.read(tempbr, 0, CInt(fs.Length)) br.close() fs.close() lret = PUTCAR2(lsendbuf, tempb, Cint(fs.Length)) If lret < 0 Then MsgBox( PUTCAR2 fail [ & tpstrerror(gettperrno()) & ] ) End If integer : -1. GETCAR2 Tmax 4GL Programming Guide

208 GETINT Public Shared Function GETINT(ByVal pfbuf As Integer, _ ByRef fldname As String, _ ByVal nth As Integer, _ ByRef value As Integer) As Integer Tmax fdl fbget_tu() fldname nth value. value Integer. pfbuf : tpalloc() fballoc() fldname : (pfbuf). nth : value : Dim lsndbuf As Integer Dim lret As Integer Dim tempi As Integer lsndbuf = fballoc(10, 100) lret = GETINT(lsndbuf, "INTDATA", 0, tempi) If lret < 0 Then error processing End If integer : -1. GETLONG, GETDOUBLE, GETFLOAT, GETSHORT, GETCAR3, GETVAR, GETCHR Tmax 4GL Programming Guide

209 GETLONG Public Shared Function GETLONG(ByVal pfbuf As Integer, _ ByRef fldname As String, _ ByVal nth As Integer, _ ByRef value As Long) As Integer Tmax fdl fbget_tu() fldname nth value. value Long. pfbuf : tpalloc() fballoc() fldname : (pfbuf). nth : value : Dim lsndbuf As Integer Dim lret As Integer Dim templ As Long lsndbuf = fballoc(10, 100) lret = GETINT(lsndbuf, "LONGDATA", 0, templ) If lret < 0 Then error processing End If integer : -1. GETINT, GETDOUBLE, GETFLOAT, GETSHORT, GETCAR3, GETVAR, GETCHR Tmax 4GL Programming Guide

210 GETDOUBLE Public Shared Function GETINT(ByVal pfbuf As Integer, _ ByRef fldname As String, _ ByVal nth As Integer, _ ByRef value As Double) As Integer Tmax fdl fbget_tu() fldname nth value. value Double. pfbuf : tpalloc() fballoc() fldname : (pfbuf). nth : value : Dim lsndbuf As Integer Dim lret As Integer Dim tempid As Double lsndbuf = fballoc(10, 100) lret = GETDOUBLE(lsndbuf, "DOUBLEDATA", 0, tempd) If lret < 0 Then error processing End If integer : -1. GETINT, GETLONG, GETFLOAT, GETSHORT, GETCAR3, GETVAR, GETCHR Tmax 4GL Programming Guide

211 GETFLOAT Public Shared Function GETFLOAT(ByVal pfbuf As Integer, _ ByRef fldname As String, _ ByVal nth As Integer, _ ByRef value As Single) As Integer Tmax fdl fbget_tu() fldname nth value. value Single. pfbuf : tpalloc() fballoc() fldname : (pfbuf). nth : value : Dim lsndbuf As Integer Dim lret As Integer Dim temps As Single lsndbuf = fballoc(10, 100) lret = GETFLOAT(lsndbuf, "TAPE_SENT", 0, temps) If lret < 0 Then error processing End If integer : -1. GETINT, GETLONG, GETDOUBLE, GETSHORT, GETCAR3, GETVAR, GETCHR Tmax 4GL Programming Guide

212 GETSHORT Public Shared Function GETSHORT(ByVal pfbuf As Integer, _ ByRef fldname As String, _ ByVal nth As Integer, _ ByRef value As Short) As Integer Tmax fdl fbget_tu() fldname nth value. value Short. pfbuf : tpalloc() fballoc() fldname : (pfbuf). nth : value : Dim lsndbuf As Integer Dim lret As Integer Dim temps As Short lsndbuf = fballoc(10, 100) lret = GETSHORT(lsndbuf, "SUPER_NUM", 0, temps) If lret < 0 Then error processing End If integer : -1. GETINT, GETLONG, GETDOUBLE, GETFLOAT, GETCAR3, GETVAR, GETCHR Tmax 4GL Programming Guide

213 GETCAR3 Public Shared Function GETCAR3(ByVal pfbuf As Integer, _ ByRef fldname As String, _ ByVal nth As Integer, _ ByRef value() As Byte, _ ByRef len As Integer) As Integer Tmax fdl fbget_tu() fldname nth value. valuebyte array. pfbuf : tpalloc() fballoc() fldname : (pfbuf). nth : value : len : Dim lsndbuf As Integer Dim lret As Integer Dim tempb() As Byte Dim len As Integer lsndbuf = fballoc(10, 100) lret = GETCAR3(lsndbuf, "TP_BITMAP", 0, tempb, len) If lret < 0 Then error processing End If integer : -1. GETINT, GETLONG, GETDOUBLE, GETFLOAT, GETSHORT, GETVAR, GETCHR Tmax 4GL Programming Guide

214 GETVAR Public Shared Function GETVAR(ByVal pfbuf As Integer, _ ByRef fldname As String, _ ByVal nth As Integer, _ ByRef value As String) As Integer Tmax fdl fbget_tu() fldname nth value. value String. pfbuf : tpalloc() fballoc() fldname : (pfbuf). nth : value : Dim lsndbuf As Integer Dim lret As Integer Dim temps As String lsndbuf = fballoc(10, 100) lret = GETVAR(lsndbuf, "FILENAM", 0, temps) If lret < 0 Then error processing End If integer : -1. GETINT, GETLONG, GETDOUBLE, GETFLOAT, GETSHORT, GETCAR3, GETCHR Tmax 4GL Programming Guide

215 GETCHR Public Shared Function GETCHR(ByVal pfbuf As Integer, _ ByRef fldname As String, _ ByVal nth As Integer, _ ByRef value As Char, _ ByRef len As Integer) As Integer Tmax fdl fbget_tu() fldname nth value. value CARRAY. GETVAR STINGCARRAY. CARRAY Len. STRING NULL. PFBUF : tpalloc() fballoc() fldname : (pfbuf). Nth : Value : Len : Dim lsndbuf As Integer Dim lret As Integer Dim tempc As Char Dim len As Integer lsndbuf = fballoc(10, 100) lret = GETCHR(lsndbuf, "CHR", 0, tempc, len) If lret < 0 Then error processing End If integer : -1. GETINT, GETLONG, GETDOUBLE, GETFLOAT, GETSHORT, GETCAR3, GETVAR Tmax 4GL Programming Guide

216 GETCAR Public Shared Function GETCAR(ByVal pbuffer As Integer, _ ByRef value As String, _ ByVal len As Integer) As Integer String tpalloc(). pbuffer : tpalloc() value : len : Dim lsndbuf As Integer Dim lret As Integer Dim temps As String lsndbuf = tpalloc( STRING,, 0) lret = GETCAR(lrcvbuf, temps, 10) If lret < 0 Then error processing End If integer : -1. PUTCAR Tmax 4GL Programming Guide

217 GETCAR2 Public Shared Function GETCAR2(ByVal pbuffer As Integer, _ ByRef value() As Byte, _ ByVal len As Integer) As Integer Binary tpalloc(). pbuffer : tpalloc() value : len : Dim lsndbuf As Integer Dim lret As Integer Dim tempb() As Byte lsndbuf = tpalloc( STRING,, 0) lret = GETCAR2(lrcvbuf, tempb, 1024) If lret < 0 Then error processing End If integer : -1. PUTCAR2 Tmax 4GL Programming Guide

218 FilltpstartBuf Public Shared Function FilltpstartBuf(ByVal pbuffer As Integer, _ ByVal startinfop As tpstart_t) As Integer Tmax tpstart_t. pbuffer : tpalloc() startinfo : tpstart_t Dim lsndbuf As Integer Dim lret As Integer Dim cinfo As tpstart_t lsndbuf = tpalloc("tpstart", "", 0) If lsndbuf = 0 Then error processing End If cinfo.cltname = "tmax" + Chr(0) cinfo.usrname = "tmax" + Chr(0) cinfo.dompwd = "xamt" + Chr(0) cinfo.usrpwd = "batman" + Chr(0) cinfo.flags = TPUNSOL_HND lret = FilltpstartBuf(lsndbuf, cinfo) If ret < 0 Then error processing End If ret = tpstart(lsndbuf) If ret < 0 Then error processing End integer : Tmax 4GL Programming Guide

219 3. Visual Basic.NET Sample account id,,,. : atmi.vb, fdl.vb, TmaxMacros.vb, WinAPI.vb. *** VB.net *** AssemblyInfo.vb CodeFile1.vb EmployeeGrid.resx EmployeeGrid.vb :. EmployeeMgr.resx EmployeeMgr.sln EmployeeMgr.suo EmployeeMgr.vb : Main.,,,. EmployeeMgr.vbproj EmployeeMgr.vbproj.user TmaxMacros.vb WinAPI.vb atmi.vb fdl.vb *** *** emp_c.mk : Makefile. emp_c.pc :. AIXOracle 9i. employee.m : Tmax *** *** demo.f : Field key bufferr. tmax. Option Explicit ' ' Private Sub BtnReturn_Click() Hide EmployeeMgr.Show End Sub ' Click ' Private Sub Form_Activate() ' tpstart ' Tmax 4GL Programming Guide

220 tmaxstart Dim Isendbuf As Long Dim Irecvbuf As Long Dim Irbuflen As Long Dim Iret As Integer Dim text As String Dim value As Long Dim dvalue As Double Dim svalue As Single Dim lenl As Long Dim inits, outputs As String Dim empnos, enames, jobs, mgrs, dates, sals, comms, deptnos As String Dim cntl As Long Dim eno As Long Dim txbool As Integer ' 1, 0 ' ' tpstart ' tmaxstart ' ' txbool = 0 inits = vbcrlf & vbtab & vbtab & vbtab & "***** *****" & vbcrlf & vbtab & "=========================================================" & vbcrlf & vbtab & " COMM " & vbcrlf & vbtab & "=========================================================" & vbcrlf & vbcrlf If EmployeeMgr.EditEmpNo.text = "" Then MsgBox "." Hide EmployeeMgr.Show Exit Sub End If ' ' Isendbuf = fballoc(100, 1024) If Isendbuf = Null Then TmaxError ("fballoc") Call fbfree(isendbuf) tmaxend Exit Sub End If ' ' Tmax 4GL Programming Guide

221 Irecvbuf = fballoc(100, 1024) If Irecvbuf = Null Then TmaxError ("fballoc") Call fbfree(irecvbuf) tmaxend Exit Sub End If '. eno = Trim(EmployeeMgr.EditEmpNo.text) Iret = fbput(byval Isendbuf, ByVal fbget_fldkey("empno"), eno, ByVal lenl) If Iret = -1 Then Call ExitSub(txbool, Isendbuf, Irecvbuf) End If ' ' Iret = tpcall(byval "FDLSELECT", ByVal Isendbuf, ByVal 0, Irecvbuf, Irbuflen, ByVal 0) If Iret = -1 Then ViewErr (Irecvbuf) Call ExitSub(txbool, Isendbuf, Irecvbuf) End If cntl = fbkeyoccur(byval Irecvbuf, ByVal fbget_fldkey("empno")) Dim i As Long For i = 0 To cntl - 1 Iret = GETLONG(ByVal Irecvbuf, "EMPNO", i, value) If Iret = -1 Then TmaxError ("GETLONG(EMPNO)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If empnos = value Iret = GETVAR(ByVal Irecvbuf, "ENAME", i, text) If Iret = -1 Then TmaxError ("GETVAR(ENAME)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If enames = text Iret = GETVAR(ByVal Irecvbuf, "JOB", i, text) If Iret = -1 Then TmaxError ("GETVAR(JOB)") Call ExitSub(txbool, Isendbuf, Irecvbuf) Tmax 4GL Programming Guide

222 End If jobs = text Iret = GETLONG(ByVal Irecvbuf, "MGR", i, value) If Iret = -1 Then TmaxError ("GETLONG(MGR)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If mgrs = value Iret = GETVAR(ByVal Irecvbuf, "DATE", i, text) If Iret = -1 Then TmaxError ("GETVAR(DATE)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If dates = text ' SAL float. ' ' comm.bas. ' Iret = fbget_tu(byval Irecvbuf, ByVal fbget_fldkey("sal"), i, svalue, 0) If Iret = -1 Then FdlErrorMsg ("fbget_tu") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If sals = svalue Iret = GETFLOAT(ByVal Irecvbuf, "COMM", i, svalue) If Iret = -1 Then TmaxError ("GETFLOAT(COMM)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If comms = svalue Iret = GETLONG(ByVal Irecvbuf, "DEPTNO", i, value) If Iret = -1 Then TmaxError ("GETLONG(DEPTNO)") Call ExitSub(txbool, Isendbuf, Irecvbuf) End If deptnos = value & vbcrlf outputs = outputs & " " & empnos & vbtab & enames & vbtab & jobs & vbtab & mgrs & vbtab & dates & vbtab & sals & vbtab & comms & vbtab & deptnos Next i InfoText.text = inits & outputs Tmax 4GL Programming Guide

223 ' ' LabelErr.Caption = "SAL = " & dvalue Call ExitSub(txbool, Isendbuf, Irecvbuf) End Sub Private Sub ExitSub(txbool As Integer, Isendbuf As Long, Irecvbuf As Long) If txbool = 1 Then tx_rollback End If ' ' Call fbfree(byval Isendbuf&) Call fbfree(byval Irecvbuf&) ' tpend ' tmaxend Exit Sub End Sub ' tpstart ' Private Sub tmaxstart() Dim ret As Integer '. ' ' atmi.bas. ' ' Declare Function tmaxreadenv Lib "TMAX4GL.DLL" (ByVal envfile As String, ByVal label As String) As Long ' ' Tmax Reference Manual. ' ret = tmaxreadenv("c:\tmax.env", "aix5l389") If ret < 0 Then TmaxError ("tmaxreadenv") Exit Sub End If ret = tpstart(byval 0&) If ret = -1 Then LabelErr.Caption = "tpstart error = " & gettperrno() TmaxError ("tpstart") Exit Sub Else LabelErr.Caption = "tpstart return value = " & ret & " tpstart success" End If Tmax 4GL Programming Guide

224 End Sub ' tpend ' Private Sub tmaxend() Dim ret As Integer ret = tpend() If ret = -1 Then LabelErr.Caption = "tpend error = " & gettperrno() TmaxError ("tpend") Exit Sub Else LabelErr.Caption = "tpreturn return value = " & ret End If End Sub ' ' Private Sub ViewErr(ByVal a As Long) 'E_TYPE 9009 long - - 'E_CODE 9010 long - - 'E_MSG 9011 string - - 'E_TMP 9012 long - - Dim typel As Long Dim codel As Long Dim msgs As String Dim tmpl As Long Dim Iret As Integer Iret = fbget_tu(byval a, ByVal fbget_fldkey("e_type"), 0, typel, 0) If Iret = -1 Then FdlErrorMsg ("fbget_tu") Exit Sub End If Iret = fbget_tu(byval a, ByVal fbget_fldkey("e_code"), 0, codel, 0) If Iret = -1 Then FdlErrorMsg ("fbget_tu") Exit Sub End If Iret = GETVAR(ByVal a, "E_MSG", 0, msgs) Iret = fbget_tu(byval a, ByVal fbget_fldkey("e_tmp"), 0, tmpl, 0) If Iret = -1 Then FdlErrorMsg ("fbget_tu") Exit Sub End If MsgBox ("Error Type : " & typel & ",Code : " & codel & ",Message : " & msgs & Tmax 4GL Programming Guide

225 ",Tmp : " & tmpl) End Sub - Tmax : tpstart_t - : FIELD KEY BUFFER fdlc fdl - : tpcall() - : Tms AutoTransaction - : FDLSELECT, FDLINSERT - : SVRGROUP Tmax 4GL Programming Guide

226 EmployeeMgr EmployeeMgr Caption= LabelErr Caption= BtnExit BtnIns BtnDel BtnUdt BtnSel EditName EditEmpNo EditDept EditComm EditSal EditDate EditMgr EditJob Caption= Caption= Caption= Caption= Caption= < > Tmax 4GL Programming Guide

227 < > EmployeeMgr.vb source Tmax 4GL Programming Guide

228 Tmax 4GL Programming Guide

229 Tmax 4GL Programming Guide

230 Tmax 4GL Programming Guide

231 Tmax 4GL Programming Guide

232 Tmax 4GL Programming Guide

233 Tmax 4GL Programming Guide

234 Tmax 4GL Programming Guide

235 Tmax 4GL Programming Guide

236 Tmax 4GL Programming Guide

237 EmployeeGrid EmployeeGrid Caption= ListTextBox MultiLine=True BtnReturn Caption= < > < > EmployeeGrid.frm Source Tmax 4GL Programming Guide

238 Tmax 4GL Programming Guide

239 Tmax 4GL Programming Guide

240 Tmax 4GL Programming Guide

241 Tmax 4GL Programming Guide

242 Tmax 4GL Programming Guide

243 Tmax 4GL Programming Guide

244 Tmax 4GL Programming Guide

245 Tmax 4GL Programming Guide

246 Tmax 4GL Programming Guide

247 Tmax 4GL Programming Guide

248 Tmax 4GL Programming Guide

249 Tmax 4GL Programming Guide

250 demo.f DataBase EMP Table EMPNO NUMBER NOT NULL P1 ENAME VARCHAR(16) JOB VARCHAR(16) MGR NUMBER HIREDATE DATE SAL NUMBER(7,2) COMM NUMBER(7,2) DEPTNO NUMBER Tmax 4GL Programming Guide

251 emp_c.pc Tmax 4GL Programming Guide

252 Tmax 4GL Programming Guide

253 Tmax 4GL Programming Guide

254 Tmax 4GL Programming Guide

255 Tmax 4GL Programming Guide

256 Tmax 4GL Programming Guide

257 } Tmax 4GL Programming Guide

258 emp_c.mk Tmax 4GL Programming Guide

259 tmconfig.m *DOMAIN dom1 *NODE tmax1 *SVRGROUP svg1 *SERVER emp_c *SERVICE FDLSELECT FDLUPDATE FDLDELETE FDLINSERT SHMKEY=70000, MAXUSER=200, MINCLH=1, MAXCLH=5, TPORTNO=8888, BLOCKTIME=200, TXTIME=200 TMAXDIR="/home/tmax", APPDIR="/home/tmax/appbin", PATHDIR="/home/tmax/path", TLOGDIR= "/home/tmax/log/tlog", SLOGDIR="/home/tmax/log/slog" ULOGDIR="/home/tmax/log/ulog" NODENAME=tmax1, DBNAME=ORACLE, OPENINFO="ORACLE_XA+Acc=P/scott/tiger+SesTm=60", TMSNAME = svg1_tms SVGNAME=svg1, MIN=1 SVRNAME= emp_c SVRNAME= emp_c SVRNAME= emp_c SVRNAME= emp_c Tmax 4GL Programming Guide

260 V. C#.net Tmax 4GL Programming Guide

261 1... Atmi.cs : atmi Fdl.cs : Tx.cs : WinApi.cs : windows TmaxApi.cs RQ, Tmax. atmi Tmax Reference ManualTmax Programing Guide C#. Tmax 4GL Programming Guide

262 2. C#.NET Sample,,,,,,,. 8 singleline editor1, 6., 50.,,,. 4GL_Sample.sln : Form1.csTmax Library client emp_c.pc : service (Oracle ) demo.f : Field Key Buffer emp_c.mk: Makefile tmconfig.m : Tmax - Tmax Library : Atmi.cs, Fdl.cs, Tx.cs, WinApi.cs, TmaxApi.cs - : FIELD KEY BUFFER fdlc fdl - : pb_tpcall() - :,,, - Tmax :,. - : FDLSELECT, FDLUPDATE, FDLDELETE, FDLINSERT - : SVRGROUP ( XA ) SVRGROUP Tmax 4GL Programming Guide

263 < > < > Tmax 4GL Programming Guide