On Local Error Goto label

Конструкция Local в On Error позволяет определить обработчик ошибок в той же Sub или Function , в которой On Local Error определена.

Замечание: В настоящее время Local (разрешена только внутри Sub/Function) игнорируется компилятором, и обработчик ошибок может быть либо в рамках той же процедуры  , либо в основной части модуля (если определен до процедуры).

'' компилировать с опцией -lang fblite или 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:                  ' Здесь начинается обработчик ошибок
  errno = Err
  Print "Error "; errno      ' просто распечатает номер ошибки
  Sleep
End Sub

• LOCAL пришла из PDS 7.1. QB 4.5 не допускает обработку ошибок с Local.
  
  

• On Error