Difference between revisions of "ISMARKED()"
From Recital Documentation Wiki
Yvonnemilne (Talk | contribs) |
Helengeorge (Talk | contribs) |
||
| (2 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
| − | |||
| − | |||
| − | |||
| − | |||
==Purpose== | ==Purpose== | ||
Function to verify if journaling is in operation | Function to verify if journaling is in operation | ||
| Line 22: | Line 18: | ||
<code lang="recital"> | <code lang="recital"> | ||
procedure recovery | procedure recovery | ||
| − | rollback | + | rollback |
| − | if rollback() | + | if rollback() |
| − | + | dialog box "Rollback was ok." | |
| − | else | + | else |
| − | + | dialog box "Rollback not completed." | |
| − | endif | + | endif |
return | return | ||
| Line 37: | Line 33: | ||
endif | endif | ||
begin transaction | begin transaction | ||
| − | delete first 15 | + | delete first 15 |
| − | insert | + | insert |
| − | replace all t1 with (t2*t3)/100 | + | replace all t1 with (t2*t3)/100 |
| − | list | + | list |
end transaction | end transaction | ||
if completed() | if completed() | ||
| Line 51: | Line 47: | ||
==Products== | ==Products== | ||
| − | Recital | + | Recital Server, Recital |
[[Category:Documentation]] | [[Category:Documentation]] | ||
[[Category:Functions]] | [[Category:Functions]] | ||
| + | [[Category:Transaction Processing]] | ||
| + | [[Category:Transaction Processing Functions]] | ||
Latest revision as of 16:45, 2 December 2009
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 Server, Recital
