parameters 命令示例

下面的示例向一个错误处理例程传递变量。

on error do errhand with error( ), message( ), ;
message(1),program( ),lineno( )
use nodatabase
on error &&还原系统错误处理例程

procedure errhand
parameters gnerror, gcmess, gnmess1, gcprog, gnlineno
? 'error number: ' + ltrim(str(gnerror))
? 'error message: ' + gcmess
? 'line of code with error: ' + gnmess1
? 'line number of error: '+ ltrim(str(gnlineno))
? 'program with error: ' + gcprog