CICS - 非正常結束

Abend 命令用於有意中斷任務。使用 Abend 命令，我們可以設定使用者定義的結束程式碼。以下是 Abend 命令的語法 -

語法

EXEC CICS ABEND
   ABCODE(name)
END-EXEC.

示例

以下示例演示如何在程式中使用 Abend 命令。程式達到這個段落時，它將終止，使用者定義的結束程式碼。在以下示例中，它將終止，結束程式碼為 D100 -

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

EXEC CICS ABEND
   ABCODE(D100) 
END-EXEC.