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

Vou testar, Obrigado Agnaldo!

Funcionou perfeitamente Agnaldo. Porém, com o this-procedure, eu só estou conseguindo ver a assinatura das funções e procedimentos do programa atual.

Vou fazer um testes, e tentar acessar a rotina de origem da função/procedimento via persistência.

Depois que implementar, vou postar o Código aqui.

Ate mais Obrigado a todos.

Como comentado antes, voce deve varrer o vetor do PROGRAM-NAME.
Nesse teu exemplo, voce esta sempre olhando para o "primeiro" item do vetor.
Teste assim:

Código:

define variable campo as character no-undo.

function funcao return char():
    run meuprocedure.
end function.

run meuprocedure.
assign campo = funcao().

procedure meuprocedure:
    message program-name(1) SKIP
            program-name(2) SKIP
        view-as alert-box info buttons ok.
end procedure.

ou assim

Código:

define variable campo as character no-undo.
DEFINE VARIABLE conta AS INTEGER.

function funcao return char():
    run meuprocedure.
end function.

run meuprocedure.
assign campo = funcao().

procedure meuprocedure:
    conta = 0.
    REPEAT:
        conta = conta + 1.
        IF PROGRAM-NAME(conta) <> ?
           THEN
               DISPLAY PROGRAM-NAME(conta) FORMAT "X(50)".
           ELSE
               LEAVE.
    END.
end procedure.