Cics-abend

提供:Dev Guides
2020年6月22日 (月) 18:28時点におけるMaintenance script (トーク | 投稿記録)による版 (Imported from text file)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
移動先:案内検索

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.