FIX: A new feature is available in the Transaction Integrator to initiate persistent TCP/IP connections to CICS in Host Integration Server 2004

//Reference System.Runtime.Remoting
  //          Microsoft.HostIntegration.TI.ClientContext
  //          TCP_LinkELM_NET.CedarBank_Proxy
  try
  {
    // Create a context array and a TI Client Context object.
    object[] ctxArray = null;
    Microsoft.HostIntegration.TI.ClientContext objTIContext = new Microsoft.HostIntegration.TI.ClientContext();

    // Create the TI WIP object and the variables that are used by the TI method.
    TCP_LinkELM_NET.CedarBank wipTI = new TCP_LinkELM_NET.CedarBank();
    string sNameIn = "Jane", sAcct = "1234";
    decimal dBalance = 0.0M;

    // Write to the context array so that the TI runtime will start a persistent connection.
    objTIContext.WriteContext("CONNTYPE", "OPEN", ref ctxArray);

    // Make the first TI method call.
    wipTI.cedrbank(ref sNameIn, ref sAcct, ref dBalance, ref ctxArray);

    textBox1.Text = dBalance.ToString();

    // Set up the context array so that no message header is sent on the next call.
    objTIContext.WriteContext("ELMIN", 0, ref ctxArray);
    objTIContext.WriteContext("ELMOUT", 0, ref ctxArray);

    // Make the second call to the mainframe by using the same connection.
    wipTI.cedrbank(ref sNameIn, ref sAcct, ref dBalance, ref ctxArray);
    textBox2.Text = dBalance.ToString();

    // Set up the context array so that the next method call closes the connection.
    objTIContext.WriteContext("CONNTYPE", "CLOSE", ref ctxArray);

    // Make the third call to the mainframe. This call closes the connection.
    wipTI.cedrbank(ref sNameIn, ref sAcct, ref dBalance, ref ctxArray);

    // Clean up.
    wipTI = null;
    objTIContext = null;
    ctxArray = null;
  }
  catch(Exception ex)
  {
    MessageBox.Show(ex.Message);
  }

'Reference System.Runtime.Remoting
  '          Microsoft.HostIntegration.TI.ClientContext
  '          TCP_LinkTRM_NET.CedarBank_Proxy
  Try
    'Create a context array and a TI Client Context object.
    Dim ctxArray() As Object
    Dim objTIContext As New Microsoft.HostIntegration.TI.ClientContext

    'Create the TI WIP Object and the variables that are used by the TI method.
    Dim wipTI As New TCP_LinkTRM_NET.CedarBank
    Dim sNameIn, sAcct As String
    Dim dBalance As Decimal
    sNameIn = "Jane"
    sAcct = "1234"
    dBalance = 0

    'Write to the context array so that the TI runtime will start a persistent connection.
    objTIContext.WriteContext("CONNTYPE", "OPEN", ctxArray)

    'Make the first TI Method call.
    wipTI.cedrbank(sNameIn, sAcct, dBalance, ctxArray)
    TextBox1.Text = dBalance.ToString()

    'Set up the context array so that no message header will be sent on the next call.
    objTIContext.WriteContext("TRMIN", 0, ctxArray)
    objTIContext.WriteContext("TRMOUT", 0, ctxArray)

    'Make the second call to the mainframe by using the same connection.
    wipTI.cedrbank(sNameIn, sAcct, dBalance, ctxArray)
    TextBox2.Text = dBalance.ToString()

    'Set up the context array so that the next method call closes the connection.
    objTIContext.WriteContext("CONNTYPE", "CLOSE", ctxArray)

    'Make the third call to the mainframe. This call closes the connection.
    wipTI.cedrbank(sNameIn, sAcct, dBalance, ctxArray)

    'Clean up.
    wipTI = Nothing
    objTIContext = Nothing
    ctxArray = Nothing

  Catch ex As Exception
    MessageBox.Show(ex.Message)
  End Try