COMPLETED()

Purpose

Function to determine whether an error occurred during a multi-statement transaction

Syntax

COMPLETED()

See Also

BEGIN TRANSACTION, END TRANSACTION, ISMARKED(), RESET IN, ROLLBACK, ROLLBACK(), SET ROLLBACK

Description

The COMPLETED() function returns .T. if no errors occurred during processing of any command issued between the BEGIN TRANSACTION and END TRANSACTION commands.

Example

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