怎样把sqlserver的事务处理存储过程转为oracle实现，谢谢！！！

Question

CREATE PROCEDURE  IR_rb_User_UpdateUser
(
    @UserID        int,
    @Name    nvarchar(50),
    @Email           nvarchar(100),
    @Password    nvarchar(20),
    @RoleID        int,
    @iSuccess    int output
)
ASset @iSuccess = -1    --判断是否成功有错误应为插入重复键IF EXISTS (SELECT Email  FROM rb_Users WHERE Email = @Email and UserID<>@UserID)
BEGIN
  set @iSuccess = -2
  return
ENDBEGIN TRAN    UPDATE    rb_Users  SET    Name   = @Name,    Email    = @Email,    Password = @Password  WHERE    UserID   = @UserID    IF @@ERROR <> 0
    BEGIN
        ROLLBACK TRAN
        return
    END
    set @iSuccess = -3    update rb_UserRoles set RoleID=@RoleID  where UserID=@UserID    IF @@ERROR <> 0
    BEGIN
        ROLLBACK TRAN
        return
    ENDCOMMIT TRANset @iSuccess = 1
GO

Answer 1

CREATE or replace PROCEDURE  IR_rb_User_UpdateUser
(
    p_UserID   in     integer ,
    p_Name   in  nvarchar2(50),
    p_Email     in      nvarchar2(100),
    p_Password  in  nvarchar2(20),
    p_RoleID    in    integer ,
    p_iSuccess  out  integer 
)
is
v_i integer;
beginp_iSuccess := -1   ; --判断是否成功有错误应为插入重复键select count(*) into v_i
FROM rb_Users WHERE Email = p_Email and UserID<>p_UserID;IF v_i>0 then
 p_iSuccess := -2;
  return;
END if;BEGIN TRAN    UPDATE    rb_Users  SET    Name   = p_Name,    Email    = p_Email,    Password = p_Password  WHERE    UserID   = p_UserID;    p_iSuccess = -3;    update rb_UserRoles set RoleID=p_RoleID  where UserID=p_UserID;p_iSuccess := 1;
commit;
exception when others then
rollback;end;

Answer 2

BEGIN TRAN   --这句也要去掉