proc1 ex

create or replace 
PROCEDURE swap(n1 IN OUT PLS_INTEGER, n2 IN OUT PLS_INTEGER) IS

 n3 PLS_INTEGER := n1;

BEGIN
n1 := n2;
n2 := n3;
DBMS_OUTPUT.PUT_LINE(n1 || n2);


END swap;


/**Para mostrarlo**/
SET SERVEROUTPUT ON
DECLARE
 x PLS_INTEGER := 8;
 y PLS_INTEGER := 9;

BEGIN
swap(x,y);

END;


-----------------------------------------------------------------

create or replace 
FUNCTION faciluno (cad IN OUT  VARCHAR2,cad2 IN OUT VARCHAR2) RETURN VARCHAR2 IS
  inter VARCHAR2(100) := cad;

 BEGIN
    cad := cad2;
    cad2 := inter;
    
    inter := cad;
    
  RETURN inter;

 END faciluno;


/** Para mostrarlo**/

SET SERVEROUTPUT ON

DECLARE
x VARCHAR2(100) := 'pepe';
y VARCHAR2(100) := 'jose';

BEGIN
DBMS_OUTPUT.PUT_LINE(faciluno(x,y));


END;