PRB: Deleted Records are Committed with TABLEUPDATE

RESOLUTION

   CLOSE ALL
   CLEAR ALL
   SET MULTILOCKS ON
   SET EXCLUSIVE OFF
   **************************************************
   * CREATES A SAMPLE DATABASE AND A SAMPLE TABLE
   ***************************************************
   CREATE DATA test
   CREATE TABLE Tblbuffer (field1 I , field2 c(10))
   INSERT INTO tblbuffer  VALUES (1, 'first')
   INSERT INTO tblbuffer VALUES (2, 'second')
   INSERT INTO tblbuffer  VALUES (3, 'third')
   ****************************************************
   * Sets Optimistic Table Buffering on
   ****************************************************

   =CURSORSETPROP('buffering',5)
   ****************************************************
   * Appends two blank records and deletes one
   ****************************************************
   APPEND BLANK
   REPLACE field2 WITH 'ABC'
   APPEND BLANK
   REPLACE field2 WITH  'DEF'
   DELETE
   ******************************************************
   * Updates table. If records have an append status, check
   * for their deleted flag. If they are deleted , issue a
   * TABLEREVERT().
   *
   GO TOP
   liNextRecord=RECNO()
   DO WHILE liNextRecord!=0
   IF DELETED() AND "4" $ STR(GETFLDSTATE(0))
       =TABLEREVERT()
   ELSE
       =TABLEUPDATE()
   ENDIF
    liCurrRecno=RECNO()
    liNextRecord=GETNEXTMODIFIED(liCurrRecno)
    IF !EOF()
      SKIP
    ENDIF
    ENDDO

   ** BROWSE the table to see the problem
   BROWSE