进度4gl-内部程序名称

Question

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

以下是最简单的示例：

运行测试。

程序测试。

/ *如何显示程序名称＆＃39; test＆＃39;这里？ * /

结束程序。

Answer 1

查看PROGRAM-NAME()功能。

根据文件：

  

如果您引用的过程是内部过程，则PROGRAM-NAME返回具有以下形式的字符串：
      ＆＃34; internal-procedure-name source-file-name＆＃34;

对于您给出的示例：

Run Test.

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