ISMARKED()

Purpose

Function to verify if journaling is in operation

Syntax

ISMARKED()

See Also

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

Description

The ISMARKED() function returns .T. if the current workarea is marked as having a transaction in progress and .F. if not.

Example

procedure recovery
  rollback 
  if rollback()
      dialog box "Rollback was ok."
  else
      dialog box "Rollback not completed."
  endif
return
 
use setcomm
on error do recovery
if ismarked()
    dialog box "Other transaction in progress."
    return
endif
begin transaction
    delete first 15
    insert
    replace all t1 with (t2*t3)/100
    list
end transaction
if completed()
    dialog box "Transaction completed.  No errors."
else
    dialog box "Errors occurred during transaction"
endif