如何在运行时获取Progress .p过程文件的所在路径？

当然可以在运行时获取过程文件的位置，核心是使用OpenEdge内置的PROGRAM-NAME()函数：

• 获取包含完整路径的过程文件名
  使用带参数1的PROGRAM-NAME()，它会返回当前运行的.p文件的绝对路径，能适配不同系统的实际存储位置。
  示例代码：

  DEF VARIABLE cFullPath AS CHARACTER NO-UNDO.
  cFullPath = PROGRAM-NAME(1).
  MESSAGE "当前过程文件路径：" cFullPath VIEW-AS ALERT-BOX INFORMATION.
  

• 仅获取过程文件所在的目录
  如果不需要文件名，可结合PATHNAME()函数提取路径部分：

  DEF VARIABLE cDirPath AS CHARACTER NO-UNDO.
  cDirPath = PATHNAME(PROGRAM-NAME(1)).
  MESSAGE "当前过程所在目录：" cDirPath VIEW-AS ALERT-BOX INFORMATION.
  

不管你的过程文件在C:\git\project\helloworld.p还是你朋友电脑的D:\codingprojects\project\helloworld.p，这些方法都能正确返回对应的实际路径。

内容的提问来源于stack exchange，提问作者W0lfw00ds