create or alter procedure act_libro (
registro smallint,
titulo varchar(60),
autor varchar(60),
genero varchar(25),
situacion varchar(6))
returns (
newrec smallint)
as
begin
update or insert into titulos (
tipo, registro, titulo, autor, genero, situacion)
values (
3, :registro, :titulo, :autor, :genero, :situacion)
returning registro
into :newrec;
end;