Procedimientos con Oracle DataBase 11g XE

/*Creación de Procedimientos con HR*/
--habilitar salida de archivo de comandos
set serveroutput on;
--Procedimiento para Agregar Registros
create or replace procedure pa_insertar_paises
(p_id in char, p_name in varchar2, p_regid in number)
is
begin
  insert into countries
  values(p_id, p_name, p_regid);
  dbms_output.put_line('Se Registro el Pais');
end;
--probar
begin
  pa_insertar_paises('PE','Perú',2);
end;
--VER
select * from countries where country_id='PE';
--Registrar Nuevo Pais
begin
  pa_insertar_paises('CO','Colombianas',3);
end;
--VER
select * from countries where country_id='CO';

/*Procedimiento para Actualizar Registros*/
create or replace procedure pa_actualizar_pais
(p_name varchar2, p_codreg number, p_id char)
is
begin
  update countries set country_name = p_name,
  region_id = p_codreg
  where country_id = p_id;
  dbms_output.put_line('Se Actualizo el Pais');
end;
--probar
begin
  pa_actualizar_pais('Colombia',2,'CO');
end;
--ver
select * from countries where country_id='CO';

/*Procedimiento para Eliminar Registros*/
create or replace procedure pa_eliminar_pais(p_id countries.country_id%TYPE)
is
begin
  delete from countries
  where country_id = p_id;
  dbms_output.put_line('Se Elimino el Pais');
end;
--Probar
begin
  pa_eliminar_pais('CO');
end;
--VER
select * from countries where country_id='CO';

/*Procedimiento para Consultar Registros*/
create or replace procedure pa_buscar_pais
(p_id in countries.country_id%type)
is
v_nombre countries.country_name%type;
begin
  select country_name into v_nombre
  from countries
  where country_id = p_id;
  dbms_output.put_line('Nombre Pais: ' || v_nombre);
end;
--Probar
begin
  pa_buscar_pais('PE');
end;