Procedures com Parametros

Código:

Def Var i-numeros    As Int No-undo Extent 2.
Def Var de-resultado As Dec No-undo.         

Update i-numeros.
                     
Run pi-soma(Input  i-numeros[1],
            Input  i-numeros[2],
            Output de-resultado).

MESSAGE de-resultado
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

Procedure pi-soma :

    Define Input  Parameter pi-num1        As Int  No-undo.
    Define Input  Parameter pi-num2        As Int  No-undo.
    Define Output Parameter pde-resultado  As Dec  No-undo.

    Assign pde-resultado = pi-num1 + pi-num2.

End Procedure.