Auxílios do VisualAge Generator

EZERCODE

EZERCODE é um código de retorno externo a ser verificado pelo JCL, pelo processador de comandos ou por programa de linguagem de alto nível chamado no final do programa. A passagem de códigos de retorno de um programa para outro não é suportada.

EZERCODE é inicialmente definido para 0. Se o programa encerrar por causa de um erro inesperado, EZERCODE é definido para um valor maior do que 512. Os programas não devem definir EZERCODE para valor superior a 512 e não devem definir códigos de retorno negativos.

EZERCODE é implementado usando o registro especial RETURN-CODE do COBOL. O conteúdo de EZERCODE é usado para definir RETURN-CODE no final do programa.

Se o tipo de ligação do programa chamado for estática ou dinâmica, o código de retorno vem no registro 15 nos processadores do System/370. O código de retorno não é passado de volta para :link ou programa principal chamado remoto ou chamado CICS.

EZERCODE pode ser utilizado como qualquer um dos seguintes:

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

Tipo de dados: Binário
Comprimento dos dados em bytes: 4
Valor salvo pelos segmentos: Sim

Ambientes de Destino

Ambiente Considerações de compatibilidade
VM CMS Nenhum.
VM batch Nenhum.
CICS para MVS/ESA Se o tipo de ligação do programa chamado for estática ou dinâmica, o código de retorno será passado de volta e colocado no Registro 15. O código de retorno não é passado de volta para :link ou programa principal chamado remoto ou chamado CICS.
MVS/TSO Nenhum.
MVS batch Nenhum.
IMS/VS O código de retorno não é passado de volta a partir de programas principais.
IMS BMP Nenhum.
CICS para VSE Igual a CICS para MVS/ESA.
VSE batch Nenhum.
CICS para OS/2 Igual a CICS para MVS/ESA.
OS/400 Não suportado.
OS/2 (GUI) Não suportado.
Windows (GUI) Não suportado.
Java (GUI) Não suportado.
OS/2 (C++) Se o programa terminar anormalmente, será dado um código de retorno diferente de EZERCODE. No AIX, OS/2 (C++) e Windows NT esse código de retorno é 65280.
AIX Igual a OS/2 (C++).
HP-UX Igual a OS/2 (C++).
Solaris Igual a OS/2 (C++).
CICS for Solaris O valor de EZERCODE não é passado de volta ao sistema ou programa que fez a chamada.
CICS for AIX O valor de EZERCODE não é passado de volta ao sistema ou programa que fez a chamada.
Windows NT Igual a OS/2 (C++).
CICS para Windows NT Igual a CICS for AIX.
Dispositivo de Teste Nenhum.

Exemplo

EZERCODE = 6;


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