* В следующем примере блокируются первые четыре записи в таблицах
* customer и employee, а затем блокировка снимается.

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

SET REPROCESS TO 3 AUTOMATIC

STORE '1,2,3,4' TO gcRecList

gcOldExc = SET('EXCLUSIVE')

SET EXCLUSIVE OFF

SELECT 0

USE employee && Open Employee table

SELECT 0

USE customer && Open Customer table

? LOCK('1,2,3,4', 'customer') && Lock 1st 4 records in customer

? RLOCK(gcRecList, 'employee') && Lock 1st 4 records in employee

UNLOCK IN customer

UNLOCK IN employee

SET EXCLUSIVE &gcOldExc