Difference between revisions of "ISMARKED()"
From Recital Documentation Wiki
Yvonnemilne (Talk | contribs) |
Yvonnemilne (Talk | contribs) |
||
| Line 22: | Line 22: | ||
<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 37: | ||
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 54: | Line 54: | ||
[[Category:Documentation]] | [[Category:Documentation]] | ||
[[Category:Functions]] | [[Category:Functions]] | ||
| + | [[Category:Transaction Processing]] | ||
| + | [[Category:Transaction Processing Functions]] | ||
Revision as of 14:02, 2 June 2009
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
