能输出出错的sql语句的异常处理程序(存储过程)

一个oracle异常处理的程序,要求能输出出错的sql语句begin   do something;   v_sql:='update ...';    execute immediate v_sql; exception when others then    rollback;   dbms_output.put_line('出错的sql语句:'||v_sql);   dbms_output.put_line('返回的错误信息:'||sqlcode||':'||substr(sqlerrm,1,200));end;