Cics-handle-abend
提供:Dev Guides
CICS-ハンドル異常終了
入出力エラーなどの何らかの理由でプログラムが異常終了した場合は、Handle Abend CICSコマンドを使用して処理できます。 ハンドル異常終了コマンドの構文は次のとおりです-
構文
EXEC CICS HANDLE ABEND
PROGRAM(name)
LABEL(Label)
CANCEL
RESET
END-EXEC
プログラム名またはラベル名は、異常終了が発生した場合にプログラムまたは段落にコントロールを転送するために使用されます。 CANCELは、以前のハンドル条件をキャンセルするために使用されます。 RESETは、以前にキャンセルされたハンドル異常終了を再度アクティブにするために使用されます。
例
以下は、ハンドル異常終了の例です-
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
EXEC CICS HANDLE ABEND
LABEL (X0000-HANDLE-ABEND-PARA)
END-EXEC.
X0000-HANDLE-ABEND-PARA.
DISPLAY 'Program Abended'.