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

create or replace procedure do_updateis  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;beginv_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;