CICS - Abend

O comando Abend é usado para encerrar a tarefa intencionalmente. Usando o comando Abend, podemos definir um código de abend definido pelo usuário. A seguir está a sintaxe do comando Abend -

Sintaxe

EXEC CICS ABEND
   ABCODE(name)
END-EXEC.

Exemplo

O exemplo a seguir mostra como usar o comando Abend em um programa. Ele encerrará de forma anormal quando o programa atingir este parágrafo com o código de abend definido pelo usuário. No exemplo a seguir, ele será encerrado de forma anormal com o código D100 -

IDENTIFICATION DIVISION.                                         
PROGRAM-ID. HELLO.                                               
PROCEDURE DIVISION.

EXEC CICS ABEND
   ABCODE(D100) 
END-EXEC.