用PROGRAM（）只能返回       ，就是要得到是那个调用文件名出错了。
SYS(16) 只能得到一开始调用的名。
比如我调用了N个表单，然后在当前表单执行一个按钮，出错了，调用出错程序。就要取得这个出错按钮所在的文件名。
用PROGRAM（）只能返回 。这个FORM1对等的DOS文件名是什么？

SYS(16) 返回的是 PROCEDURE   SYS(16，1) 返回的是 主程序的名。期间调用了好多表单

用ASTACKINFO()看看

我可能说错了。我试了很多，返回的都是主程序名。ASTACKINFO()，也是返回主程序名。应该返回当前 表单 的名称。是表单名称。比如按钮出错，要返回是那一张表单的表单名。才知道是哪一张表单有问题。

ASTACKINFO()应该可以满足要求
ASTACKINFO()返回的数组元素:
1 堆栈调用级别
2 当前程序文件名
3 模块或对象名
4 模块或对象源文件名
5 对象源文件中的行数
6 源文件内容
其中3、4、5、6元素值应该是想要的东西，可在捕捉错误处理过程中调用ASTACKINFO()来获得出错的过程和对象信息。

简单示例，看是不是这意思。

****** test.prg ******
ON ERROR do onerr
of1 = CREATEOBJECT("form1")
of1.show
RETURN

DEFINE CLASS form1 as Form
    WindowType = 1
    PROCEDURE init
        of2 = CREATEOBJECT("form2")
        of2.show  
    ENDPROC
ENDDEFINE

DEFINE CLASS form2 as Form
    top = 50
    left = 50
    WindowType = 1
    PROCEDURE init
        of3 = CREATEOBJECT("form3")
        of3.show  
    ENDPROC
ENDDEFINE

DEFINE CLASS form3 as Form
    top = 100
    left = 100
    WindowType = 1
    ADD OBJECT cmd1 as commandbutton WITH top=10,left=10,caption="test"
    PROCEDURE cmd1.click
        a = b
    ENDPROC
ENDDEFINE

PROCEDURE onerr
    ?
    FOR i=1 TO ASTACKINFO(arr)
        ?arr[i,3]
    ENDFOR
ENDPROC

已OK