Unrecoverable error 9000: Error! missing __ErrorBlock()

[asimoes]

Amigos,

Estou transformando um sistema clipper para xHarbour e executando me apresenta este erro:

Unrecoverable error 9000: Error! missing __ErrorBlock()

Alguém pode dar uma luz?

[]´S

[asimoes]

Amigos,

Resolvi da seguinte forma:

Criei 2 funções no prg principal (main):

FUNCTION __ErrorBlock()
RETURN NIL

e

FUNCTION __ErrorBreak()
RETURN NIL

Isto resolveu.

[alaminojunior]

Não sei não hein !?
Sem querer ser pessimista, mas e se alguma outra rotina depender destas ?

[asimoes]

Amigos,

Descobri o que estava causando o problema.

Uma procedure no prg de procedures e functions

PROCEDURE SYSINIT
RETURN

Removi e acabou-se o problema.

O fonte que eu estou migrando é do clipper e no clipper não dá erro.

[]´s