Auxílios do VisualAge Generator

EZERT8

EZERT8 contém o código de status depois de uma função de E/S para um arquivo serial, relativo ou indexado e depois das instruções CALL com a opção REPLY e as seguintes instruções de chamada da função quando EZEREPLY é igual a 1.

Usos

EZERT8 pode ser utilizado como qualquer um dos seguintes:

As características de EZERT8 são as seguintes:

Tipo de dados: Caractere
Comprimento dos dados em bytes: 8
Valor salvo pelos segmentos: Sim

Considerações sobre Definição

Se ocorrer erro numa chamada a um programa servidor, o programa se comportará de modo diferente, dependendo do tipo de erro e de a opção REPLY ter sido codificada na instrução CALL.

Tabela 4. Erro ao trar as chamadas remotas

Tipo de Erro Opção Especificada REPLY Definição de EZERT8 Log ou Mensagem de Rastreamento no Cliente Log ou Mensagem de Rastreamento no Servidor O Programa Termina Com Mensagem ao Usuário
Sem erros, conclusão bem-sucedida Não Inalterado Não Não Não
Sem erros, conclusão bem-sucedida Sim 0 Não Não Não
Falha de comunicação ou erro de encerramento no servidor Não Inalterado Sim Não Sim
Falha de comunicação ou erro de encerramento no servidor Sim Número da mensagem de erro do CSO Sim Não Não

Considerações sobre Geração

Pode-se usar a opção de geração /SYSCODES para controlar os códigos que são retornados diante de erros de função de E/S de arquivo.

Quando se especifica /SYSCODES, EZERT8 contém códigos de status de E/S de arquivo de sistema. Eles dependem do ambiente de runtime e do tipo do arquivo.

Ambientes de Destino

Ambiente Considerações de compatibilidade
VM CMS Se EZERT8 estiver na forma RSnnnnnn, procure sob nnnnnn na seção de códigos de retorno de VisualAge Generator Server Guide for MVS, VSE, and VM

SEQ
EZERT8 contém o valor ou valores da chave de status do COBOL nos 2 primeiros caracteres. Os 6 caracteres restantes serão zeros.

SEQRS
O conteúdo de EZERT8 depende da operação que falhou:
  • Se uma alocação dinâmica falhar, EZERT8 conterá o valor de '00000218'.
  • Se OPEN falhar, EZERT8 conterá o código de retorno 8 ('00000008').
  • Se ocorrer condição de final-do-arquivo READ, EZERT8 conterá o código de retorno 4 ('00000004').
  • Se READ, WRITE e CLOSE falharem, EZERT8 conterá o código de retorno 12 ('00000012').

VSAM
EZERT8 contém o valor ou valores da chave de status do COBOL nos 2 primeiros caracteres, seguidos por 2 caracteres para o código de retorno VSAM do COBOL (código de feedback de VSAM), 1 caractere para o código da função VSAM do COBOL (código de componente do VSAM) e 3 caracteres para o código de feedback VSAM do COBOL (código de motivo do VSAM).

VSAMRS
A operação que falhar determinará o conteúdo de EZERT8:
  • Se uma alocação dinâmica falhar, EZERT8 conterá o valor de '00000218'.
  • Se alguma OPEN ou CLOSE falhar, os 2 primeiros bytes de EZERT8 conterão o código de erro do bloco de controle do programa (ACB) VSAM em formato hexadecimal. Os 6 caracteres restantes serão zeros.
  • Se alguma operação que não seja OPEN e CLOSE falhar, os 2 primeiros caracteres serão zeros, seguidos por 2 caracteres para o código de retorno VSAM do COBOL (código de feedback do VSAM), 1 caractere para o código da função VSAM do COBOL (código de componente do VSAM) e 3 caracteres para o código de feedback VSAM do COBOL (código de motivo do VSAM).
VM batch Se EZERT8 estiver na forma RSnnnnnn, procure sob nnnnnn na seção de códigos de retorno de VisualAge Generator Server Guide for MVS, VSE, and VM

SEQ
Igual a VM CMS.

SEQRS
Igual a VM CMS.

VSAM
Igual a VM CMS.

VSAMRS
Igual a VM CMS.
CICS para MVS/ESA Se EZERT8 estiver na forma RSnnnnnn, procure sob nnnnnn na seção de códigos de retorno de VisualAge Generator Server Guide for MVS, VSE, and VM. Do contrário, os dois primeiros caracteres de EZERT8 conterão a representação hexadecimal do primeiro byte de EIBFN proveniente do bloco de interface EXEC do CICS. Os 6 caracteres restantes conterão a representação hexadecimal dos bytes 0 a 2 de EIBRCODE, também provenientes do bloco de interface EXEC do CICS.
MVS/TSO Se EZERT8 estiver na forma RSnnnnnn, procure sob nnnnnn na seção de códigos de retorno de VisualAge Generator Server Guide for MVS, VSE, and VM

SEQ
EZERT8 contém o valor ou valores da chave de status do COBOL nos 2 primeiros caracteres. Os 6 caracteres restantes serão zeros.

SEQRS
O conteúdo de EZERT8 depende da operação que falhou:
  • Se alguma alocação dinâmica falhar, os 3 primeiros bytes de EZERT8 conterão o valor S99 (de SVC 99, alocação dinâmica), o byte 4 será o código de retorno SVC 99 em formato hexadecimal e os bytes de 5 a 8 conterão o código de motivo do erro em formato hexadecimal.
  • Se OPEN falhar, EZERT8 conterá o código de retorno 8 ('00000008').
  • Se ocorrer condição de final-do-arquivo READ, EZERT8 conterá o código de retorno 4 ('00000004').
  • Se READ, WRITE e CLOSE falharem, EZERT8 conterá o código de retorno 12 ('00000012').

VSAM
EZERT8 contém o valor ou valores da chave de status do COBOL nos 2 primeiros caracteres, seguidos por 2 caracteres para o código de retorno VSAM do COBOL (código de feedback de VSAM), 1 caractere para o código da função VSAM do COBOL (código de componente do VSAM) e 3 caracteres para o código de feedback VSAM do COBOL (código de motivo do VSAM).

VSAMRS
A operação que falhar determinará o conteúdo de EZERT8:
  • Se alguma alocação dinâmica falhar, os 3 primeiros bytes de EZERT8 conterão o valor S99 (de SVC 99, alocação dinâmica), o byte 4 será o código de retorno SVC 99 em formato hexadecimal e os bytes de 5 a 8 conterão o código de motivo do erro em formato hexadecimal.
  • Se alguma OPEN ou CLOSE falhar, os 2 primeiros bytes de EZERT8 conterão o código de erro do bloco de controle do programa (ACB) VSAM em formato hexadecimal. Os 6 caracteres restantes serão zeros.
  • Se alguma operação que não seja OPEN e CLOSE falhar, os 2 primeiros caracteres serão zeros, seguidos por 2 caracteres para o código de retorno VSAM do COBOL (código de feedback do VSAM), 1 caractere para o código da função VSAM do COBOL (código de componente do VSAM) e 3 caracteres para o código de feedback VSAM do COBOL (código de motivo do VSAM).
MVS batch Se EZERT8 estiver na forma RSnnnnnn, procure sob nnnnnn na seção de códigos de retorno de VisualAge Generator Server Guide for MVS, VSE, and VM

GSAM
EZERT8 contém o código de status do DL/I depois de uma função de E/S. Os últimos 6 6 caracteres de EZERT8 são espaços.

SEQ
Igual a MVS/TSO.

SEQRS
Igual a MVS/TSO.

VSAM
Igual a MVS/TSO.

VSAMRS
Igual a MVS/TSO.
IMS/VS Os únicos arquivos que podem ser usados nesse ambiente são arquivos seriais associados a filas de mensagem do IMS. EZERT8 contém o código de status de DL/I depois de efetuada uma função de E/S para um desses arquivos. Os últimos 6 6 caracteres de EZERT8 são espaços.
IMS BMP

GSAM
EZERT8 contém o código de status do DL/I depois de uma função de E/S. Os últimos 6 6 caracteres de EZERT8 são espaços.

Fila de mensagens do IMS
EZERT8 contém o código de status do DL/I depois de uma função de E/S. Os últimos 6 6 caracteres de EZERT8 são espaços.

Do contrário, é como MVS/TSO.

CICS para VSE Os dois primeiros caracteres de EZERT8 contêm a representação hexadecimal do primeiro byte de EIBFN proveniente do bloco de interface EXEC do CICS.

O terceiro e quarto caracteres de EZERT8 contêm o byte 4 de EIBRCODE, também proveniente do bloco de interface EXEC do CICS.

O 4 caracteres restantes de EZERT8 contêm a representação hexadecimal do código de EIBRESP2 proveniente do bloco de interface EXEC do CICS. EIBRESP2 contém os códigos de retorno e de feedback de VSE/POWER, que podem ser encontrados no manual PWRDPL do VSE/POWER.

VSE batch Se EZERT8 estiver na forma RSnnnnnn, procure sob nnnnnn na seção de códigos de retorno de VisualAge Generator Server Guide for MVS, VSE, and VM

SEQ
Igual a SEQ no VM CMS.

VSAM
Igual a VSAM no VM CMS.

VSAMRS
A operação que falhar determinará o conteúdo de EZERT8:
  • Se alguma OPEN ou CLOSE falhar, os 2 primeiros bytes de EZERT8 conterão o código de erro do bloco de controle do programa (ACB) VSAM em formato hexadecimal. Os 6 caracteres restantes serão zeros.
  • Se alguma operação que não seja OPEN e CLOSE falhar, os 2 primeiros caracteres serão zeros, seguidos por 2 caracteres para o código de retorno VSAM do COBOL (código de feedback do VSAM), 1 caractere para o código da função VSAM do COBOL (código de componente do VSAM) e 3 caracteres para o código de feedback VSAM do COBOL (código de motivo do VSAM).

SPOOL
Os dois primeiros caracteres de EZERT8 contêm o valor hexadecimal do código de retorno de VSE/POWER (PXPRETCD) proveniente da área de dados de usuário do XPCCB. Os dois caracteres seguintes contêm o valor hexadecimal do código de feedback do VSE/POWER (PXPFBKCD) proveniente da área de dados de usuário do XPCCB. Os quatro caracteres remanescentes contêm zeros.
CICS para OS/2 Em arquivos acessados por meio do COBOL, EZERT8 contém chave de status de arquivo 1 no primeiro caractere e 2 nos 3 caracteres seguintes, seguidos por 4 caracteres de zeros. Se a chave 1 do status do arquivo for o caractere "9", a chave 2 será convertida de binário de byte único em formato decimal de 3 caracteres.

Nos arquivos acessados pelo CICS, os 2 primeiros caracteres de EZERT8 contêm o primeiro byte de campo EIBFN proveniente do bloco de interface EXEC do CICS. Os 6 caracteres restantes contêm os bytes 0 a 2 de EIBRCODE, também provenientes do bloco de interface EXEC do CICS.

Do contrário, é como CICS para MVS/ESA.

OS/400 EZERT8 contém o código de status de E/S do arquivo. Consulte o .
OS/2 (GUI) Os 4 primeiros bytes de EZERT8 representam o subsistema do Client/Server Communication (CSC) em que o erro ocorreu. Os 4 últimos 4 bytes representam o número de erro do subsistema do CSC.
Windows (GUI) Igual a OS/2 (GUI).
Java (GUI) Igual a OS/2 (GUI).
OS/2 (C++) A opção de geração /SYSCODES não é suportada. O valor de EZERT8 é sempre avaliado.

Em arquivos acessados por meio do Micro Focus COBOL, EZERT8 contém chave de status de arquivo 1 no primeiro caractere e chave 2 nos 3 caracteres seguintes, seguidos por 4 caracteres de zeros. Se a chave de status de arquivo 1 for o caractere 9, a chave 2 será convertida de binário de byte único em formato decimal de 3 caracteres.

Nos arquivos acessados por meio do OS/2 ou AIX nativos, a representação decimal do código de retorno é colocada nos dois bytes da ordem inferior de EZERT8. O código de retorno corresponde aos valores "errno" (errno.h) que são enviados junto com os compiladores IBM C++ Set.

AIX Igual a OS/2 (C++).
HP-UX Igual a OS/2 (C++).
Solaris Igual a OS/2 (C++).
CICS for Solaris A opção de geração /SYSCODES não é suportada. O valor de EZERT8 é sempre avaliado.

No acesso de arquivo seqüencial, a representação decimal do código de retorno é colocada nos dois bytes de ordem inferior de EZERT8. O código de retorno corresponde aos valores "errno" (errno.h) que são enviados junto com os compiladores IBM C++ Set.

Nos arquivos acessados pelo CICS, os dois primeiros caracteres de EZERT8 contêm a representação hexadecimal do primeiro byte do campo EIBFN provenientes do bloco de interface EXEC do CICS. Os seis caracteres restantes contêm a representação hexadecimal dos bytes de 0 a 2 de EIBRCODE, também provenientes do bloco de interface EXEC do CICS.

CICS for AIX A opção de geração /SYSCODES não é suportada. O valor de EZERT8 é sempre avaliado.

No acesso de arquivo seqüencial, a representação decimal do código de retorno é colocada nos dois bytes de ordem inferior de EZERT8. O código de retorno corresponde aos valores "errno" (errno.h) que são enviados junto com os compiladores IBM C++ Set.

Nos arquivos acessados pelo CICS, os dois primeiros caracteres de EZERT8 contêm a representação hexadecimal do primeiro byte do campo EIBFN provenientes do bloco de interface EXEC do CICS. Os seis caracteres restantes contêm a representação hexadecimal dos bytes de 0 a 2 de EIBRCODE, também provenientes do bloco de interface EXEC do CICS.

Windows NT Igual a OS/2 (C++).
CICS para Windows NT Igual a CICS for AIX.
Dispositivo de Teste EZERT8 pode ser utilizado como qualquer um dos seguintes:
  • Um código de retorno do VisualAge Generator documentado na seção de códigos de retorno dos documentos Execução do VisualAge Generator.
  • Um código de retorno de um File Access Method.
  • Um código de retorno do sistema OS/2. Esses códigos de retorno estarão na forma OSnnnnnn.
  • Um número de mensagem do CSO documentado no documento VisualAge Generator Messages and Problem Determination Guide.

Exemplo

IF EZERT8 = '00000008';


[ Início da Página | Página Anterior | Próxima Página | Índice ]