Is the error in a method of the class with the error? or is in in a prg or another class?

this example sort of shows when it does and doesnt get used

clear
lotest1 = createobject( "testA" )
lotest1.MkError1()
lotest1.CallError()
lotest3 = createobject( "testB" )
lotest3.MkError2()

define class testA as custom

procedure CallError
local loTest2
lotest2 = createobject( "testB" )
lotest2.MkError2()
return

procedure MkError1
? abc
return
endproc

function error( tnErr, tcMth, tnLin )
? prog(), message(), tnErr, tcMth, tnLin
return
endproc

enddefine


define class testB as custom

procedure MkError2
? def
return
endproc

enddefine