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

ClearAllContext

CountContext

DeleteContext

QueryContextInfo

ReadContext

WriteContext

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: