批量更新表字段日期值的存儲過程

/*
 *搜索數據庫當前用戶的所有表，查出所有含date和time名稱，
 *并且是number(14)類型的字段的日期部分改為當前日期
 */
declare
 type tcur is ref cursor; --定義游標類型
 columnsCur tcur; --定義表的字段游標
 sTName varchar(30);--存儲表名
 sCName varchar(30);--存儲字段名
 nCurrentTime number(14); --存儲當前日期
 updstr varchar(900);
begin
 --獲取當前日期YYYYMMDD
 select to_number(to_char(sysdate, 'YYYYMMDD') || '000000')
 into nCurrentTime
 from dual;

 --從oracle系統表獲取包含數字日期形式的字段名和對應的表名
 OPEN columnsCur for
 select p.TABLE_NAME, p.COLUMN_NAME
 from user_tab_columns p
 where p.TABLE_NAME IN ('OPENORDER',
 'ORDERINSTRUCTION',
 'INSTRUCTIONDETAIL',
 'INTELLIGENTORDER',
 'TRADINGRESULT')
 and p.DATA_TYPE = 'NUMBER' and p.DATA_PRECISION=14
 and (p.COLUMN_NAME like '%DATE%' or p.COLUMN_NAME like '%TIME%');

 --根據獲得的表名和字段名把目前的時間更新為當前日期，時間保持不變
 loop
 fetch columnsCur
 into sTName, sCName;
 exit when columnsCur%notfound;
 begin
 --執行更新
 updstr := 'UPDATE ' || sTName || ' SET ' || sCName || '=' ||
 nCurrentTime || '+ to_number(nvl(substr(' || sCName ||
 ', 9), 0)) where ' || sCName || ' IS NOT NULL AND ' || sCName || '>0';
 --debug
 --dbms_output.put_line(updstr);
 execute immediate updstr;
 exception
 --如果發生錯誤，打印出執行的sql
 when others then
 dbms_output.put_line('Error:' || updstr);
 end;
 end loop;
 commit;
end;