WhereIsIt() Bicahi Esgici

/*

p.WhereIsIt()  : Genera un mensaje que dice el punto de ejecución de programa y las llamadas anteriores del mismo.
                   
  Propósito:  sólo para depurar el código de nuestros programas.

                   
  Syntax : WhereIsIt() => NIL
 
  Parameters : No requiere parámetros.
 
  Return : WhereIsIt() siempre devuelve un valor nulo NIL
 
  History : 8.2006 : First release                  
                     
*/
PROC WhereIsIt()

   LOCA nLevel   := 0,;
        cMessage := ''

   WHILE !(PROCNAME(++nLevel) == "")
      cMessage += IF( nLevel < 2, SPAC( 11 ), "from : " ) + ;
                          PROCNAME( nLevel ) + ;
                          " (" + LTRIM( STR( PROCLINE( nLevel ) ) ) + ")" + CRLF
   ENDDO
      
   MsgInfo( cMessage, "It's in :" )
            
RETU // WhereIsIt()

*.-._.-._.-._.-._.-._.-._.-._.-