给多个表添加相同字段脚本

DECLARE
V_SQL VARCHAR2(2000);
V_TABLE_NAME VARCHAR2(30);
CURSOR C1 IS
SELECT TABLE_NAME FROM USER_TABLES WHERE TABLE_NAME LIKE 'ETPS_EXT%'; --查询当前用户下的表 ETPS_EXT%
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 is_record VARCHAR2(1)';
EXECUTE IMMEDIATE V_SQL;
V_SQL := 'comment on column ' || V_TABLE_NAME || '.is_record is ' || ' ''是否备案'' ';
EXECUTE IMMEDIATE V_SQL;
END LOOP; --关闭游标
CLOSE C1;
END;