Auxílios do VisualAge Generator

EZEDLCON (DL/I)

EZEDLCON contém o código da condição retornada por CICS para MVS/ESA e CICS para VSE para chamada DL/I emitida para função DL/I.

EZEDLCON pode conter os seguintes valores:

00
Resposta normal
08
Solicitação não foi válida
0C
Não aberto

Usos

EZEDLCON pode ser utilizado como qualquer um dos seguintes:

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

Tipo de dados: Caractere
Comprimento dos dados em bytes: 2
Valor salvo pelos segmentos: Não

Considerações sobre Definição

EZEDLCON é redefinido toda vez que é emitida uma chamada DL/I. Pode-se codificar o programa de modo a verificar a presença de EZEDLCON na rotina de erro da função se EZEFEC ou EZEDLERR estiverem definidos para continuar após erros permanentes.

EZEDLCON é somente de leitura e não pode ser redefinido pelo programa.

Para obter mais informações sobre os códigos de retorno, consulte o manual do programador do aplicativo CICS para a versão do CICS.

Ambientes de Destino

Ambiente Considerações de compatibilidade
VM CMS Não suportado.
VM batch Não suportado.
CICS para MVS/ESA Nenhum.
MVS/TSO O valor de EZEDLCON é sempre 00.
MVS batch Igual a MVS/TSO.
IMS/VS Igual a MVS/TSO.
IMS BMP Igual a MVS/TSO.
CICS para VSE Nenhum.
VSE batch Igual a MVS/TSO.
CICS para OS/2 Igual a MVS/TSO.
OS/400 Não suportado.
OS/2 (GUI) Não suportado.
Windows (GUI) Não suportado.
Java (GUI) Não suportado.
OS/2 (C++) Não suportado.
AIX Não suportado.
HP-UX Não suportado.
Solaris Não suportado.
CICS for Solaris Não suportado.
CICS for AIX Não suportado.
Windows NT Não suportado.
CICS para Windows NT Não suportado.
Dispositivo de Teste Se o ambiente de execução do DL/I for o CICS e o programa estiver manipulando erros permanentes (EZEFEC=1), o campo de retorno de EZEDLCON será definido com os códigos de retorno do CICS que correspondem aos resultados retornados pela API DDBA. Caso contrário, se a função de programação falhar, o dispositivo de teste retornará um erro.

Exemplo de

Use uma instrução IF para testar as informações de status. No exemplo a seguir, a instrução testa se o erro CICS que retornou não for normal.

IF EZEDLCON NE '00';
END;

EZEDLDBD (DL/I)

EZEDLDBD contém o nome do banco de dados acessado pela última função de E/S do DL/I. Ele vem do PCB do banco de dados usado pela chamada DL/I correspondente à função.

Usos

EZEDLDBD pode ser utilizado como qualquer um dos seguintes:

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

Tipo de dados: Caractere
Comprimento dos dados em bytes: 8
Valor salvo pelos segmentos: Não

Considerações sobre Definição

EZEDLDBD está definido para espaços em branco nas seguintes condições:

EZEDLDBD é redefinido toda vez que é emitida uma chamada DL/I. EZEDLDBD pode ser exibido para auxiliar na determinação de erros ou testado na rotina de erro da função para determinar o resultado de uma chamada DL/I.

EZEDLDBD é somente de leitura e não pode ser redefinido pelo programa.

EZEDLDBD não é definido depois de chamadas de serviço CSPTDLI nem depois de chamadas DL/I a filas de mensagem IMS ou arquivos GSAM.

Ambientes de Destino

Ambiente Considerações de compatibilidade
VM CMS Não suportado.
VM batch Não suportado.
CICS para MVS/ESA Nenhum.
MVS/TSO Nenhum.
MVS batch Nenhum.
IMS/VS Nenhum.
IMS BMP Nenhum.
CICS para VSE Nenhum.
VSE batch Nenhum.
CICS para OS/2 Não suportado.
OS/400 Não suportado.
OS/2 (GUI) Não suportado.
Windows (GUI) Não suportado.
Java (GUI) Não suportado.
OS/2 (C++) Não suportado.
AIX Não suportado.
HP-UX Não suportado.
Solaris Não suportado.
CICS for Solaris Não suportado.
CICS for AIX Não suportado.
Windows NT Não suportado.
CICS para Windows NT Não suportado.
Dispositivo de Teste Nenhum.

Exemplo de

IF EZEDLDBD NOT BLANKS;
END;


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