存储过程异常

EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
BEGIN
VS_SQLCODE := SQLCODE;
VS_SQLERRM := SQLERRM;

INSERT INTO SRM_SYS_EMAIL
(SENDER, RECIPIENTS, SUBJECT, CREATION_DATE, IS_UNHANDLED)
VALUES
('出错：', VS_SQLCODE, VS_SQLERRM, SYSDATE, 0);
COMMIT;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
END;
END;