用户编写的终端错误程序示例

DFHTEP 递归重试例程 是设计部分终端错误程序所需的逻辑步骤的示例。 在 图 1中，为每个终端提供了 10 次重试; 但是，逻辑可用于任何次数的重试。 作出以下假设:

用户字段 A

(PCISAVE)

表示 TCTTE 的进程控制信息 (PCI) 区域中的 6 字节字段。 此字段用于在发生第一个错误时保留 TCTTE 的输入和输出计数。 这些计数包含在位于 TCTTENI 和 TCTTENO 的 3 字节字段中。

用户字段 B

(PCICNT)

表示用于累积递归错误计数的用户定义字段。 它应该位于 TCTTE 的进程控制信息 (PCI) 区域中。

系统计数

(TCTTENI)

表示包含终端输入和输出计数 (TCTTENI + TCTTENO) 的 TCTTE 中的 6 字节字段。 在此示例中，这两个相邻字段被视为一个 6 字节字段。

由于此示例需要访问 TCT 终端条目 (TCTTE) 以检查 SYSTEM COUNT 和查找进程控制信息 (PCI) 区域，因此包含 DFHTCTTE 符号存储定义，以便可以象征性地引用字段。