Parametros IN, OUT e IN OUT en PROCEDURES

[Martin Marin Miquelarena]

/*Prueba para ver còmo funcionan los paràmetros IN, OUT e IN OUT*/
CREATE OR REPLACE PROCEDURE prueba_param IS
    va NUMBER:=5;
    vb NUMBER;
    vc NUMBER:=2;
    /*Creamos un procedimiento  interno con tres parámetros:
    Una variable  IN, una OUT y una variable IN OUT*/
    PROCEDURE prueba (pa NUMBER, pb OUT NUMBER, pc IN OUT NUMBER) IS
  
    BEGIN
        pb := pa * 2;
        pc := pc + pb;
    END prueba;
  
BEGIN
    /*  En la primera posiciòn le asignamos la variable va con valor 5
        En la segunda posición devolvemos el resultado de va *2 (10) a una variable que está
     fuera del procedimiento (vb)
        En la ùltima posición pasamos la variable vc (=2) y multiplicamos eso por pc (=10)
        Debería devlver= 5, 10,12*/

    dbms_output.put_line (to_char(va)||' '||to_char(nvl(vb,0))||' '||to_char(vc));
    prueba (va,vb,vc);
    dbms_output.put_line (to_char(va)||' '||to_char(vb)||' '||to_char(vc));
END prueba_param;