FoxBASE+错误捕获程序

Author: 朱才军 Date: 1997-01-01

#3　　对于ＦｏｘＢＡＳＥ＋的用户来讲，程序调试是件非常麻烦的事情，特别是大的管理系统。因为ＦｏｘＢＡＳＥ＋不像ＰＡＳＣＡＬ、Ｃ等高级语言那样由编译系统检查错误，并能直接返回到源程序中，ＦｏｘＢＡＳＥ＋只能在运行时查错，修改后不能返回到源程序。前一个问题是系统本身的问题，不能解决，但后一个问题是可以由用户自行解决的，笔者自己编制了一个小程序，具体如下：

#3　　＊＊错误捕获及处理程序＊＊ＥＲＲ．ＰＲＧ＊＊
　　ＣＬＥＡＲ
　　？＇程序＇＋ＳＹＳ（１６，１）＋＇中出现错误！＇
　　？＇出错语句＇＋ＳＴＲ（ｅｒｒｏｒ（），４）
　　？＇错误信息：＋ＭＥＳＳＡＧＥ（）
　　ａ＝ＳＹＳ（１６，１）
　　＊将错误语句所在程序名赋给ａ
　　ＹＮ＝＇　＇
　　＠５，０　ＳＡＹ　＇修改（Ｍ）　跳过（Ｊ）　退出（Ｑ）　请选择！＇
　　＠５，３０　ＧＥＴ　ＹＮ　ＶＡＬＩＤ　ＹＮ　＄　＂ＭＪＱ＂　ＰＩＣＴ　＇！＇
　　ＲＥＡＤ
　　ＤＯ　ＣＡＳＥ
　　ＣＡＳＥ　ＹＮ＝＇Ｍ＇
　　ＭＯＤＩ　ＣＯＭＭ　＆ａ
　　ＲＥＴＵＲＮ
　　＊选择＇Ｍ＇，则返回原程序进行修改，修改完后存盘，系统自动从原错误处开始继续运行程序
　　ＣＡＳＥ　ＹＮ＝＇Ｙ＇
　　ＲＥＴＵＲＮ
　　＊选择＇Ｊ＇，则忽略错误，继续向下执行程序
　　ＣＡＳＥ　ＹＮ＝＇Ｑ＇
　　ＱＵＩＴ
　　＊选择＇Ｑ＇，则关闭所有文件，并退出系统
　　ＥＮＤＣＡＳＥ
　　ＲＥＴＵＲＮ
　　使用该程序，只需将该程序拷到需调试程序所在的目录下，然后在需调试程序首部加上命令语句ＯＮ　ＥＲＲＯＲ　ＤＯ　ＥＲＲ就可以了
#3　　调用举例
　　＊＊ＥＸＰ．ＰＲＧ＊＊
　　ＯＮ　ＥＲＲＯＲ　ＤＯ　ＥＲＲ
　　？Ａ
　　？Ｂ
　　？Ｃ
　　ＯＮ　ＥＲＲＯＲ
　　ＲＥＴＵＲＮ
　　