aerror( ) 函数示例

下面的示例用 on error 命令指定名为 errhand 的错误处理程序。发出拼写错误的 brws 命令时会产生一个错误。errhand 程序创建一个包含错误信息的数组,然后显示这些信息。

on error do errhand && 确定 errhand 为错误处理程序

brws     && 语法错误
on error && 恢复系统错误处理程序

procedure errhand
= aerror(aerrorarray) && 靠近错误的数据
clear
? 'the error provided the following information' && 显示信息
for n = 1 to 7 && 显示数组中所有元素
? aerrorarray(n)
endfor