create or replace procedure 隐式游标 as

  flag CHAR := 'U' ;

begin

 if SQL%found then

  update table3 set TANAME='问问' where taid=1;

  commit;

 

  flag :='I';

  insert into table3(taid,taname,bqid) values(4,'人事部',2);

  commit;

  end if;

 

  if flag ='U' then

  dbms_output.put_line('表已更新');

  ELSE

  dbms_output.put_line('记录已插入');

  end if;

end 隐式游标;