退出 XDTLC

在数据表装入完成时调用 XDTLC 用户出口-无论成功与否。 如果在装入完成之前由于任何原因关闭了数据表，那么不会调用用户出口。 仅当从源数据集装入耦合设施数据表时，才会对该表调用 XDTLC 出口。

如果装入未成功完成，那么将通知出口程序-请参阅字段 UEPDTORC。 例如，如果达到最大记录数或虚拟存储器不足，那么可能会发生此情况。 在这种情况下，出口程序可以通过设置返回码来请求立即关闭文件。 根据返回代码值， CICS® 所采取的操作可在XDTLC用户退出的返回代码中找到。

所有XPI调用都可以与XDTLC出口一起使用，但不能使用API或SPI调用。

XDTLC用户退出的特定退出参数

  • UEPDTPL：8个字符的数据表名称
  • UEPDTFLG：1字节标志字段。 可能的位设置为:
    • UEPDTSDT (X'80' ): 退出已被 共享数据表支持调用。 CICS
    • UEPDTCMT （X'40' ）：这是一个由 维护的共享数据表。 CICS 仅当 UEPDTSDT 处于开启状态时才有意义。
    • UEPDTCFT（X'10'）： 通过耦合设施数据表支持调用退出。
    • UEPDTUMT （X'08' ）：这是一个由用户维护的共享数据表。 仅当 UEPDTSDT 处于开启状态时才有意义。
  • UEPDTORC：数据表打开结果代码。 可能的值包括：
    • UEPDTLCS：加载成功。
    • UEPDTLFL：加载失败。
  • UEPDTDSL：源数据集名称的全字长度。 仅当 UEPDTSDT 或 UEPDTCFT 处于开启状态时才有意义。
  • UEPDTDSN：一个包含源数据集名称的44个字符的字段。 仅当 UEPDTSDT 或 UEPDTCFT 处于开启状态时才有意义。

XDTLC用户退出的返回代码

如果退出程序对发出的呼叫收到 PURGED 响应，则应返回 UERCPURG 值。
  • UERCDTOK：不采取任何行动；文件保持打开状态。 如果退出未激活，则默认使用此选项。
  • UERCDTCL：关闭文件。