progress-4gl - Progress 4gl-内部过程名称

Question

这对我来说似乎很简单，但我找不到合适的属性。出于错误报告的目的，我想知道我所在的内部过程的名称。

这是最简单的示例:

运行测试。

程序测试。

/* 如何在此处显示过程名称“test”？ */

结束程序。

Answer 1

看看PROGRAM-NAME()函数。

根据文档:

If the procedure you reference is an internal procedure, then PROGRAM-NAME returns a string with the following form:
"internal-procedure-name source-file-name"

对于您给出的示例:

Run Test.

Procedure Test.
     message PROGRAM-NAME(1).
End Procedure.