SET VTAM

为 CICS® 修改 z/OS® Communications Server连接。VTAM® 是 z/OS Communications Server的前一个名称。

语法

警告系统命令功能强大，可提供有关系统状态的信息，并允许对系统进行更改。系统命令只能由授权应用程序和用户使用。

通过指定 XCMD 系统初始化参数并确保事务的命令安全检查处于激活状态（在 TRANSACTION 资源定义中指定 CMDSEC(YES) 或在 CMDSEC 系统初始化参数中指定 ALWAYS），激活命令安全检查。

SET VTAM

条件: INVREQ ， IOERR 和 NOTAUTH

NOHANDLE, RESP, 和 RESP2 是可以添加到所有 EXEC CICS 命令中的常用选项，用于处理错误条件。命令语法图和选项说明中没有明确包含这些选项。有关这些常用选项和 EXEC CICS 命令语法的信息，请参阅 EXEC CICS 命令格式和编程注意事项. 有关使用 CVDA 的更多信息，请参阅 CICS-值数据区 (CVDA)。

描述

使用 SET VTAM 命令完成以下任务：

建立或停止 CICS 与 z/OS Communications Server 的连接。
修改 CICS 传递给 z/OS Communications Server 的持续会话延迟时间间隔值。
注销 CICS 的 z/OS Communications Server 通用资源成员资格。

选项

已注销

指定要从 CICS 当前是其成员的 Communications Server 通用资源中除去该资源。如果从通用资源的成员资格注销区域，那么必须结束它拥有的任何亲缘关系; 请参阅 PERFORM ENDAFFINITY 命令。

综合系统中的工作负载均衡中描述了通用资源。

OPENSTATUS (cvda)

指定 CICS 是否要连接到 Communications Server (即， Communications Server ACB 是要打开还是要关闭) ，如果 CICS 必须关闭 ACB 以符合要求，那么将如何执行关闭。 CVDA 值如下：

CLOSED: 将关闭连接。如果当前处于打开状态，那么 CICS 将停顿所有 Communications Server 活动，然后关闭 Communications Server ACB。允许使用 Communications Server SNA LU 或会话的任务在关闭之前完成，但未开始需要 Communications Server 的新任务。
强制 CECLOSE: 将关闭连接。如果当前打开， CICS 将立即关闭 Communications Server ACB。因此，使用 Communications Server 的 Communications Server 会话和任务都异常结束。
IMMCLOSE: 将关闭连接。如果当前打开，那么 CICS 将立即使用 Communications Server 异常结束任何任务，对其所有 Communications Server 会话执行有序关闭，然后关闭 Communications Server ACB。
OPEN: 将打开连接。如果 Communications Server ACB 已关闭，那么 CICS 将打开它。
如果 CICS 正在使用 Communications Server 多节点持久会话，并且 Communications Server 在异常结束后已重新启动，那么打开 Communications Server ACB 会导致 CICS 复原 Communications Server 保留的持久会话。但是， CICS 不会复原未绑定的 APPC 同步级别 2 会话。

PSDINTERVAL (data-value)

指定持久会话延迟时间间隔值，该值指示在发生故障时 Communications Server 将保持处于恢复暂挂状态的会话的时间长度。该值的范围为 0-23:59:59。 PSDINTERVAL 的值未记录在全局目录中。

如果设置为零，那么不会保留会话，并且会在发生故障时停止会话，因此不会利用持久会话支持。

如果为 CICS 区域的 PSTYPE 系统初始化参数指定 SNPS (缺省值) 或 MNPS ，请为持久会话延迟时间间隔设置非零值，以便保留会话。
如果对 PSTYPE 系统初始化参数指定 NOPS (无持久会话支持) ，那么持久会话延迟时间间隔需要零值。

指定持久会话延迟时间间隔时， CICS 会设置 PSDINT 系统初始化参数。每当 CICS 打开 ACB 时，都会将此值传递到 Communications Server。如果在同一 SET SYSTEM 命令中指定 OPEN 的 OPENSTATUS 值，或者如果 Communications Server ACB 已打开并且未将其关闭，那么将立即传递该值。如果 ACB 已关闭或正在关闭，或者如果打开尝试失败，那么将在下次成功打开时建立新值。

如果 Communications Server 低于支持持久会话的级别，那么 Communications Server 将拒绝该请求。然后， CICS 将 PSDINT 系统选项值设置为零并返回 INVREQ 条件，但继续执行您请求的任何其他处理。当将该值传递到 Communications Server 时，会发生 INVREQ ，该值可能晚于设置该值的命令，如上文所述。因此，您可以在不指定持久会话延迟时间间隔的命令上看到此情况。

持久会话延迟时间间隔可以通过多种方式表示:

4 字节压缩十进制组合，格式为 0hhmmss+，使用 PSDINTERVAL 选项。
使用 PSDINTHRS ， PSDINTMINS 和 PSDINTSECS 选项，使用单独的小时，分钟和秒。您可以单独或以任何组合方式使用这些选项。

使用 PSDINTERVAL 或多个单独选项时，值的分钟和秒部分不得大于 59。单独使用的 PSDINTMINS 或 PSDINTSECS 可以超过 59。例如，您可以通过以下任何方式来表示 1 小时 30 分钟的时间间隔:

PSDINTERVAL (13000)
PSDINTHRS (1) ， PSDINTMINS (30)
PSDINTMINS (90)
PSDINTSECS (5400)

PSDINTHRS (data-value)

以全字二进制格式指定持久会话延迟时间间隔的小时数部分。请参阅 PSDINTERVAL 选项。

PSDINTMINS (data-value)

以全字二进制格式指定持久会话延迟时间间隔的分钟数部分。请参阅 PSDINTERVAL 选项。

PSDINTSECS (data-value)

以全字二进制格式指定持久会话延迟时间间隔的秒数部分。请参阅 PSDINTERVAL 选项。

条件

INVREQ

RESP2 值：

1: 系统中不存在 Communications Server。
2: OPENSTATUS 具有无效的 CVDA 值。
4: PSDINTERVAL 值超出范围。
5: PSDINTHRS 值超出范围。
6: PSDINTMINS 值超出范围。
7: PSDINTSECS 值超出范围。
8: 在符合 XRF 的系统中指定了 PSDINTERVAL 值> 0。
9: 在尝试设置持久会话延迟时间间隔时， Communications Server 报告了错误。
10: 已指定持久会话延迟时间间隔，但当前正在使用的 Communications Server (或组装终端控制表时使用的 Communications Server 库) 不支持持久会话。时间间隔可能早于此命令指定; 请参阅 PSDINTERVAL 描述。如果还请求了 OPEN ，那么 CICS 已打开 Communications Server ACB。
11: 已成功打开 ACB ，但至少有一个会话从先前的故障中持久存储了错误。
12: 您的 OPEN 请求未完成，因为另一个任务随后请求关闭 Communications Server 连接。
13: 恢复会话期间发生错误，因此 Communications Server ACB 已关闭。
14: CICS 正在执行掠夺性 XRF 接管之后的清除处理。 CICS 在此活动期间拒绝带有此错误的 OPEN 请求，而不调用 Communications Server。一旦清除完成，就会照常处理 OPEN 请求。
16: 尝试从 Communications Server 通用资源注销 CICS 失败，因为 CICS 未注册为通用资源组的成员。
22: 尝试将 PSDINTERVAL ， PSDINTHRS ， PSDINTMINS 或 PSDINTSECS 更改为非零值，并且系统初始化参数 PSTYPE=NOPS 生效。请求已被拒绝。

IOERR

RESP2 值：

n: 打开 ACB 期间发生错误。如果 CICS 无法处理请求，则 RESP2 值为 3。如果通信服务器检测到故障， CICS 将在 RESP2: 中返回 FDBK2 代码：您可以在 z/OS Communications Server ：SNA 编程中的 ACB OPEN 和 CLOSE 返回代码下查找这些错误。

NOTAUTH

RESP2 值：

100: 未授权与发出任务关联的用户使用此命令。