How can i "friendly" handle errors inside a transaction?

I was thinking about something like this:

xOldError = ON("ERROR")

BEGIN TRANS

ON ERROR xError = .T.

&& inserts, updates and stuff go here

if xError == .T.

&& not sure about what to put in here!!!

endif

ENDTRANS

ON ERROR &xOldError

Any help is welcome.

TIA,

Alonso