使用 CICSPlex SM API 安装远程 CICS 事务定义的示例

您可以使用 CICSPlex ® SM API 从 CSD 或通过使用 BAS 来安装远程 CICS® 事务定义。

对于支持函数输送的资源， BAS 提供了同时安装资源的本地和远程定义的能力。如果要从 CSD 进行安装，那么必须单独安装独立的本地和远程定义。

使用 BAS 安装远程 CICS 事务定义

此示例显示将本地 CICS 事务定义 trandef_name安装到路由 CICS 系统 cics_system_local中，并将同名的对等远程定义安装到目标 CICS 系统 cics_system_remote中，这两个系统都位于 CICSplex cicsplex_name中。

CONNECT CONTEXT(cicsplex_name) SCOPE(cicsplex_name)

GET OBJECT(TRANDEF)
    CRITERIA(NAME=trandef_name AND DEFVER=def_ver.)) 
    
PERFORM SET ACTION(INSTALL)
        PARM(TARGET(cics_system_remote) 
             USAGE(REMOTE)
             MODE(DYNAM) 
             RELATED(cics_system_local).)

从 CSD 安装远程 CICS 事务定义

此示例显示将本地 CICS 事务定义 trandef_name安装到 CSD 组 csd_group_local中的本地 CICS 系统 cics_system_local中。随后，将对等远程定义单独安装到 CSD 组 csd_group_remote中的目标 CICS 系统 cics_system_remote中。

CONNECT CONTEXT(cicsplex_name) SCOPE(cicsplex_name)

GET OBJECT(TRANDEF)
    SCOPE(cics_system_local)
    PARM(CSDGROUP(csd_group_local).)
    CRITERIA(NAME=trandef_name.)
    
PERFORM SET ACTION(CSDINSTALL)

GET OBJECT(TRANDEF)
    SCOPE(cics_system_remote)
    PARM(CSDGROUP(csd_group_remote).)
    CRITERIA(NAME=trandef_name.)
    
PERFORM SET ACTION(CSDINSTALL)