Function to determine whether an error occurred during a multi-statement transaction
The COMPLETED() function returns .T. if no errors occurred during processing of any command issued between the BEGIN TRANSACTION and END TRANSACTION commands.
procedure recovery rollback if rollback() dialog box "Rollback was ok." else dialog box "Rollback failed." endif return use setcomm on error do recovery begin transaction reset in comm_2 delete first 15 insert replace all t1 with (t2*t3)/100 list end transaction if completed() dialog box "Transaction completed OK" else dialog box "Errors occurred during transaction" endif