COBOL VSAM - File Status 90 - 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 90
  • Causa indeterminada, passe um VERIFY uma causa possível é OPEN OUTPUT de um arq. vsam reusável com DISP = NEW, mas com access Indexed.

  • Retirar o ACCESS INDEXED ou mudar DISP para Old;
  • OPEN - nome externo da select não compatível;
  • OPEN INPUT ou I-O em arquivo não inicializado;
  • TIMESTAMP do DATA INDEX não checa com a da VTOC ou entre si;
  • Faltando passar VERIFY no arquivo;
  • Faltando cartão DD para arquivo;
  • RBA não corresponde a registro nenhum;
  • STRNO especificado está insuficiente, aumentar-Tipo de processamento (OUTPUT) incompatível com OPEN
  • 1- OPEN INPUT com WRITE;
  • 2- OPEN OUTPUT com REWRITE;
  • 3- OPEN I-O com ACCESS SEQUENTIAL e WRITE;
  • Cláusula ORGANIZATION INDEXED informada indevidamente para ESDS;
  • WRITE via RBA para KSDS indevido;
  • Tentativa de DELETE em ESDS;
  • Falta cláusula ORGANIZATION IS INDEXED para um KSDS;
  • Falta cláusula ORGANIZATION IS RELATIVE para um RRDS;
  • START em arquivo ESDS/RRDS inválido
  • WRITE em arquivo VSAM com SHROPT = 1;
  • Tamanho da chave igual a zeros na CLUSTER, ou tamanho da chave no programa difere com o da CLUSTER;
  • READ, REWRITE, DELETE, START em arquivo aberto como OUTPUT;
  • READ em arquivo SPANNED sem cláusula INTO;
  • READ para RBA em arquivo SPANNED;
  • READ via BATCH sem BUILDINDEX  anterior no índice alternado;
  • READ via RBA para um RRDS não permitido;
  • READ via RBA uma base via PATH não;
  • Abertura de arquivo REUSE com acesso DYNAMIC ou RANDOM;
  • Parâmetro DISP não especificado no // DLBL;
  • Parâmetro DISP=NEW não especificado no // DLBL;

  • OBSERVAÇÃO:
    Pode ocorrer quando o FREE-SPACE do CI e/ou CA de indices estiver com zeros, e o VSAM não conseguiu fazer um SPLIT de CI ou CA.

  • SOLUÇÃO :
    Redefinir CLUSTER aumentando o CISIZE de INDEX e aumentando o FREE-SPACE de CI/CA de INDEX.
    •

Operação Descrição
CLOSE Erro de lógica
DELETE Erro de lógica
OPEN Erro de lógica
READ Erro de lógica
REWRITE Erro de lógica
START Erro de lógica
WRITE Erro de lógica