Cics-nohandle

CICS-ハンドルなし

どのCICSコマンドにもハンドルは指定できません。 これにより、CICSコマンドの実行中に発生する可能性のある例外条件に対してアクションは実行されません。 このコマンドは、他のすべてのハンドル条件を一時的に無効にします。 コマンドの実行中に例外が発生すると、コマンドの後の次のステートメントに制御が移されます。 読み取り、書き込み、削除などで使用できます。 Nohandleの構文は次のとおりです-

構文

EXEC CICS
   program statements
   NOHANDLE
END-EXEC.

例

以下は、Nohandleコマンドの例です。 Readステートメントで使用しています。 Readステートメントが失敗した場合、プログラムは異常終了しません。

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
EXEC CICS READ
   FILE('FILE1')
   INTO(WS-FILE-REC)
   RIDFLD(WS-STDID)
   NOHANDLE
END-EXEC.