Create tcl

5 years ago · 50b9d2b3ef
parent 3bc9ec0faa
commit 50b9d2b3ef
1 changed files with 11 additions and 0 deletions
--- a/sheets/_db2/tcl
+++ b/sheets/_db2/tcl
@ -0,0 +1,11 @@
+--Commit changes
+COMMIT
+
+--Create a savepoint
+SAVEPOINT sp1 ON ROLLBACK RETAIN CURSORS
+
+--Undo changes until savepoint
+ROLLBACK TO SAVEPOINT sp1
+
+--Undo changes
+ROLLBACK