CICS - Abend

El comando Abend se usa para terminar la tarea intencionalmente. Usando el comando Abend, podemos establecer un código de fin anormal definido por el usuario. A continuación se muestra la sintaxis del comando Abend:

Sintaxis

EXEC CICS ABEND
   ABCODE(name)
END-EXEC.

Ejemplo

El siguiente ejemplo muestra cómo utilizar el comando Abend en un programa. Terminará anormalmente cuando el programa llegue a este párrafo con el código de fin anormal definido por el usuario. En el siguiente ejemplo, terminará anormalmente con el código de terminación anormal D100 -

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

EXEC CICS ABEND
   ABCODE(D100) 
END-EXEC.