问题标签 [cics]

我正在 CICS Explorer 中开发一个简单的 java 程序来连接大型机上的 DB2。使用 CICS Explorer 中的插件开发选项，我已将 DB2 jar 转换为插件，部署它们并在 JVM 配置文件 OSGi Bundles 选项中添加已部署的插件。我还在 JVMProfile 的 LIBPATH 选项中添加了相同的内容和在 CICS Explorer 目标平台中。

但是在 CICS 中部署捆绑包时，出现错误：

错误消息：没有合适的驱动程序 SQLSTATE：08001 错误代码：0

请帮我追踪问题

在这两个示例中，程序 A 通过的 Commarea 发生了什么？

程序 A 对程序 B 执行 EXEC CICS LINK 然后程序 B 使用 GOBACK 命令

程序 A 对程序 B 执行 EXEC CICS LINK 然后程序 B 使用 EXEC CICS RETURN 命令

在程序 a

在程序 b

程序 b 是否只返回程序 a 传递的逗号区域？还是返回整个链接部分？

我有一个包含客户详细信息的 VSAM 文件，客户编号是其中之一。在 CICS 中，用户必须输入客户编号。当且仅当VSAM 文件中存在客户编号时，才会发送下一个映射。

如何验证 VSAM 文件中的客户编号？

作为 Web 服务的提供者，我想将相关 Web 请求中的 ID 字段的值强制限制为预期的位数，但根据 CICS，我似乎无法使用模式方面用于此目的的 xsd/schema 中的元素。此外，AFAIK 长度方面元素不支持仅将字符限制为数字。

我已经为我的同事（CICS 用户）提供了一个 WSDL 文件和一个单独但包含的用于 Web 服务的 xsd 文件，显然 CICS Web Services Assistant 中的 DFHWS2LS 工具无法识别 xsd 文件中包含的模式构面元素。

（我知道以下内容 - 我的同事已经单独确认 - 从我的 Web 服务代码中添加的日志打印出来 - 尽管 SOAP 请求的全文目前不可用，因为我在我的 tomcat 中关闭了 HTTP 转储设置启动脚本以避免淹没日志文件。）

结果，我的同事生成的 Web 客户端（可能是 COBOL - 不确定）向我的 Web 服务发送了一个请求，该请求的 ID 字段值为 255 个字符（默认长度）字符串，其中包含预期的位数 - 但后跟填充空白 - 用于 ID 字段。

这是一个包含模式/xsd 的示例 - 例如 ID 长度为 16...

仅供参考，我不是 CICS 用户；因此我没有供应商支持合同。另外，我还没有询问我同事的供应商支持是否有解决办法。

我的设置如下：Java 客户端，使用 Java 套接字，拨号到 CICS 5.2 应用程序（寻址的程序是用 COBOL 编写的）。Java 客户端很粗心：如果他们有 CICS 的工作，他们会发送一个事务请求。

问题是当它们中的太多发送请求时，CICS 硬件无法足够快地处理它。

发生的情况是 CICS 套接字侦听器通常不关心 CICS 的过载程度。因此，它尝试为所有传入的事务请求创建并发服务器。但是，新的并发服务器已经没有空间了（请参阅下面 * 中的附加信息），因为 CICS 正忙于处理它已经拥有的东西。因此，这些尝试会在那里挂起一段时间，然后报告 GIVESOCKET TIMEOUT。

在 Windows 7 上使用 Micro Focus Enterprise Server 2.2。

专业实施如何处理这个问题？我知道我的硬件足够快，只是它没有处理队列的好方法。

我在想可能是一个信号量，如果已经有队列，则向客户端指示不要向侦听器发送请求？也许允许 GIVESOKET 超大超时？

顺便说一句，并发服务器在 CICS 5.2 中是否得到公平处理？我的意思是，当有空间时，第一个被拒绝处理并放入队列的并发服务器是第一个执行的？

谢谢。

• Micro Focus ES 有这些称为 SEP 的东西。它们就像核心。例如，您为每个 CICS 应用程序定义 10 个 SEP，并且在该应用程序上并行运行的每个程序都持有一个 SEP，直到完成。如果您有 10 个 SEP 和 10 个正在运行的程序，则第 11 个程序将排队等待 SEP 空闲。每个 CICS TCP/IP 并发服务器都需要自己的 SEP。因此，“没有空间”是指所有 SEP 都加载了并发服务器的实例，并且 EZASOKET 侦听器 (CSKL) 无法创建新的并发服务器并产生 GIVESOKET 超时（这是侦听器在新制作的并发服务器，但因为没有这样的服务器 - 它超时）

我有一个包含大量详细信息的数据库，要在单个 CICS 地图中显示。我想在每隔几行使用页面光标概念并将其显示在 CICS 地图中。但我不知道 COBOL 中页面光标的语法。有人可以帮我提供片段吗？

如果它是重复记录，我正在编写一个更改字段颜色的程序。为此，我使用嵌套执行来比较每个项目。当它找到重复项时，我想将 DFHRED 移动到该特定字段，例如 CRS1AC。我的问题是我不知道如何引用我试图更改颜色的字段，一旦我发现它是重复的，我该怎么做？以下是 MAP 文件中的字段，如果存在重复项，我将尝试将颜色移动到这些字段...

这是我的桌子设置...

& 这里是检查重复的代码

所以，如果 'PSYC 1000' = 'PSYC 1000' 并且这些字段的名称是.. 'CRS1AC+CRS1BC = CRS3AC+CRS3BC' <--- 这些是我要更改颜色的字段。

我对此进行了大量研究，但仍然找不到解决方案。希望这是有道理的，我知道它无处不在，为了进一步澄清，请询问&如果需要完整的程序代码，我可以提供。

我有一个 DB2 表，其中包含要通过 MQ 发送到外部系统的大量记录。表中有一列包含记录状态（已发送或待发送）。

我编写了一个调度程序来不断检查表中是否有“待发送”的记录。如果是，程序将发送待处理的记录并相应地更新状态

该计划将在多个事务中启动。因此我期望同一个程序的多个实例将同时运行

我的问题是如何防止多个调度程序同时接收和发送相同的记录？

我被告知要使用带有行级锁的游标？但我不确定这是如何工作的

备注：我正在 z/os 环境中研究 CICS COBOL

有没有办法在调用堆栈中识别程序名称？即，我有一个链接到 PGM B 的 PGM X，而这个链接到 PGM C，然后，在 C 中，我想知道哪个程序发起呼叫（PGM X）？