As vantagens do Can-find

A utilização do comando CAN-FIND retorna apenas a verificação se o registro existe ou não, ao contrário do comando FIND que pode tornar o registro habilitado até mesmo para escrita.
O principal ganho para a melhoria da performance, é que o comando CAN-FIND retorna apenas um valor lógico, enquanto o comando FIND busca o registro todo, causando maior trafego de informações na rede. Além disto, o fato de ele não trazer o registro todo evita problemas de usuários travados na mesma tabela.
Este comando pode ser usado, por exemplo, para verificar se um registro já existe na hora de fazer um cadastro novo.
Exemplo da utilizaçao do comando:

Trocar:

Código:

FIND <tabela> WHERE <tabela>.<campo-chave> = <VALOR> no-lock.
IF NOT AVAILABLE <tabela> THEN DO:
  CREATE <tabela>.
  ASSIGN <tabela>.<campo-chave>.
END.
ASSIGN <tabela>.<demais-campos>.

Por:

Código:

IF NOT CAN-FIND(<tabela> WHERE <tabela>.<campo-chave> = <VALOR>) THEN
  CREATE <tabela>.
  ASSIGN <tabela>.<campo-chave>.
END.
ASSIGN <tabela>.<demais-campos>.