祝学:函数有关问题

祝学:函数问题
create   table   tb(id   numeric(8),person_no   numeric(5),person_name   varchar2(8),company_id   numeric(2))


CREATE   OR   REPLACE   PROCEDURE   AddNewRcord(
p_ID   tb.ID%TYPE,
P_person_no   tb.PERSON_NO%TYPE,
p_person_name   tb.PERSON_NAME%TYPE,
P_company_ID   tb.COMPANY_ID%TYPE)AS
BEGIN
insert   into   tb(id,person_no,person_name,company_id)
values(p_ID,p_person_no,p_person_name,p_company_ID);
commit;
END   AddNewRcord;     --这行出错了

begin
AddNewRcord(6,24118, 'paul ', 'adar ');
end;


这个例子和书的代码是一样的,但编译运行到AddNewRcord出错?
请高手指教一下,谢谢!

------解决方案--------------------
AddNewRcord(6,24118, 'paul ', 'adar ');
把 'adar '换成小于三位数的数字（company_id numeric(2)）