Error 0 in line 0 <subname>

Sub ProcessMethods

	On Error Goto errhandle

	If loglvl = LOGVERBOSE Then
		Call ALog(agentLog, 1, Time & ": Entering " & Getthreadinfo(1) & "...", DUMMY)
	End If

	Dim elmts, i As Integer
	elmts = Ubound(pdoc_mets)

	For i = 0 To elmts-1
		If doc.HasItem(pdoc_mets(i)) And (Not doc.GetItemValue(pdoc_mets(i))(0) = "") Then
			Call ALog(agentLog, 2, "Test1", DUMMY)
			Select Case pdoc_mets(i)
			Case "met_cp_srv"		:	Call Method_CreateCopy
			Case "met_crft"			:	Call Method_CreateFtIdx
			Case "met_gopt"		: 	Call Method_GetOption
			Case "met_mrkdel"	:	Call Method_MarkDelete
			Case "met_rmidx"		:	Call Method_RmFtIdx
			Case "met_sopt"		: 	Call Method_SetOption
			End Select
		Elseif doc.HasItem(pdoc_mets(i)) And doc.GetItemValue(pdoc_mets(i))(0) = "" Then
			Call ALog(agentLog, 2, "Test2", DUMMY)
			If loglvl = VERBOSE Then
				Call ALog(agentLog, 1, "Nothing to do for <" & pdoc_mets(i) & "> in " & sGetFullNoteID, DUMMY)		
			End If
		Else
			Call ALog(agentLog, 2, "Test3", DUMMY)
			If loglvl = VERBOSE Then
				Call ALog(agentLog, 2, "No known SUB for " & pdoc_mets(i), NOSUBFOUND)
			End If
		End If
	Next	
errhandle:
	Call ALog(agentLog, 2, "Error " & Err & " in line " & Erl & " in " & Getthreadinfo(1) & " (" & Error & ")", Err)
End Sub

Sub ALog(NLog As NotesLog, LType As Integer, Msg As String, Errcode As Integer)
	Dim filler As String

	Select Case Errcode
	Case METHODSPROPSFOUND	:	filler=""
	Case STARTSTOPJOB	:	filler="----  "
	Case Else			:	filler="+++"
	End Select

	Select Case LType
	Case 1		:	Call NLog.LogAction(filler + Msg)	
	Case 2		:	Call NLog.LogError(Errcode, filler & Msg)
	Case Else	:	Call NLog.LogError("999999", "WRONG LOG-TYPE!!")
	End Select

End Sub