Tailbite source:
Code: Select all
ProcedureDLL.s TBTest(String.s)
ProcedureReturn ""
EndProcedure
Code: Select all
Procedure ErrorHandler()
MessageRequester("Error",TBTest(GetErrorModuleName()))
End
EndProcedure
OnErrorGosub(@ErrorHandler())
n=1
r=0
n/r