oracle pl/sql 复习

exception

    when no_data_found then

      errno   := 1;

      errtext := v_notfoundmsg || v_pmsg;

      rollback;

    

    when v_exception then

      errno := 1;

      rollback;

    

    when others then

      rollback;

      v_errorcode := sqlcode;

      v_errormsg  := substr(sqlerrm, 1, 200);

      errno       := 1;

      errtext     := '入库单审核异常！' || v_pmsg;

      pack_wms_pub.sp_wms_insertsperr('入库单审核',

                                      v_errorcode,

                                      v_errormsg);