PROCNAME()
 Retorna o nome da rotina ou funçao definida pelo usuário corrente ou
 anterior
------------------------------------------------------------------------------

 Sintaxe

     PROCNAME([<nAtivaçao>]) --> cNomeRotina

 Argumentos

     <nAtivaçao> especifica a ativaçao a ser questionada.  Zero
     refere-se à ativaçao corrente, 1 (um) refere-se à ativaçao anterior,
     etc.  Caso nao haja especificaçao, o valor padrao é zero.

 Retorno

     PROCNAME() retorna o nome de uma rotina, funçao ou bloco de código em
     execuçao no momento, na forma de uma cadeia de caracteres.

 Descriçao

     PROCNAME() questiona a pilha de ativaçao do Clipper a respeito do nome
     de uma rotina, funçao definida pelo usuário, ou bloco de código em
     execuçao naquele momento.  A pilha de ativaçao é uma estrutura interna
     que mantém um registro de cada invocaçao de rotina, funçao, ou bloco de
     código.

     Para a ativaçao corrente, PROCNAME() retorna o nome da rotina ou funçao
     definida pelo usuário.  Para uma ativaçao anterior, PROCNAME() retorna
     o nome da rotina ou funçao definida pelo usuário que invocou a rotina
     corrente.

     Se a ativaçao questionada é uma avaliaçao de bloco de código,
     PROCNAME() retorna o nome da rotina ou funçao de usuário que definiu o
     bloco de código.

     PROCNAME() é utilizada juntamente com PROCLINE() para fornecer
     informaçoes sobre depuraçao.

 Exemplos

     Este exemplo é uma funçao definida pelo usuário que pode ser chamada
     durante uma fase de depuraçao no programa de desenvolvimento para
     exibir a pilha de ativaçao com números de linha:

     FUNCTION ListStack( cMessage )
        LOCAL nActivation := 1
        ? cMessage
        WHILE !(PROCNAME(nActivation) == "")
           ? "Chamada de:", PROCNAME(nActivation),;
             "(" + LTRIM(STR(PROCLINE(nActivation))) + ")"
           nActivation++
        ENDDO
        QUIT
        RETURN NIL

 Arquivos:  Biblioteca CLIPPER.LIB.
 To download this example - click here.

See Also: PROCLINE()