祝学:函数问题

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出错?
请高手指教一下,谢谢!