>TableName = "SomeTable" >DataDir = "O:\SomePath\" >* To get a consistent caching effect from the server. >USE (m.DataDir + m.TableName) >USE > >Timer = SECONDS() >USE (m.DataDir + m.TableName) >FirstTimeUse = (SECONDS() - m.Timer) > >* First test with this line commented, then uncomment. >*USE > >oSession = NEWOBJECT("SessionBase") > >Timer = SECONDS() >oSession.Use(m.DataDir + m.TableName) >SecondTimeUse = (SECONDS() - m.Timer) >oSession.Release() >? "First time USE took "+ STR(m.FirstTimeUse,6,4) + ", and 2nd time took " + STR(m.SecondTimeUse,6,4) > > >DEFINE CLASS SessionBase AS Session > PROCEDURE Use(TableName) > USE (m.TableName) > PROCEDURE Release > USE > RELEASE This >ENDDEFINE >>