Desfazer todos os bloqueios de dados existentes podendo opcionalmente esvaziar o arquivo de recuperação.
UNLOCK [EMPTY]
Determina o fim de uma transação, desbloqueando o banco de dados ou todos os bloqueios de dados pendentes, liberando assim a tabela de bloqueio do processo.
Este comando é utilizado em conjunto com o comando LOCK.
A opção EMPTY para o comando UNLOCK é útil em programas que efetuam transações muito extensas, criando assim arquivos de recuperação enormes. Após se desbloquear o banco de dados, o arquivo de recuperação permanecia com o tamanho da última transação ocupando espaço desnecessariamente, com esta opção o arquivo é esvaziado após o desbloqueio do banco.
O exemplo a seguir mostra-nos uma utilização do comando UNLOCK
LOCK && Bloqueia o banco de dados.
IF DBERR() # 0
erro = .T.
ELSE
SELECT c
REPLACE AUTOMEM
INSERT
IF DBERR() # 0
erro = .T.
ENDIF
ENDIF
IF erro
UNDO
ENDIF
UNLOCK && Desbloqueia o banco de dados.
$FILES, FIND, LOCK, SEEK, SET LOCKLOOP, SET MESSAGE, LOCK e DBERR( ).