' 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
