Transaction Errors

[whwar9739]

Does anyone know of a way to test to see if a transaction was undone? Let me know if need/want more info I can try to describe it better.

Such as a

DO TRANSACTION:
   ...........
   [I]some code....[/I]
[I]   ...........[/I]
END.

 

[Casper]

  procestrans:
  do transaction on error undo procestrans, retry procestrans
                      on stop undo procestrans, retry procestrans
                      on quit undo procestrans retry procestrans:
     if retry then do:
       /*  put here code to manage the error */
      leave procestrans.
     end.
  end.

Casper.

 

[whwar9739]

Thanks Casper.

One other thing. Would there also be a way to get the reason that the transaction quit, errored, or stopped?

 

[Casper]

look at the error-status system handle.