遇到一个需求：在已经建好的数据库中，为每一个数据表都添加相同的3个字段。
分析:数据库中的数据表较多，一一手动修改耗时低效，是否可以用程序遍历每一张表，然后为遍历到的当前表添加字段？
查询当前用户的所有表定义和为某张表添加字段比较容易实现的，SQL中游标可以将这两者组织起来，因此编写以下程序实现功能：
DECLARE
V_SQL VARCHAR2(2000);
V_TABLE_NAME VARCHAR2(30);
CURSOR C1 IS
SELECT TABLE_NAME FROM USER_TABLES; --查询当前用户下的所有表
BEGIN
OPEN C1;
LOOP
--提取一行数据到c1
FETCH C1
INTO V_TABLE_NAME;
--判读是否提取到值，没取到值就退出
--取到值c_job%notfound 是false
--取不到值c_job%notfound 是true
EXIT WHEN C1%NOTFOUND;
V_SQL := 'alter table ' || V_TABLE_NAME || ' add BATCHDATE NUMBER(8,0)';
EXECUTE IMMEDIATE V_SQL;
V_SQL := 'alter table ' || V_TABLE_NAME ||
' add SOURCE_ID NUMBER(8,0)';
EXECUTE IMMEDIATE V_SQL;
V_SQL := 'alter table ' || V_TABLE_NAME || ' add load_date date';
EXECUTE IMMEDIATE V_SQL;
END LOOP; --关闭游标
CLOSE C1;
END;