ISMARKED()

Class

Transaction Processing

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

Products

Recital Database Server, Recital Mirage Server, Recital Terminal Developer