语法检查！

Question

create or replace procedure proInWithdraw(accountNo varchar2,amounts Withdraw1416.withdrawSum%type,
tran_time date,result out number)
is
insert_oper exception;
pragma exception_init(insert_oper,-1);
begin
  insert into Withdraw1416 values(accountNo,amounts,tran_time);
  commit;
  result:=0;
exception
  when insert_oper then
    result:=1;
end ;
/
declare
  No  Withdraw1416.accountNo1416%type;
  total Withdraw1416.withdrawSum%type;
  ti  date; 
  n   number;
begin
  No := '170361';
  total := 1500;
  ti := to_date('1998-01-02','yyyy-mm-dd');
  proInWithdraw(No,total,ti,n);
  dbms_output.put_line('n的值为'||n);end;
过程没问题，但是红色部分为无效！请帮帮忙，谢谢！

Answer 1

为什么无效呢？看起来没有问题啊，测了一下也没有问题。
无效的依据是什么？测试案例及结果拿出来看一下。

Answer 2

啊，错在哪里？不在这段代码里面吧？我测试确实是生效的
=====================
测试昵称是否生效