进度4gl-内部程序名称

Question

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

以下是最简单的示例:

运行测试.

程序测试.

/*我怎么能在这里显示程序名称'test'？*/

结束程序.

Answer 1

看看PROGRAM-NAME()功能.

根据文件:

如果您引用的过程是内部过程,则PROGRAM-NAME返回具有以下形式的字符串:
" internal-procedure-name source-file-name"

对于您给出的示例:

Run Test.

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