Procedimientos Base Datos

Create procedure Libro

Libro number(5);
Titulo char(30);
Autor char(30);
Num_pagnumber(4);
Cursor libros is
Select libro, titulo , autor, numpag
From libro;

Procedure LibroPrestCursor Prestamo is
Select * is
From prestamo
Where trunc(Fec_prestamo, yy) = trunc(sysdate, yy);

Begin
For codlibro in prestamo loop
Dbms_output.put_line (codlibro.libro ,codlibro.titulo);
End loop;
Close prestamo;
End;

Begin
Fetch libros into libro, titulo, autor, num_pag;
while libros%found loop
Dbms_output.put_line(libro, titulo, autor, num_pag);
Fetch libros intolibro, titulo, autor, num_pag;
End loop;
Close libros
Libroprest;
End;
Create procedure prestamo (codigo number(5)) as

Libro number(5);
Nombre char(30);
Fec_prestamo date;
Fec_devolucióndate;
Cursor prestamo is
Select p.libro, s.nombre, p.fec_prestamo, p.fec_devolucion
From prestamo p, socios s
Where p.libro = codigo and p.socio = s.socio;

Begin
Fetch prestamo intolibro, nombre, fec_prestamo, fec_devolucion;
while prestamo%found loop
Dbms_output.put_line(libro, nombre, fec_prestamo, fec_devolucion);
Fetch prestamo into libro, nombre, fec_prestamo,fec_devolucion;

End loop;
Close libros


create or replace procedure Aumento is

salarionuevo number(10);
salarioant number(10);
salarioprom number(15);
salarioacumulado

CURSOR Empleados isselect * from empleado;

empleado empleados%rowtype;

begin
salarioant := 0;
select avg(salario) into salarioprom
from empleado;
open empleados;
fetchempleados into empleado;
while empleados%found loop

if empleado.salario < salarioprom
salarioant := salarioant + empleado.salario;
salarionuevo :=empleado.salario + ((salarioprom – empleado.salario) / 2);
update empleado
set salario = salarionuevo
where codigo = Empleado.codigo;
end if;
fetch...