***************************MÓDULO CONSULTAR***********************
6000-CONSULTAR.
MOVE 'MODULO - CONSULTA ' TO WRK-MODULO.
DISPLAY TELA.
ACCEPT CHAVE.
READ CLIENTES
INVALID KEY
MOVE 'REGISTRO NAO ENCONTRADO!' TO WRK-MSGERRO
ACCEPT TELA-ERRO
NOT INVALID KEY
ACCEPT SS-DADOS
END-READ.
Eu achei essa resolução, para sair do looping de mensagem de erro quando busca um registro existente. E dessa forma do código, ele funciona, aparecendo a mensagem de erro apenas quando realmente não é encontrado.
Pode ser feito assim mesmo? Tem algum feedback sobre isso? Se é errado ou não?
