>FUNCTION openDB > CLOSE TABLES > CLOSE DATABASES ALL > SET EXCLUSIVE ON > SET MULTILOCKS ON > OPEN DATABASE "[path]/m_db" > IF dbused("m_db") > *Opening each table... > USE pat in 1 > =CURSORSETPROP("Buffering", 3) > USE par in 2 > =CURSORSETPROP("Buffering", 3) > USE tem in 3 > =CURSORSETPROP("Buffering", 3) > USE app_error in 5 > =CURSORSETPROP("Buffering", 3) > USE princ in 6 > =CURSORSETPROP("Buffering", 3) > ENDIF >ENDFUNC >
USE xx IN 1 [2,3,etc.]
- use USE xx IN 0
That way you are always using an empty workarea.CURSORSETPROP("Buffering", 3, "princ")