Ayuda con un procedimiento

[darkjack]

hola a todos
En la U me dejaron de examen hacer funciones y un procedimiento, con las funciones no hay problema, pero yo nunca he hecho un procedimiento.

hacer si me ayudaban , haber si esta bueno, o saber q esta malo.

 Escriba un procedimiento que recibe los siguientes parámetros (Idpelicula, nombre, año, cvhs, cdvd) y realiza las siguientes acciones.
o Si la película no existe, inserta un nuevo registro en las tablas peliculas, aka y akaxpel en forma apropiada. (15 ptos)
o Si la película existe, inserta un nuevo registro en las tablas aka y akaxpel. (10 ptos)
create or replace procedure "PRO1" (id in peliculas.idpelicula%type,
Aaa in peliculas.ano%type,
Dvd in peliculas.cdvd%type,
Vhs in peliculas.cvhs%type,
Nombr in aka.nombre%type
)
is
pe peliculas.IDPELICULA%type;

begin
Select IDPELICULA into pe
From PELICULAS;

Insert into aka values(id,nombr );
Insert into akaxpelicula Values(Default,id,id);

Exception
When no_data_found then
Insert into PELICULAS Values(Id,aaa,dvd,vhs);
Insert into aka Values(Id,nombr);
Insert into akaxpelicula Values(Default, id,id);

end;


gracias de ante mano.