APPC 连接的样本自动安装控制程序

用于自动安装 APPC 连接的样本控制程序是 DFHZATDY。

源代码仅以汇编语言编写，位于库文件 CICSTSnn中。 CICS.SDFHSAMP ， 其中nn 代表 CICS® 版本号。 例如， CICSTS64。 CICS.SDFHSAMP。

除了提供自动安装由 BIND 请求启动的 APPC 连接的功能外， DFHZATDY 还为终端自动安装提供与 编写程序以控制 LU 自动安装中描述的 DFHZATDX 程序相同的功能。 您可以使用定制版本的 DFHZATDY 来自动安装终端和 APPC 连接。

样本程序的缺省操作

DFHZATDY 在安装 APPC 连接中的作用是选择要使用的模板 (通过提供其 NETNAME 或 SYSID) ，并提供新连接的名称 (SYSID)。

提供的程序版本所执行的操作是:
  1. 检查 INSTALL_APPC_EXIT_FUNCTION 字段中传递的请求类型:
    X 'F0'
    终端或 APPC 单会话设备的入局 CINIT。 如同 DFHZATDX 一样继续。 请参阅 编写程序以控制 LU 的自动安装。
    X' F1 '
    终端或 APPC 单会话设备的删除请求。 如同 DFHZATDX 一样继续。 请参阅 编写程序以控制 LU 的自动安装。
    install_appc_ps_cinit (x' F2 ')
    APPC 并行会话连接的入局 CINIT。 通过将 INSTALL_APPC_TEMPLATE_SYSID 指向的字段设置为 "CCPS" 来指定模板。
    注： 6.2 及以后版本的 CICS 无法接收此类请求。
    INSTALL_APPC_PS_BIND (X 'F3')
    APPC 并行会话连接的入局 BIND。 指定模板。 这是通过以下两种方法之一完成的:
    • 对于两个通用资源之间的连接，通过接受其 NETNAME 在 TEMPLATE_NETNAME 中传递的建议模板 (通用资源名称连接)。 如果没有通用资源名称连接，请将 TEMPLATE_SYSID 设置为 "CBPS"。
    • 在所有其他情况下，通过将 TEMPLATE_SYSID 设置为 "CBPS"。
    INSTALL_APPC_SS_BIND (X 'F4')
    APPC 单会话连接的入局 BIND。 通过将 INSTALL_APPC_TEMPLATE_SYSID 指向的字段设置为 "CBSS" 来指定模板。
    X 'F5'
    针对由 BIND 安装的 APPC 并行会话连接的删除请求。 建立 COMMAREA 的可寻址性并返回。
    X' F6 '
    由 BIND 安装的 APPC 单会话连接的删除请求。 建立 COMMAREA 的可寻址性并返回。
  2. 通过将 INSTALL_APPPC_NETNAME_PTR 所指向的输入 NETNAME 的最后 4 个非空白字符复制到 INSTALL_APPC_SYSID_PTR 所指向的字段来指定新连接的名称。
  3. 指示已通过将返回码设置为 RETURN_OK 进行选择。

APPC 连接的资源定义

CICS 提供名为 DFHAI62的资源定义组，该组定义 DFHZATDY ，并包含 CCPS ， CBPS 和 CBSS 的 CONNECTION 定义。

如果要使用提供的 DFHZATDY 版本，应将 DFHAI62 附加到 CICS 启动组列表。 但是，如果定制 DFHZATDY ，您可能需要创建自己的定义。

DFHZATDY 在 DFHAI62:
DEFINE PROGRAM(DFHZATDY)
DESCRIPTION(Assembler definition for sessions autoinstall control program)
GROUP(DFHAI62)
LANGUAGE(ASSEMBLER) RELOAD(NO)          RESIDENT(NO)
USAGE(NORMAL)       STATUS(ENABLED)     CEDF(NO)
DATALOCATION(ANY)   EXECKEY(CICS)       EXECUTIONSET(FULLAPI)