定制 EP 适配器样本

定制 EP 适配器样本以 COBOL 语言提供。 它以源代码形式作为加载模块提供，并包含在 CICSTSnn.CICS.SDFHSAMP 库中，其中 nn 反映了您的 CICS® 版本：例如， CICSTS63.CICS.SDFHSAMP 用于 CICS TS 6. 3。

• 源代码和装入模块名称为 DFH0EPAC。
• 组 DFH$EPAG 是在 DFHCURDS.DATA 中定义的。 该组定义了程序 DFH0EPAC 和事务标识 EPAT，将其包含在事件绑定中，以运行 DFH0EPAC 程序。
• 样本程序 DFH0EPAC 可格式化大多数数据类型。 但是，作为 COBOL 语言样本，DFH0EPAC 无法格式化二进制浮点 (BFP) 或小数浮点 (DFP) 项；在此情况下，DFH0EPAC 将使用星号 (*) 填充数据区。

该程序在 CICS 事件通道上传递。 它根据 DFHEP.DESCRIPTOR 容器中的格式化信息将事件数据格式化为事件记录，并将该记录写入 CICS 临时存储器队列（TSQ）中。 队列的名称可以从 DFHEP.ADAPTER 容器获取，其长度最多为 16 字节。 如果不存在，那么名称缺省为 userid|program (对于应用程序事件) 或 userid.SYSTEM (对于系统事件) (根据 DFHEP.CONTEXT 容器中的信息构造)。 例如，对于由正在运行的程序 TEST1 使用用户标识 JBLOGGS 触发的应用程序事件，缺省的队列名称为 JBLOGGS.TEST1。 长于 32000 字节的记录将会被截断。

样本定制 EP 适配器演示了定制 EP 适配器如何处理同步和异步事件发布。 通过检查临时存储器队列是否可恢复，支持 DFHEP.ADAPTPARM 容器中的 EPAP-RECOVER 标记设置，从而实现这一目标。