create or replace procedure particionaTabela is
begin
for i in (select suatabela.campo from suatabela) loop
dbms_output.put_line('Tabela: '||i.campo);
--aqui voce tem que usar o execute immediate pra conseguir fazer os DDL de criação dos particionamentos.
end loop;
end;
algo assim, cara,
vai postando as duvidas que o pessoal vai ajudando…