OpenSpec-Review dokumentieren und ISAM-Vertragsabweichungen beheben

tests/compat/isamopen.bas

@@ -0,0 +1,27 @@
+' tb-screen: 80x25
+' tb-tempdir
+' Weitere Bindungen sehen dieselbe Transaktion; CLOSE schreibt nicht fest.
+TYPE R
+    Nr AS INTEGER
+END TYPE
+DIM r AS R
+ON ERROR GOTO Handler
+OPEN "open.isam" FOR ISAM R "Alt" AS #1
+BEGINTRANS
+r.Nr = 1
+INSERT #1, r
+OPEN "open.isam" FOR ISAM R "Alt" AS #2
+PRINT "sichtbar="; LTRIM$(STR$(LOF(2)))
+OPEN "open.isam" FOR ISAM R "Neu" AS #3
+INSERT #3, r
+CLOSE
+ROLLBACK ALL
+OPEN "open.isam" FOR ISAM R "Alt" AS #1
+PRINT "nach Ruecknahme="; LTRIM$(STR$(LOF(1)))
+DELETETABLE "open.isam", "Neu"
+CLOSE
+PRINT "fertig"
+END
+Handler:
+PRINT "ERR="; LTRIM$(STR$(ERR))
+RESUME NEXT