Release active table and record locks
UNLOCK [ALL] [IN <alias>]
The UNLOCK command releases any active file or record locks for the currently selected workarea. This command is only effective with shared tables.
If the optional ALL keyword is specified, then the active file and record locks are released for all workareas.
The IN <alias> clause is used to release file or record locks in another workarea. Alias names may be assigned to tables with the USE command.
The UNLOCK command works in conjunction with the RLOCK() and FLOCK() functions, and the LOCKR and LOCKF commands.
set exclusive off use patrons index events, dates, names seek "PHANTOM" do while not rlock() sleep 2 enddo // ... unlock