Current

interface Current  {
     void     begin () raises (SubtransactionsUnavailable);
     void     commit (in boolean report_heuristics)
     raises   (NoTransaction, HeuristicMixed, HeuristicHazard);
     void     rollback () raises (NoTransaction);
     void     rollback_only () raises (NoTransaction);
     Status   get_status ();
     Control  suspend ();
     void     resume(in Control tran) raises (InvalidControl);
     void      set_timeout (in unsigned long seconds);

}

Public Sub begin(Optional ByRef exceptionInfo As VARIANT)
Public Sub commit(	 _
       ByVal report_heuristics As Boolean, _
       Optional ByRef exceptionInfo As VARIANT)
Public Sub rollback(Optional ByRef exceptionInfo As VARIANT)
Public Sub rollback_only(Optional ByRef exceptionInfo As VARIANT)
Public Function get_status(Optional ByRef exceptionInfo As VARIANT)  As Integer
Public Function get_control (Optional ByRef exceptionInfo As VARIANT) As
DICosTransactions_Control
Public Function suspend(Optional ByRef exceptionInfo As VARIANT)  As DICosTransactions_Control
Public Sub resume(	 _
       ByVal tran As DICosTransactions_Control, _
       Optional ByRef exceptionInfo As VARIANT)

Public Sub set_timeout(	 _
       ByVal seconds As Long, _
       Optional ByRef exceptionInfo As VARIANT)