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.