sql%rowcount捕捉update异常

使用sql%rowcount捕捉update异常：

CREATE   OR   REPLACE   procedure   test1(retvalue   out   char)   as
begin
      update   test   set   a   = '1 '   where   a   =   '1 ';
      if   sql%rowcount   =   0   then
          retvalue   :=   'F ';
      else
          commit;
          retvalue   :=   'T ';
      end   if;
end   test1;