error( ) 函数示例

下面的示例演示了一个简单的错误处理例程。在发生错误时显示信息。

clear
on error do errhand with error( ), message( )

*** 下面一行将产生错误——不存在 brnse 命令

brwse
on error
return

*** 错误处理过程 ***

procedure errhand
parameter errnum,message
? message 
? 'error number: '+ alltrim(str(errnum))
return