orcal 存储过程

create or replace procedure update_data_user is


  mobilephone varchar(50); --手机
  email       varchar(50); --邮箱
  userCode    varchar(50); --用户code
  emailstatus varchar(50); --邮箱状态
  phonestatus varchar(50); --手机状态
begin
  for movedata in (select bw.user_email,
                          bw.user_mobilephone,
                          bw.user_code,
                          bu.whether_email_validate,
                          bu.whether_mobilephone_validate
                     from lc_user lc, bw_user bw, bw_user_security bu
                    where lc.user_code = bw.user_code
                      and bw.user_code = bu.user_code
                      and lc.USER_TYPE = 1
                      and bw.PAY_PWD is not null
                      and lc.long_name is not null
                      and lc.user_email != bw.user_email
                      and bu.whether_email_validate = '1') loop
    begin
      mobilephone := movedata.user_mobilephone;
      email       := movedata.user_email;
      userCode    := movedata.user_code;
      emailstatus := movedata.whether_email_validate;
      phonestatus := movedata.whether_mobilephone_validate;


      -- 更新
      update lc_user lc
         set lc.user_email       = email,
             lc.user_mobilephone = mobilephone,
             lc.email_status     = emailstatus,
             lc.phone_status     = phonestatus
       where user_code = userCode;
    end;
  end loop;
  commit;
end update_data_user;