* В данном примере создается свободная таблица mytable и значение
* "One" помещается в поле cDigit. Мягкая буферизация становится
* возможной после команды SET MULTILOCKS ON и вызова функции
* CURSORSETPROP( ).

* Затем значение "Two" помещается в поле cDigit, функции CURVAL( ) и
* OLDVAL( ) используются для показа первоначальных значений поля cDigit.
* Затем с помощью функции TABLEUPDATE( ) изменения вносятся в
* таблицу; CURVAL( ) и OLDVAL( ) вызываются для показа новых значений
* поля cDigit. Поскольку данный пример рассчитан на одного пользователя,
* функции CURVAL( ) и OLDVAL( ) возвращают одинаковые значения.

CREATE TABLE mytable FREE (cDigit C(10))

INSERT INTO mytable (cDigit) VALUES ("One") && Original value

SET MULTILOCKS ON && Must be on for optimistic table buffering

= CURSORSETPROP('Buffering',5) && Optimistic table buttering on

REPLACE cDigit WITH "Two" && New value

CLEAR

? 'Current value: ' + CURVAL('cDigit', 'mytable')

? 'Old value: ' + OLDVAL('cDigit', 'mytable')

= TABLEUPDATE(.T.) && Commits all changes made to table

? 'Table changes committed'

? 'New current value: ' + CURVAL('cDigit', 'mytable')

? 'New old value: ' + OLDVAL('cDigit', 'mytable')