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:
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. |
EZERCODE = 6;