Local
Error handling statement to set the current error handler
On Local Error Goto label
On Local Error Goto label
label
The Local clause in an On Error construction allows to define an error handler in the same Sub/Function the On Local Error is. Exit Sub/Function must be used before the start of the error handler.
Notice the program must be compiled with -e or -ex option for the QB-like error handling to work.
Syntax
On Local Error Goto label
Usage
On Local Error Goto label
Parameters
label
label to jump to when error occurs
Description
The Local clause in an On Error construction allows to define an error handler in the same Sub/Function the On Local Error is. Exit Sub/Function must be used before the start of the error handler.
Notice the program must be compiled with -e or -ex option for the QB-like error handling to work.
Example
'' compile with -lang fblite or qb
#lang "fblite"
Declare Sub foo
foo
Print "ok"
Sleep
Sub foo
Dim errno As Integer
On Local Error Goto fail
Open "xzxwz.zwz" For Input As #1
On Local Error Goto 0
Exit Sub
fail: ' here starts the error handler
errno = Err
Print "Error "; errno ' just print the error number
Sleep
End Sub
#lang "fblite"
Declare Sub foo
foo
Print "ok"
Sleep
Sub foo
Dim errno As Integer
On Local Error Goto fail
Open "xzxwz.zwz" For Input As #1
On Local Error Goto 0
Exit Sub
fail: ' here starts the error handler
errno = Err
Print "Error "; errno ' just print the error number
Sleep
End Sub
Differences from QB
- The LOCAL clause comes from PDS 7.1. QB 4.5 does not allow local error handling.
See also
