PROCNAME()

Propósito

Retornar o nome da rotina que está sendo executada.

Sintaxe

PROCNAME()

Utilização

Retorna uma cadeia de caracteres correspondente ao nome da rotina executada (FUNCTION, PROCEDURE ou PROGRAM).

Útil na depuração de programas possibilitando identificar as rotinas que estão sendo executadas.

Exemplos

O exemplo a seguir mostra-nos a utilização desta função.

$NOLIB

PROGRAM prog1

FUNC func1

? PROCNAME ()    && Exibirá "prog1"

DO proc1

lixo = func1()

QUIT

PROCEDURE proc1

  ? PROCNAME()    && Exibirá "proc1"

  RETURN

FUNCTION func1

  ? PROCNAME()    && Exibirá "func1"

RETURN (0)

Consulte

$LIBRARY, FUNCTION, PROCEDURE e PROGRAM.