Dúvida procedure

Boa Tarde.
Alguém tem um exemplo de uma Procedure que recebe paramentros processa e devolve o resultado?

ou seja, quando eu chamar a procedure (run procedure), ele executa a procedure e devolve o resultado para continuar o processamento de onde ele chamou a procedure.

Desde já agradeço.

Boa tarde..
isso?

Código:

DEFINE VARIABLE c-item AS CHARACTER   NO-UNDO.
DEFINE VARIABLE c-desc AS CHARACTER   NO-UNDO.

RUN pi-retorna-descricao-it(INPUT c-item, OUTPUT c-desc).


PROCEDURE pi-retorna-descricao-it :
DEFINE INPUT PARAMETER p-item AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER p-valor AS CHARACTER NO-UNDO.


    FIND FIRST item NO-LOCK
        WHERE item.it-codigo = p-item NO-ERROR.
    if  avail item then do:
        assign p-valor = string(item.desc-item).
     end.
    return p-valor.

END PROCEDURE.

Obrigado