3989 if (
present(filename))
then
3991 if (.not.
present(connection))
then
3993 dbasession_init%memconnection=dbaconnection(dsn=
"mem:")
3995 dbasession_init=dbasession(dbasession_init%memconnection,&
3996 write=.true.,wipe=lwrite,repinfo=lrepinfo,&
3997 memdb=lmemdb,loadfile=lloadfile)