CLOSE DATABASES

SET REPROCESS TO 3 AUTOMATIC

STORE '1,2,3,4' TO gcRecList && Lock records 1 through 4

gcOldExc = SET('EXCLUSIVE') && Save the EXCLUSIVE setting

SET EXCLUSIVE OFF && Allow sharing of tables

CLOSE DATABASES

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

USE customer && Opens Customer table

SELECT 0

USE employee && Opens Employee table

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

? RLOCK(gcRecList, 'employee') && Lock the first 4 records in employee

UNLOCK IN customer

UNLOCK IN employee

SET EXCLUSIVE &gcOldExc && Restore original EXCLUSIVE setting