下面示例是一个简单错误处理程序的一部分。
on error do bug_proc with lineno( )
brws && causes an error
on error
*** bug_proc 错误处理程序***
procedure bug_proc
parameters gnbadline
wait window 'error occurred at line: ' + alltrim(str(gnbadline))
return