如何在存储过程中获取异常信息

declare
  v_errcode number;
  v_errmsg varchar2(100);
  ...../省略
  commit; --当没有异常的情况下，可以提交
exception
  when others then --在有异常的情况下，怎么样得到异常信息了？
  v_errcode := sqlcode;
  v_errmsg := substr(sqlerrm,1,100);
  dbms_output.put_line('error code is' || v_errcode || ' error message is' || v_errmsg)
  rollback;
  ReturnValue := 'false';
end Pro_DHTZDWXTJ;