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