Enable or disable automatic rollback
SET ROLLBACK ON | OFF | (<expL>)
The SET ROLLBACK ON command invokes automatic rollback and recovery in all tables affected by transactions performed within a BEGIN TRANSACTION....END TRANSACTION block. A ’rollback’ causes record contents to be restored to their value before modification (e.g. at the time BEGIN TRANSACTION was issued). This is particularly useful if an error occurs during the execution of a program or if an Applications Data Dictionary validation constraint is not satisfied.
When BEGIN TRANSACTION is issued all currently open files and all files opened between BEGIN and END TRANSACTION will have Before Image Journaling invoked automatically. To disable rollback for a particular workarea, see the RESET IN command. SET ROLLBACK ON gives automatic rollback and recovery on multi-statement transactions. By default, ROLLBACK is OFF.
use setcomm set rollback on begin transaction delete first 15 replace all t1 with (t2*t3)/100 list end transaction if completed() && determine if the transaction was successful dialog box "Transaction completed" else dialog box "Errors occurred during transaction" endif