>LOCAL loCrtDB >BEGIN TRANSACTION > >loCrtDB = CREATEOBJECT("clscreatedatabase") >loCrtDB.createdatabase() >loCrtDB = .null. > > >END TRANSACTION >RETURN > >DEFINE CLASS clssession as Session > datasession=2 >ENDDEFINE > >DEFINE CLASS clscreatedatabase as clssession > PROCEDURE createdatabase() > CREATE DATABASE c:\tempdb > ENDPROC > > PROCEDURE destroy() > CLOSE DATABASES > ENDPROC >ENDDEFINE