CICS - Nohandle

可以在任何 CICS 命令中指定 Nohandle。将导致对 CICS 命令执行过程中可能发生的任何异常条件不采取任何措施。此命令暂时禁用所有其他处理条件。如果在执行命令期间出现异常，控制权将转移到命令后面的下一条语句。它可与 Read、Write、Delete 等一起使用。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.