例: Erl function

'all lotuscript language error codes
%include "lserr.lss" 
' all Notes Backend Class error codes
%include "lsxbeerr.lss" 
Sub Initialize
	Dim c
	on error goto errhandler
	' throw the "Type Mismatch" error
	Error ( ERRTYPEMISMATCH ) 	
	exit sub
ErrHandler:
	Print "Got error " & Error$ & " on line " & cstr(Erl)
	resume next
End Sub