[[duilioisola]]

Código SQL [-]
create or alter procedure act_libro (
    registro smallint,
    titulo varchar(60),
    autor varchar(60),
    genero varchar(25),
    situacion varchar(6))
returns (
    newrec smallint)
as
/*
Este dato se devuelve, por lo que se declara en el apartado RETURNS (...)
declare variable newrec smallint;
*/
begin
    update or insert into titulos (
    tipo, registro, titulo, autor, genero, situacion)
    values (
    3, :registro, :titulo, :autor, :genero, :situacion)
    returning registro
    into :newrec;
end;