Cics-abend

CICS-異常終了

異常終了コマンドは、タスクを意図的に終了するために使用されます。 Abendコマンドを使用して、ユーザー定義の異常終了コードを設定できます。 以下は、異常終了コマンドの構文です-

構文

EXEC CICS ABEND
   ABCODE(name)
END-EXEC.

例

次の例は、プログラムでAbendコマンドを使用する方法を示しています。 プログラムがユーザー定義の異常終了コードでこの段落に到達すると、異常終了します。 次の例では、異常終了コードD100で異常終了します-

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

EXEC CICS ABEND
   ABCODE(D100)
END-EXEC.