获取出口程序的全局工作区
启用出口程序时,可以要求 CICS® 为该出口程序提供全局工作区。 出口程序可以具有自己的全局工作区,或者可以共享其他出口程序拥有的工作区。
当您发出 ENABLE PROGRAM 命令来定义出口时,可以指定GAL思和 GALOCATION 选项,以使 CICS 为出口程序提供全局工作区。 GALLENGTH 指定全局工作区的长度 (以字节为单位) , GALOCATION 指定它是在 24 位存储器还是 31 位存储器中。 或者,您可以指定 GAENTRYNAME 选项来指定另一个当前已启用的用户出口,并且您的出口程序共享 CICS 已为指定出口提供的全局工作区。
全局工作区与出口程序相关联,而不是与出口点相关联。 为了便于问题确定,应该仅由从同一管理模块或域中调用的出口程序共享全局工作区。 全局工作区的地址和长度由 DFHUEPAR 参数列表的参数 UEPGAA 和 UEPGAL 寻址,如 DFHUEPAR 标准参数中所述。 如果用户出口程序不拥有全局工作区,那么 UEPGAA 设置为零。
应用程序可以与使用或共享同一全局工作区的用户出口程序进行通信。 应用程序使用 EXEC CICS EXTRACT EXIT 命令来获取全局工作区的地址和长度。
仅当禁用了使用工作区的所有出口程序时,才会释放该工作区。 有关如何使用全局工作区的示例,请参阅 全局用户出口基础样本中列出的样本全局用户出口程序。