如何抑制由 POST/GET 生成的 RPGLE 中的控制台消息？

Question

我有一个 RPGLE 程序，它使用 Web 服务（/QIBM/ProdData/OS/WebServices/V1/client/include/Axis.rpgleinc）使用 POST 和 GET，它工作正常，除了当我的程序结束时，它显示 HTTP 状态等，并显示“按 ENTER 结束终端会话”消息。我想阻止这种情况发生。我认为这将是一个像 QIBM_QSH_CMD_OUTPUT 和 QSH 一样的环境变量，但我找不到任何东西。我可以使 POST/GET 的内容正常工作，但很可能，我对它的了解还不足以正确地提出这个问题。谁能告诉我我需要做什么？预先感谢。

Answer 1

您提到您正在使用 Scott Klement 的 HTTPAPI，它提供了在 RPGLE 中使用 Web 服务的灵活功能。 要将响应捕获为字符串，请考虑使用

HTTP_req()

函数。它允许您以文件或字符串的形式检索响应。

这是一个例子：

dcl-s rc int(10);
dcl-s response varchar(10000); // Adjust the size as needed

// Make the HTTP request
rc = HTTP_req('/QIBM/ProdData/OS/WebServices/V1/client/include/Axis.rpgleinc',
              'GET', // or 'POST'
              'http://your-server/your-endpoint',
              response);

// Process the response (stored in 'response' variable)
// ...

// Prevent the "Press ENTER to end terminal session" message
*inlr = *on; // End the program without displaying messages