Hibas program egy termeket kell beszurni egy raktarba, pl sql program?

CREATE OR REPLACE PROCEDURE beszur (

a_helysegid leltar.helysegid%type, a_termekid leltar.termekid%type, a_mennyiseg leltar.mennyiseg%type)

IS

BEGIN

INSERT INTO leltar (helysegid, termekid, mennyiseg)

VALUES (a_helysegid, a_termekid, a_mennyiseg);

COMMIT;

EXCEPTION

WHEN dup_val_on_index then

dbms_output.put_line('hiba, mar van ilyen termek ');

END termekbeszur;

/

declare

t_helysegid number := '101';

t_termekid VARCHAR2 := 'P555';

t_mennyiseg NUMBER := '20';

begin

beszur(t_helysegid, t_termekid, t_mennyiseg);

end;

/