FIX: Multiple two-phase commit Transaction Integrator calls in an overall distributed transaction fail in Host Integration Server 2004

[assembly: AssemblyKeyFile("")]
[assembly: AssemblyKeyName("")]

using System;
using System.EnterpriseServices;
using System.Reflection;

[assembly: ApplicationName("TI_Tran")]
[assembly: AssemblyKeyFileAttribute("..\\..\\TI_Tran.snk")]


namespace TI_Tran
{
   /// <summary>
   /// Example of having two TI transactional method calls
   /// within one overall rransaction.
   /// </summary>
   class TI_Tran
   {
      /// <summary>
      /// The main entry point for the application.
      /// </summary>
      [STAThread]
      static void Main(string[] args)
      {
         Console.WriteLine("Starting program");
         TI_TranClass myTI_Tran = new TI_TranClass();
         string sOut;
         try
         {
            sOut= myTI_Tran.TestTI_Transaction();
            Console.WriteLine(sOut);
            Console.Write("Press ENTER to exit");
            Console.ReadLine();
         }
         catch (Exception ex)
         {
            Console.WriteLine("\nException occurred calling TI_Tran\n");
            Console.WriteLine(ex.Message);
            Console.Write("Press ENTER to exit");
            Console.ReadLine();
         }
      }
   }
   /// <summary>
   /// The following application makes two different TI calls to a mainframe.
   /// The calls are set up as two-phase commit calls and will be
   /// either committed or aborted.
   /// The TI objects are HIS 2004 TI COM LU6.2 Link objects
   /// </summary>
   [Transaction(TransactionOption.Required)]
   public class TI_TranClass: ServicedComponent
   {
      public TI_TranClass()
      {
      }
      [AutoComplete]
      public string TestTI_Transaction()
      {
         string sRetInfo = "Done - ";
         LinkA.TestClass objTIA = new LinkA.TestClass();
         LinkB.TestClass objTIB = new LinkB.TestClass();
         try
         {
            Console.WriteLine("Begin Test Tran");
            string sInput="AAAAAAAAAAAAAAAAAAAAAAAAA", sCommit;
            decimal dBal;
            Console.WriteLine("About to call first Link TI Method");
            objTIA.MyMethodA(ref sInput, out dBal);
            Console.WriteLine("Finished with first Link TI Method Call: " + dBal.ToString());
            sInput = "BBBBBBBBBBBBBBBBBBBBBBBBB";
            Console.WriteLine("About to call second link TI Method");
            objTIB.MyMethodB(ref sInput, out dBal);
            Console.WriteLine("Finished with second link call: " + dBal.ToString());
            Console.WriteLine("  sInput = " + sInput);
            Console.Write("Shall we commit? (Y/N): ");
            sCommit = Console.ReadLine();
            if ((sCommit == "Y") || (sCommit == "y"))
            {
               Console.WriteLine("Committing");
               ContextUtil.SetComplete();
               sRetInfo = sRetInfo + "Committed";
            }
            else
            {
               Console.WriteLine("Aborting");
               ContextUtil.SetAbort();
               sRetInfo = sRetInfo + "Aborted";
            }
         }
         catch (Exception ex)
         {
            //Something wrong occurred on the TI call.
            //An exception was thrown.
            //This class may want to post an application event
            //then re-throw the exception so the calling application can
            //capture it.
            throw ex;
         }
         finally
         {
            objTIA = null;
            objTIB = null;
         }
         return sRetInfo;
      }
   }
}