执行出生日期变更记录写入

最新推荐文章于 2020-02-05 16:28:56 发布

jimmy9495

最新推荐文章于 2020-02-05 16:28:56 发布

阅读量97

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.csdn.net/jimmy9495/article/details/84116241



create or replace procedure do_update
is
  OutputFile UTL_FILE.FILE_TYPE;
  v_result varchar2(2048);
  v_rfid_num number;
  cursor r is
    select distinct h.rfid as rfid from his_animal_info h;
  thedata r%rowtype;
begin

v_rfid_num := 0;
  open r;
  loop
    fetch r
      into thedata;
    v_rfid_num := v_rfid_num + 1;
    OutputFile := utl_file.fopen('background_dump_dest','birthdayhis.log','a');
    utl_file.putf(OutputFile,v_rfid_num);
    utl_file.fflush(OutputFile);
    utl_file.fclose(OutputFile);

    get_BirthdayHis_By_RFID(thedata.rfid,v_result);

    if (v_result is not null) then
      update tbl_animal_info a
         set a.birthday_his = v_result
       where a.rfid = thedata.rfid;
      commit;
    end if;

  end loop;

end;