从 BTS 运行 3270 事务

BTS 支持 3270 网桥功能。 因此， BTS 应用程序可以与基于 3270 的现有应用程序集成并使用这些应用程序。 遵循此基本机制从 BTS 应用程序运行 3270 事务。

关于此任务

即使 BTS 活动与终端无关 (它们从不直接从终端启动) ，基于 3270 的事务也可以实现 BTS 活动。 网桥出口程序用于在原始 3270 事务周围放置 "BTS 包装程序"。

图 1 显示了从 BTS 应用程序运行 3270 事务的基本机制。
图 1。 将基于 3270 的事务作为 BTS 活动运行
该图显示了遵循该图的步骤列表。 它显示 BTS 客户机活动 (父代) 和子活动。 子活动由网桥出口程序和 3270 事务组成。
  1. BTS 活动 (在网桥术语中称为 客户机 ) 创建数据以运行 3270 事务。 它将数据放入与子活动关联的容器中。
  2. 客户机以异步方式运行由 3270 事务实现的子活动。
  3. BTS XM 客户机标识事务应使用 3270 网桥并调用网桥 XM 客户机。
  4. 在对网桥出口的 "绑定" 调用上，网桥出口程序发出 GET CONTAINER 命令以检索数据来运行 3270 事务。
    注: 在网桥环境中，网桥出口程序将成为 3270 事务的一部分。 因此，在发出 GET CONTAINER 命令之前，出口程序不需要获取子活动-它本身是子活动的 部件 。
  5. 3270 事务使用检索到的数据运行。 它生成的任何输出数据都保存在输出消息中。
  6. 当调用网桥出口程序以终止 3270 事务时，它会发出:
    1. PUT CONTAINER 命令，用于将输出消息放入指定的数据容器中
    2. RETURN 命令，使子活动完成。
  7. 触发子活动的完成事件会导致重新激活父 (客户机) 活动。
  8. 客户机发出 GET CONTAINER 命令以从 3270 事务检索输出。
下表包含用于将基于 3270 的事务作为 BTS 活动运行的示例伪代码。
表 1. 用于将基于 3270 的事务作为 BTS 活动运行的伪代码
客户机活动 网桥出口程序 
When DFH-Initial
encode msg-in-buffer
EXEC CICS DEFINE ACTIVITY ('3270-act')
TRANSID('T327') EVENT('3270-Complete')
RESP(data-area) RESP2(data-area) END-EXEC.
EXEC CICS PUT CONTAINER('Message')
ACTIVITY('3270-act') FROM(msg-in-buffer)
RESP(data-area) RESP2(data-area) END-EXEC.
EXEC CICS RUN ACTIVITY('3270-act')
ASYNCHRONOUS
RESP(data-area) RESP2(data-area) END-EXEC.
EXEC CICS RETURN END-EXEC..
When 3270-Complete
EXEC CICS GET CONTAINER('Message')
ACTIVITY('3270-act') INTO(msg-out-buffer)
RESP(data-area) RESP2(data-area) END-EXEC.
decode msg-out-buffer
EXEC CICS RETURN ENDACTIVITY

Init.
pass userdata from the brdata to BRXA..
Bind.
EXEC CICS GET CONTAINER('Message')
INTO(3270-msg-in-buffer)
RESP(data-area) RESP2(data-area) END-EXEC..
Term.
EXEC CICS PUT CONTAINER('Message')
FROM(3270-msg-out-buffer)
RESP(data-area) RESP2(data-area) END-EXEC.
EXEC CICS RETURN END-EXEC

子活动由 3270 事务和网桥出口程序实现。 所有必需的 BTS 命令都由出口程序发出。