1

假设已在 CL 程序中声明了一个显示文件。它接受一些用户输入并对其进行一些验证。如果验证失败，将在显示文件的底部显示一条消息。是否有可能在 CL 中实现这一点？我曾尝试使用 MSGTYPE(*DIAG) 的 SNDPMMSG，但该消息仅在程序终止后显示，而不是在执行期间显示文件上。

要发送的消息是从消息文件中检索的，因此使用字段显示消息不适用。

4

2 回答 2

4

通常我们使用消息子文件来实现您上面的要求。它可以在 CL 和 RPG 的显示文件中完成

对于 CL 示例，您可以在此处阅读http://www.mcpressonline.com/cl/the-cl-corner-letting-the-user-know-what-s-right-and-wrong.html。您可以搜索“cl 程序消息子文件”以获取其他示例

于 2012-09-24T00:31:00.337 回答
1

在显示文件 DDS 中定义一个 75 个字符的字段。称之为消息。在您的 CL 中执行以下操作：

if (&option *ge '35') do
  CHGVAR &MESSAGE 'Invalid option chosen'
  goto getOption
enddo
于 2012-09-24T13:36:08.833 回答