Já existe desde março no site da Microfocus um exemplo de como detectar a quantidade de registros em um arquivo ISAM. O exemplo no site está documentado para ser utilizado com a versão 4.0 do NetExpress, mas já fiz testes com a versão 3.0 e 3.1 e funcionou perfeitamente.
O segredo é a utilização de alguns arquivos "cpy" que contém estruturas identificando os cabeçalhos dos arquivos indexados. São feitas chamadas ao "EXTFH.EXE" que retorna as informações sobre qualquer arquivo indexado nos dados dessas estruturas. Pode-se saber, por exemplo, o tipo de arquivo, a quantidade de chaves, o tamanho do registro, se são registros fixos ou variáveis, entre outras informações. Vale a pena dar uma conferida e utilizar esse recurso.
O segredo é a utilização de alguns arquivos "cpy" que contém estruturas identificando os cabeçalhos dos arquivos indexados. São feitas chamadas ao "EXTFH.EXE" que retorna as informações sobre qualquer arquivo indexado nos dados dessas estruturas. Pode-se saber, por exemplo, o tipo de arquivo, a quantidade de chaves, o tamanho do registro, se são registros fixos ou variáveis, entre outras informações. Vale a pena dar uma conferida e utilizar esse recurso.
Postagens
3 comentários:
Valeu pela dica. Já botei este recurso em pratica, mesclando com outros dados resgatados pela CBL_check_file_exist.
Adicionei mais um campo no PROG01.CBL: 03 tf-val pic 9(05) e nao deu certo.Porque?
Olá, José Carlos... o exemplo em questão foi tirado do site da Microfocus, não é exatamente um exemplo feito por mim, portanto, não posso lhe responder quanto às suas alterações... mesmo assim, se eu conseguir arrumar um tempo na minha semana sempre curta, vou tentar fazer um teste e descobrir o que pode ter acontecido, ok ?.. de qualquer forma, agradeço a sua visita aqui no blog.. abraços...
Postar um comentário