O comando Is data file locked retorna True se o arquivo de dados do banco de dados aberto, ou pelo menos um dos seus segmentos está fechado - ou seja, protegido contra gravação.
Colocado, por exemplo, no método de banco de dados Método banco de dados On Startup, este comando permite a prevenção de qualquer risco de abertura acidental de um arquivo de dados bloqueado.
Este método vai impedir a abertura do banco de dados se o arquivo de dados estiver bloqueado:
If(Is data file locked)
ALERT("O arquivo de dados está bloqueado. Impossível abrir o banco.")
QUIT 4D
End if