Creación de paquetes en PL/SQL

--creación de paquetes
create or replace package elPaquete is
procedure imprim (p1 numeric);

function sumar (p1 numeric, p2 numeric) return numeric;

function restar (p1 numeric, p2 numeric) return numeric;

function dividir (p1 numeric, p2 numeric) return numeric;

function multiplicar (p1 numeric, p2 numeric) return numeric;
end alPaquete;



--Agregar cuerpo al paquete
create or replace package body elPaquete is
procedure imprim(p1 numeric) is
begin
  dbms_output.put_line('El resultado es: '|| p1);
end imprim;
function sumar (p1 numeric, p2 numeric) return numeric is
begin

  return (p1+p2);
end sumar;
function restar (p1 numeric, p2 numeric) return numeric is
begin

  return (p1-p2);
end restar;

function dividir (p1 numeric, p2 numeric) return numeric is
begin
  if p2 = 0 then
    dbms_output.put_line('Error. no se puede dividir por cero');
    return 0;
  end if;
  return (p1/p2);
end dividir;
function multiplicar (p1 numeric, p2 numeric) return numeric is
begin

  return (p1*p2);
end multiplicar;
end elPaquete;


---- ejecutar el paquete!
select elPaquete.sumar(2,3) from dual;

select elPaquete.restar(2,3) from dual;

select elPaquete.dividir(10,5) from dual;

select elPaquete.multiplicar(2,3) from dual;

set serveroutput on
declare
  mivariable numeric;
begin
  mivariable := elPaquete.sumar(2,3);
  elPaquete.imprim(mivariable);
end;