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.
EZERT8 pode ser utilizado como qualquer um dos seguintes:
As características de EZERT8 são as seguintes:
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 |
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.
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
|
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
|
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
|
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
|
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 |
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
|
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:
|
IF EZERT8 = '00000008';