检测 CICS 附件功能是否可用

在 CICS® 程序中执行SQL语句之前，应确定 CICS 附件功能是否可用。如果 CICS 附件功能已启动且您处于待机模式，则无需进行此测试。

关于本任务

当执行 SQL 语句时，如果 CICS 附件功能处于待机模式，则附件会发出 SQLCODE -923，并附带一个原因代码，指示 Db2 不可用。

过程

要检测 CICS 附件功能是否可用：

在您的应用程序中使用INQUIRE EXITPROGRAM命令访问 CICS 交易服务器。

以下示例演示了如何使用该命令。在这个例子中，INQUIRE EXITPROGRAM命令用于测试SQL资源管理器DSNCSQL是否启动并运行。 CICS 返回EXEC接口块（EIB）的EIBRESP字段以及CONNECTST参数（此处为STST）参数名称字段的值。如果EIBRESP值表明命令正常完成，STST值表明资源管理器可用，则可以执行SQL语句。

STST     DS    F
ENTNAME  DS    CL8
EXITPROG DS    CL8
⋮
         MVC   ENTNAME,=CL8'DSNCSQL'
         MVC   EXITPROG,=CL8'DSN2EXT1'
         EXEC CICS INQUIRE EXITPROGRAM(EXITPROG)                       X
               ENTRYNAME(ENTNAME) CONNECTST(STST) NOHANDLE
         CLC   EIBRESP,DFHRESP(NORMAL)
         BNE   NOTREADY
         CLC   STST,DFHVALUE(CONNECTED)
         BNE   NOTREADY
UPNREADY DS    0H
         attach is up
NOTREADY DS    0H
         attach is not up yet

如果您使用INQUIRE EXITPROGRAM命令来避免 AEY9 evenings，而 CICS 附件功能又出现故障，则可能会出现风暴效应。风暴排水效应是指系统持续工作，即使系统已经瘫痪。