CLEAR CLOSE DATABASES ALL LOCAL loCrtDB *BEGIN TRANSACTION loCrtDB = CREATEOBJECT('clscreatedatabase') loCrtDB.createdatabase() ? ? "session :",SET("datasession"),"#databases :",ADATABASES(adbc),adbc[1] *END TRANSACTION RETURN DEFINE CLASS clscreatedatabase as Session PROCEDURE createdatabase() CREATE DATABASE c:\tempdb PRIVATE adbc ? "session :",SET("datasession"),"#databases :",ADATABASES(adbc),adbc[1] ENDPROC ENDDEFINETo create a database, doesn't have then, to exist some open transaction.
* with PRIVATE the database is open only in this datasession CREATE DATABASE dbcfilename PRIVATE>sorry i forgot to describe that bit.