I have an agent that uses LS:DO to insert records into a DB2 table. I now need to rewrite this agent so that it uses the DB2 LC LSX instead. The agent currently rolls back all transactions if an error is encountered:

  On Error Goto ErrorHandle
  ...
  con.AutoCommit = False
  con.CommitOnDisconnect = True
  ...
  con.Disconnect

ErrorHandle:

  con.RollbackTransactions
  result.Close ( DB_CLOSE )
  con.Disconnect

I'm trying to determine if the DB2 connector used on the Domino server supports rollback. I tried using the following code to determine if rollback is enabled:

  Call lcSession.LookupConnector ( "db2", connectorCode, identityFlagList )
		
  Print "connectorCode = " & connectorCode
  Print "identityFlagList.Text = " & identityFlagList.Text		
  Print "LCACTIDENTF_ROLLBACK = " & LCACTIDENTF_ROLLBACK
		
  Call identityFlagList.NumberListGetValue ( LCACTIDENTF_ROLLBACK, flagValue )

and this is what I get back:

3/8/2005 10:29:21 AM:  connectorCode = 65536
3/8/2005 10:29:21 AM:  identityFlagList.Text = 616, 31, 638, 20, 20
3/8/2005 10:29:21 AM:  LCACTIDENTF_ROLLBACK = 8
3/8/2005 10:29:21 AM:  LSX Error occurred in INITIALIZE
3/8/2005 10:29:21 AM:  LSX Error: Status 12291
3/8/2005 10:29:21 AM:  LSX Error: Err = 12291
3/8/2005 10:29:21 AM:  LSX Error Line 46
3/8/2005 10:29:21 AM:  LSX Error: Status Text = Error: Cannot locate list element

Since the ROLLBACK flag is 8, and the FlagList doesn't include 8, does this mean that ROLLBACK isn't supported by the DB2 LC LSX? Or, does this mean that I have to have rollback enabled at the DB2 level? Or did I just plain do this wrong?

No comments.