create or replace procedure CREATE_SEQ IS
v_str VARCHAR2(500);
cursor ALLTABLES IS
SELECT s.table_name FROM all_tables s
WHERE s.owner='TEST' AND (s.table_name LIKE 'BASE_%' OR s.table_name LIKE 'BD_%' OR s.table_name LIKE 'CS_%' OR s.table_name LIKE 'ES_%' OR s.table_name LIKE 'FM_%');
begin
FOR allTab IN ALLTABLES LOOP
EXECUTE IMMEDIATE 'create sequence SEQ_'||allTab.Table_Name||
' minvalue 1'||
' maxvalue 999999999999999'||
' start with 1000'||
' increment by 1'||
' cache 20';
END LOOP;
end CREATE_SEQ;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/25261409/viewspace-1055184/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/25261409/viewspace-1055184/