EXTRACT EXIT

获取全局工作区的地址和长度。

语法

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

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

EXTRACT EXIT

条件: INVEXITREQ 和 NOTAUTH

NOHANDLE、RESP 和 RESP2是常用选项，可添加到所有 EXEC CICS 命令中以处理错误条件。命令语法图和选项说明中没有明确包含这些选项。有关这些常用选项和 EXEC CICS 命令语法的信息，请参阅 EXEC CICS 命令格式和编程注意事项.

描述

EXTRACT EXIT 命令获取用户出口所拥有或共享的全局工作区的地址和长度。

注: 要允许使用为 EXTRACT EXIT 命令上指定 DSNCEXT1 或 DSN2EXT1 的较早发行版编写的应用程序来查询 CICS®-Db2® 接口的状态， CICS 会自动替换正确的名称 DFHD2EX1。 CICS 通过在参数列表中设置自变量 1 来实现此目的，以寻址新名称，并且不会改变应用程序存储器。这允许现有应用程序正常工作。

选项

ENTRYNAME (data-value)

指定要获取其全局工作区信息的全局或与任务相关的用户出口的 8 字符名称。如果省略 ENTRYNAME ，那么 CICS 假定出口的名称与 PROGRAM 选项中给定的装入模块的名称相同。因此，必须使用定义出口的 ENABLE PROGRAM 命令上指定的 ENTRYNAME 和 PROGRAM 值的相同组合。

GAL思 (数据区)

以半字二进制格式返回全局工作区的长度 (以字节为单位)。

注: 如果定义了大于 32767 的GAL思 (请参阅 GAL思 FOR ENABLE PROGRAM 以获取详细信息) ，那么此命令的响应反映的值越高，如下所示:

如果在终端上发出了 EXTRACT EXIT 命令，那么响应将显示GAL思的负值。
如果从程序发出了 EXTRACT EXIT 命令，那么将设置GAL思的响应的高阶位。在决定对返回的值执行下一个操作时，必须允许此可能性。

GASET (ptr-ref)

返回全局工作区的地址。全局工作区可以位于 31 位存储器 (高于 16 MB) 或 24 位存储器 (低于 16 MB) 中，具体取决于在定义了出口的 ENABLE PROGRAM 命令上使用 GALOCATION 选项指定的位置。

程序 (data-value)

指定包含出口入口点的装入模块的名称。当未指定 ENTRYNAME 时，此名称也用作出口的名称; 请参阅 ENTRYNAME 选项。

条件

INVEXITREQ

EXTRACT EXIT 命令的 INVEXITREQ 条件由 EIBRCODE 的第一个字节中的 X'80 ' 指示。可以通过检查 EIBRCODE 的第二个和第三个字节来确定错误的确切原因。有关 EIBRCODE 的更多信息，请参阅 EXEC 接口块 (EIB) 响应和函数代码。

X'800200 ': 未启用出口。
X'800400 ': 出口没有全局工作区。
X'808000 ': PROGRAM 选项中指定的装入模块与启用 ENTRYNAME 选项中指定的出口时使用的装入模块不同。

NOTAUTH

RESP2 值：

100: 未授权与发出任务关联的用户使用此命令。
101: 未授权与发出任务关联的用户以此命令所需的方式访问此特定资源。