Function to verify if journaling is in operation
The ISMARKED() function returns .T. if the current workarea is marked as having a transaction in progress and .F. if not.
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