对起触角的内容进行寻址

当发生错误时,由终端控制程序创建性,并包含 BSAM 提供的所有 I/O 错误信息。

关于此任务

要解决并作为用户编写的终端错误程序的内容,应按顺序包含 COPY DFHTACLE 和 COPY DFHTCTLE 语句。 这些定义了完整的 DFHTCTLE DSECT。 此 DSECT 中的符号名称用于对与该错误相关联的性行条目和实行条目中的字段进行寻址。

"触角" 由一个 16 字节的前缀 (由 COPY DFHTACLE 定义) 和另一个 48 字节的部分组成,后者是创建 "触角" 时实行条目的 DECB 的修改副本。

为了解决起触角,用户编写的终端错误程序应因此包含以下语句:
COPY DFHTACLE
COPY DFHTCTLE
 
L TCTLEAR,TEPCATCA        POINT TO TACLE
USING DFHTCTLE,TCTLEAR

请注意,字段通常是实际行条目 DECB 的一部分,但在性中的偏移量增加了 16。

触角中的 DECB 副本中的以下字段 表示来自实际行条目的数据副本:
TCTLEDCB                (Offset 24 in TACLE,
                         8 in real TCTLE)
"触角" 中的此字段指向实际行条目; 在实际行条目中,它指向行组的 BSAM DCB。
TCTLECSW                (Offsets 46, 48 in TACLE,
TCTLEALP                 30, 32 in real TCTLE)

这些在所致 SAM 错误信息中使用。

以下语句提供对 real 行条目的直接寻址能力:
COPY DFHTCTLE
COPY DFHTCTTE
 
L      TCTLEAR,TEPCATCA        POINT TO TACLE
USING  DFHTCTLE,TCTLEAR
L      TCTTEAR,TCTLEPTE        POINT TO ERROR TCTTE
USING  DFHTCTTE,TCTTEAR
DROP   TCTLEAR
L      TCTLEAR,TCTTELEA        POINT TO TCTLE
USING  DFHTCTLE,TCTLEAR

在执行所需功能并 (可选) 更改 DFHTACP 调度的缺省操作之后,用户编写的 DFHTEP 必须通过发出 EXEC CICS RETURN 命令将控制权返回给 DFHTACP。 然后, DFHTACP 会执行性中指定的操作,并导致错误处理任务终止。

所致 DSECT 的格式如 图 1所示。
图 1。 "触角 Dsect: 终端异常" 条件行项的格式描述
图中以图形格式显示了在图的第二部分中以文本格式呈现的相同信息。
图 2。 ▲ Dsect 格式的文本描述: 终端异常条件行项
Displacement
 
Dec     Hex   Code     Bytes Label       Meaning
 
 
0       0              4     TCTLEPSA    Storage accounting
 
                             RESERVED
 
8       8              1     TCTLEPFL    Error flags
              81                         Message too long
 
              84                         TCT search error
              85                         Write not valid
              87                         Unsolicited input
              88                         Input event rejected
              8C                         Output event rejected
              8D                         Output length of zero
              8E                         No output area
              8F                         Output area exceeded
              94                         Unit check
              95                         Unit check
                                         (should not occur)
              96                         Unit exception
              97                         Unit exception
                                         (should not occur)
              99                         Undetermined I/O error
              9F                         Invalid destination
                                         (TCAM: no longer supported)
              .
              .      (All codes not listed are reserved and are
              .       not intended for use by DFHTEP)
              .
 
9       9             1     TCTLEPF2     Special indicator
              01                         dummy terminal
 
12      C             4     TCTLEPTE     Address of terminal
                                         entry for terminal
                                         in error
 
16      10            4     TCTLEECB     DECB/copy of line
                                         when error occurred
 
60      3C            4     TCTLEOA      For TCAM lines only.
                                         (No longer supported)