COBOL VSAM - File Status 97 - www.cadcobol.com.br


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

File Status 97
Operação Descrição

OPEN Execução OK. Somente para arquivos VSAM.
O comando OPEN foi executado com sucesso.
Integridade do arquivo foi verificada.

Quando nós usaremos isto em nossos programas?
Nós usamos este código sempre que nós abrimos o arquivo, se código de estado é 00 ou 97 nós continuaremos com a nossa lógica, outro modo, chame rotina de erro.
Usualmente, pode vir quando arquivo não estava fechado.

Por exemplo:

IF   WS-FILE-STATUS NOT = '00' AND '97'
        PERFORM ERROR-ROUTINE
END-IF.