例: On Error ステートメント

この例で On Error ステートメントは、LotusScript® に Best 関数の実行中にエラーが発生した場合、次のステートメントから実行を再開するように指示します。

Call ステートメントを実行すると、y を z で割ろうとしたところでゼロによる除算エラーが発生します。実行は次のステートメント (If ステートメント) から再開します。そのときのエラー番号は、%Include ステートメントでスクリプトに取り込んだ lserr.lss ファイルに定義されている定数 ErrDivisionByZero の値になります。したがって Print ステートメントが実行されます。Exit Function ステートメントは、プロシージャ内の残りのステートメントを実行せずに Best() 内の実行を終え、呼び出し側に制御を戻します。

%Include "lserr.lss"
Function Best()
   Dim x As Integer, y As Integer, z As Integer
   ' After any error-generating statement, resume
   ' execution with the next statement.
   On Error Resume Next
   ' ...
   y% = 3
   z% = 0
   ' ...
   x% = y% / z%  ' Generates division-by-zero error.
   If Err = ErrDivisionByZero Then
      Print "Attempt to divide by 0. Returning to caller."
      Exit Function
   End If
   ' ...
End Function
Call Best()