发出对发行版敏感的 XPI 调用

6.16.2

稳定的功能：稳定了对发布敏感的 XPI 调用的支持。另请参阅稳定通知和终止功能。

您可以使用发行版敏感的 XPI 调用，以便 XPI 调用可以在所有当前受支持的 CICS® 发行版上成功执行。要执行此操作，请将 CALL XPI 参数替换为 RELSENSCALL XPI 参数，然后组装程序。您可以使用区分发行版的 XPI 调用来替代所有 XPI 命令。

开始之前

如果要在出口程序中使用任何 XPI 函数，那么在发出任何 XPI 调用之前，必须在程序中包含以下宏:

DFHUEXIT TYPE=XPIENV

关于此任务

RELSENSCALL 参数仅确保对支持该功能的 CICS XPI 模块的调用成功。您必须检查 XPI 调用上指定的参数是否对执行该调用的所有 CICS 发行版都有效。除了使用不同的调用参数外，所有其他 XPI 语法规则都适用。有关语法规则的更多详情，请参阅 XPI 语法。

有关不同 CICS 发行版和发行版敏感调用对用户出口的影响的更多详细信息，请参阅对 XPI 的更改。

示例

以下示例是使用 RELSENSCALL 参数的 XPI GETMAIN 调用:

DFHSMMCX RELSENSCALL,                                      -
      CLEAR,                                                  -
      IN,                                                     -
      FUNCTION(GETMAIN),                                      -
      GET_LENGTH((r6)),                                       -
      SUSPEND(YES),                                           -
      STORAGE_CLASS(USER),                                    -
      OUT,                                                    -
      ADDRESS((r5)),                                          -
      RESPONSE(*),                                            -
      REASON(*)

以下示例是使用 CALL 参数的相同 XPI GETMAIN 调用:

DFHSMMCX CALL,                                             -
      CLEAR,                                                  -
      IN,                                                     -
      FUNCTION(GETMAIN),                                      -
      GET_LENGTH((r6)),                                       -
      SUSPEND(YES),                                           -
      STORAGE_CLASS(USER),                                    -
      OUT,                                                    -
      ADDRESS((r5)),                                          -
      RESPONSE(*),                                            -
      REASON(*)