function dispose() * do any cleanup here quit endfuncI can't remember how Rick cleans up com exes in west-wind but this seems to make since.
>>loEXECOMServer = CREATEOBJECT( "MyEXECOMServerName.FLocker" ) >>loEXECOMServer.dispose() >> >>DEFINE CLASS FLocker AS Session OLEPUBLIC >> * DataSession = 2 (Private Data Session) is the default for the Session class >> >> FUNCTION Init >> SET EXCLUSIVE OFF >> SET TABLEVALIDATE TO 0 >> >> ENDFUNC >> >> FUNCTION dispose() >> release this >> ENDFUNC >> >> FUNCTION TableLock ( tcTable AS String, tcAlias AS String ) AS VOID >> USE ( tcTable ) ALIAS ( tcAlias ) IN 0 SHARED NODATA NOUPDATE >> =FLOCK( tcAlias ) >> >> ENDFUNC >> >> FUNCTION TableUnlock ( tcAlias AS String ) AS VOID >> UNLOCK IN ( tcAlias ) >> USE IN ( tcAlias ) >> >> ENDFUNC >> >>ENDDEFINE >> >>