Sample Client Application That Passes a Custom TRM
The following code samples passes a custom TRM:
Private Sub Command1_Click()
Dim Context() As Variant
Dim COMTIContext As Object
Dim CedarBank As New COMTI.TestContext
Dim Balance As Currency
Dim TRMIN As COMTI.TRMINTestTRM
Dim TRMOUT As COMTI.TRMOUTTestTRM
Dim COMMA As Byte
TRMIN.TranID = "TCCB"
TRMIN.CommaDelim = ","
TRMIN.CommAreaLen = 41
TRMIN.ProgName = " "
TRMIN.User = " "
TRMIN.PSWD = " "
Set COMTIContext = CreateObject("COMTI.ContextObject")
COMTIContext.WriteContext "TRMINTestTRM", TRMIN, Context
COMTIContext.WriteContext "TRMOUTTestTRM", TRMOUT, Context
‘ Call using optional context data
CedarBank.cedrbank "Name", "ID1234", Balance, Context
‘ Call without optional context data
CedarBank.cedrbank "Name", "ID1234", Balance
End Sub
See Also
Using Custom TRMs and ELMs with COMTIContext
To download updated Host Integration Server 2004 Help from www.microsoft.com, go to http://go.microsoft.com/fwlink/?linkid=29507. Copyright © 2004 Microsoft Corporation.All rights reserved.
Show: