Duvida Como descobrir se a execução vem de uma Function

Dá uma olhada na documentação do PROGRAM-NAME.
Além do nome do programa ele também devolve, em algumas situações, além do nome do programa o nome da procedure interna em uso.
Acho que ele devolve até o nome da trigger, se estiver sendo visto de dentro de uma trigger.

@renato.schlogel,

Você poderia publicar pra nós esse .p? ou então pelo menos o trecho onde apresenta a mensagem e que dá problema se chamar a partir de uma function?

Um teste rápido no editor:

Código:

PROCEDURE procedureNumero1:
    MESSAGE "Procedure: " ENTRY(1,PROGRAM-NAME(1)," ") SKIP
            " Programa: " ENTRY(2,PROGRAM-NAME(1)," ")
    VIEW-AS ALERT-BOX.
END PROCEDURE.

   
FUNCTION funcaoNumero1 RETURNS LOGICAL ().
    MESSAGE "Procedure: " ENTRY(1,PROGRAM-NAME(1)," ") SKIP
            " Programa: " ENTRY(2,PROGRAM-NAME(1)," ")
    VIEW-AS ALERT-BOX.
END FUNCTION.



RUN procedureNumero1.
funcaoNumero1().

@Agnaldo,

Pelo que eu entendi, é o contrário que ele precisa... exemplo:

Código:

PROCEDURE procedureOrigem:
    RUN procedureDestino.
END PROCEDURE.

  
FUNCTION funcaoOrigem RETURNS LOGICAL ().
    RUN procedureDestino.
END FUNCTION.


PROCEDURE procedureDestino:
    /* aqui tem que saber quem foi que chamou, se foi a procedureOrigem ou a funcaoOrigem */
END PROCEDURE.

RUN procedureOrigem.
    funcaoOrigem().