FiveTech Support Forums

#include "FiveWin.ch"
#include "error.ch"

FUNCTION Main()

   local oError, x, nTotal, nLoc

  TRY

    nLoc := "error" / 2  // linea 10

  CATCH oError  

   msgInfo( oError:gencode )

   msgInfo( oError:SubSystem )

   msgInfo( oError:SubCode )

   msgInfo( oError:Operation )

   msgInfo( oError:Description )

   msgInfo( valToPrg( oError:Args ) )

   // Asi, con xHarbour funciona. Con Harbour NO funciona. ????
   MsgInfo( cValToChar( oError:procLine() ),, "Linea del Error: 10" )

  END

RETURN NIL

// Fin

// Testing Harbour ProcName() and ProcLine() -> Procname.prg de Harbour

#include "FiveWin.ch"

PROCEDURE Main()

   Two()

RETURN

FUNCTION Two()

   Three()

RETURN NIL

FUNCTION Three()

   Four()

RETURN NIL

FUNCTION Four()

   Five()

RETURN NIL

FUNCTION Five()

   LOCAL n := 0

   WHILE ! Empty( ProcName( n ) )
      ?? "Called from: ", ProcName( n ), ProcLine( n++ ), hb_eol()
   ENDDO

RETURN NIL

// fin

echo %hdirl%\xhb.lib + >> b32.bc

// testing procline() con Harbour. Me gusta xHarbour. jejejejejeje.

#include "FiveWin.ch"

MEMVAR A, B

PROCEDURE Main()

   LOCAL oError

   BEGIN SEQUENCE WITH {| oError | oError:Cargo := { ProcName( 1 ),   ;
                                                     ProcLine( 1 ) }, ;
                                                     Break( oError ) }

      A=B  // linea del error: 15

   RECOVER USING oError

      ? oError:Cargo[1] //Procname
      ? oError:Cargo[2] //Procline -> Retorna Correcto con BEGIN...

   END

RETURN