>DEFINE CLASS cChangeAcct AS Session > >PROCEDURE Init > SET MULTILOCKS ON >ENDPROC > >PROCEDURE MakeChange ( tcOld, tcNew) > > * ... verification of parameters > > This.UseTable("TableA") > > * ... processing table > >ENDPROC > >PROCEDURE UseTable (tcTableName) > > USE (tcTableName) IN 0 SHARED > lSuccess = CURSORSETPROP("Buffering", 5, tcTableName) > MESSAGEBOX(VARTYPE(lSuccess)+TRANSFORM(CURSORGETPROP("Buffering",tcTableName))+SET("Multilocks")) > * Messagebox displays U1ON, suggesting the follwing: > * The CURSORSETPROP command failed > * The buffer mode of the table is 1 > * Set MultiLocks is On > >ENDPROC > >ENDDEF >>