logging - 如何登录 OpenEdge Progress？

Question

我发现了在 Progress 4GL 中记录某些内容的不同方法，但没有一种方法令人满意:

简单的 MESSAGE 语句有一个缺点，它处理帧的方式非常糟糕:

ON CHOOSE OF btn-Q4
DO:
  MESSAGE "Line 1".
  MESSAGE "Line 2".
  MESSAGE "Line 3".

  PROMPT-FOR ...
    WITH FRAME ...
  ...
  MESSAGE "Alert message" VIEW-AS ALERT-BOX.
  
  PROMPT-FOR ...
    WITH FRAME ... /* (another frame) */
  ...
  MESSAGE "Another alert message" VIEW-AS ALERT-BOX.
  ...
  MESSAGE "Normal message".
END.

这从显示第 1 行和第 2 行开始，第 3 行有一个滚动条，但由于其他类似对话框的框架而无法访问，一旦这些框架消失，原始消息行就不再存在。

已显示的另一种可能性是 MESSAGE ... VIEW-AS ALERT-BOX。这很好用，甚至可以复制粘贴，但所有消息都显示在单独的警告框中，这使得处理起来非常困难。

本网站提到的第三种可能性是使用日志管理器，但我的 Progress 4GL 安装中没有名为 *log*manager* 的文件，所以我不知道如何使用它。

任何人都可以向我解释如何进行日志记录吗？我想要的是以下内容:

...
LOG("Line1").
...
      LOG("Line2").
...
  LOG("Line3").
...

缩进代表调用栈中的位置(“Line3”被函数调用，而“Line2”被子函数调用，被子函数调用，被函数调用)。

想法是看(以可复制粘贴的格式):

理想情况下:

Line1
......Line2
..Line3

如果这是不可能的，我将解决:

Line1
Line2
Line3

有人知道这是否存在以及如何实现吗？

提前致谢

Answer 1

如果您只想记录一些简单的消息，您可以将输出重定向到一个文件。对某些消息使用 OUTPUT TO 语句:

OUTPUT TO VALUE("logfile.txt").

PUT UNFORMATTED "Message 1" SKIP.
PUT UNFORMATTED "Message 2" SKIP.
PUT UNFORMATTED "Message 3" SKIP.

OUTPUT CLOSE.

这将在您的起始文件夹中创建一个“logfile.txt”文件。它将包含以下内容:

Message 1
Message 2
Message 3

PUT UNFORMATTED 语句向文件发送一个字符串。 SKIP 关键字添加一个换行符。 OUTPUT CLOSE 语句关闭文件。

如果要添加到现有文件，请在 OUTPUT 语句上使用 APPEND:

OUTPUT TO VALUE("logfile.txt") APPEND.