Terça, Agosto 11, 2020

HANDLE ABEND

 

Condições: NOTAUTH, PGMIDERR (apenas PROGRAMA)

 

Descrição

Use o comando HANDLE ABEND para ativar, cancelar ou reativar uma saída para processamento de finalização anormal. Você pode suspender o comando usando os comandos PUSH HANDLE e POP HANDLE. 

 

Quando uma tarefa termina de forma anormal, o CICS procura uma saída de encerramento anormal ativa, iniciando no nível lógico do programa de aplicativo no qual o encerramento ocorreu e prosseguindo para níveis sucessivamente mais altos. A primeira saída de encerramento anormal ativa encontrada, se houver, recebe controle.

 

O comando HANDLE ABEND não pode interceptar anulações que são emitidas com a opção CANCELAR. Algumas interrupções internas geradas pelo CICS são emitidas com a opção CANCEL, por exemplo, os códigos de interrupção ASPx ou APSJ.

 

Quando o rótulo especificado em um comando HANDLE ABEND LABEL recebe controle, os registradores são definidos da seguinte maneira:

 

COBOL

O controle retorna ao comando HANDLE ABEND com os registros restaurados. A instrução COBOL GO TO é então executada.

 

Assembler

R15: Anule o rótulo. R0-14: Conteúdo no momento em que o último comando EXEC CICS foi emitido no mesmo nível de programa que o comando HANDLE ABEND foi emitido.

 

Se LABEL for especificado, o modo de endereçamento e a chave de execução usados ​​são os do programa que emitiu o comando HANDLE ABEND.

 

Se PROGRAM for especificado, o modo de endereçamento é definido pela maneira como o programa é editado por link e a chave de execução é especificada pela opção EXECKEY na definição de recurso do programa.

 

Se uma COMMAREA foi estabelecida, ela será passada para o PROGRAMA especificado. Onde mais de um programa aplicativo estava envolvido na tarefa, o COMMAREA que é passado para a saída de encerramento anormal é o COMMAREA do programa que emitiu o comando HANDLE ABEND. Pode não ser o COMMAREA do programa em que o encerramento foi encerrado.

 

Se existir um canal atual, ele será acessível a partir do PROGRAMA especificado.

 

Opções

 

CANCEL

Especifica que uma saída estabelecida anteriormente no nível lógico do programa de aplicativo no controle é cancelada. Esta opção é o padrão.

 

LABEL (etiqueta)

Especifica o rótulo do programa no qual o controle se ramifica se ocorrer uma finalização anormal.

Você não pode usar esta opção para os aplicativos de linguagem assembler AMODE (64), C, C ++ ou PL / I.

 

PROGRAM (nome)

Especifica o nome do programa ao qual o controle é passado se a tarefa for finalizada de forma anormal. Se a condição de cancelamento for encerrada e o programa especificado ainda não estiver definido, esse programa será instalado automaticamente.

O programa nomeado nesta opção sempre deve terminar com um encerramento anormal, exceto quando o processamento é interrompido gerado como resultado da lógica do programa aplicativo.

 

RESET

Especifica que uma saída cancelada por um comando HANDLE ABEND CANCEL, ou pelo CICS, é reativada.

Essa opção geralmente é emitida por uma rotina de saída de encerramento anormal.

 

Condições

 

70 NOTAUTH

Ocorre quando uma verificação de segurança do recurso falha em PROGRAMA (nome).

Ação padrão: finalize a tarefa de forma anormal.

 

27 PGMIDERR

Valores RESP2:

  • 1 - O programa não possui uma definição de recurso instalada e a instalação automática de programas não está ativa.
  • 2 - O programa está desativado.
  • 9 - A definição de recurso do programa instalado é para um programa remoto.

Ação padrão: finalize a tarefa de forma anormal.

 

Exemplos:

EXEC CICS HANDLE ABEND
     PROGRAM('EXITPGM')

 

Comandos - CICS

CICS - Customer Information Control Syst…

CICS significa Sistema de Controle de Informações do Cliente (Customer Information Control System), ou simplesmente CICS®, é um monitor de transações utilizado inicialmente nos sistemas operacionais z/OS e z/VSE dos...

Command Level

O Command Level é um conjunto de comandos usados em programas COBOL ou ASSEMBLER para fazer a interação com os módulos do Cics (PCP, TCP, FCP etc.). A sintaxe básica...

Construção de um mapa BMS

As telas do Mainframe são escritas em uma linguagem fonte chamada BMS. O mapa BMS para descrever uma tela deve ser codificado usando a sintaxe do Assembler do Mainframe. Nesta...

DFHMDF

A macro DFHMDF define os atributos sobre a tela. É necessario uma macro DFHMDF para cada atributo da tela. Como exemplo, suponhamos que na coluna 10 de uma tela desejamos criar...

DFHMDI

A sintaxe desta macro é   Mapa DFHMDI argumentos Mapa (Na coluna 1) é o nome da tela. Este nome será usado nos programas para leitura e gravação da tela.  Os argumentos da macro...

DFHMSD

A sintaxe desta macro é   Label DFHMSD argumentos O Label desta macro define o nome do mapset. Ele deverá ser usado nos programas dentro dos comandos de leitura e gravação da tela. Os...

EXEC CICS ABEND

ABEND   O comando ABEND encerra uma tarefa de forma anormal.   O CICS libera o armazenamento principal associado à tarefa finalizada; opcionalmente, você pode obter um despejo de transação desse armazenamento.   A chamada do...

EXEC CICS ADDRESS

Descrição: ADDRESS ​​acessa as seguintes áreas: O elemento do ambiente de controle de acesso (ACEE) A área de comunicação disponível para o programa invocado (COMMAREA) A área de trabalho comum (CWA) O bloco de interface...

EXEC CICS ASSIGN

O comando ASSIGN obtém valores de fora do ambiente local do programa de aplicativo. Os dados obtidos dependem das opções especificadas. Você pode especificar até 16 opções em um comando...

EXEC CICS BIF DEEDIT

Descrição O BIF DEEDIT fornece a função incorporada DEEDIT. Ele especifica que caracteres alfabéticos e especiais são removidos de um campo de dados EBCDIC e os dígitos restantes alinhados à direita...

EXEC CICS HANDLE ABEND

HANDLE ABEND   Condições: NOTAUTH, PGMIDERR (apenas PROGRAMA)   Descrição Use o comando HANDLE ABEND para ativar, cancelar ou reativar uma saída para processamento de finalização anormal. Você pode suspender o comando usando os comandos...

EXEC CICS HANDLE CONDITION

Descrição Use o comando HANDLE CONDITION para especificar o rótulo para o qual o controle deve ser passado se ocorrer uma condição. Você deve incluir o nome da condição e, opcionalmente...

EXEC CICS IGNORE CONDITION

Use o comando IGNORE CONDITION para especificar que nenhuma ação será executada se ocorrer uma condição (ou seja, o controle retornará à instrução após o comando que falhou na execução...

EXEC CICS READ

READ lê um registro de um arquivo em um sistema local ou remoto.   Para comandos UPDATE e não UPDATE, você deve identificar o registro a ser recuperado pelo campo de identificação...

EXEC CICS RECEIVE MAP

O comando EXEC CICS RECEIVE MAP lê a tela enviada pelo terminal.  A sintaxe básica deste comando é:        EXEC CICS RECEIVE           MAP(nome-do-mapa)        ...

EXEC CICS SEND MAP

O comando EXEC CICS SEND MAP envia a tela para o terminal.  Existem 2 formas basicas para este comando: A primeira é usada no inicio do processamento para enviar para o...

Retorno dos comandos

Cada um dos comandos acima possui um conjunto especifico de condições de retorno. Por exemplo o comando: EXEC CICS READ(CLIENTE)  RIDFLD(CODCLI) END-EXEC Pode retornar situações como: Erro Código do erro Registro não encontrado NOTFND Arquivo não está...