Ajuda Com PROCEDURE

Boa Noite Galera preciso de ajuda com essa procedure aqui
1-        Criar uma procedure para inserir 100000
funcionários?

3-     
Criar uma procedure para inserir 100 turnos?

4-     
Criar procedure para inserir 20.000 registros
para cada turno na tabela de movimentos?sds
Eu Já consegui fazer até inserir 100 turno, após isso não consigo fazer os registros

Cadastro de FUNCIONARIOSCREATE PROCEDURE CAD_FUN asdeclare variable com integer;begin com = 1;  while (com<100001) do   begin    insert into funcionario     (cod_funcionario, nome, fone)      values       (:com,         'Funcinario '||:com,         substring(:com||:com||:com||:com from 1 for 4)||        substring('-'||:com||:com||:com||:com from 1 for 5));  com=com+1;   endend
Cadastro de TURNOSCREATE PROCEDURE CAD_TUR asdeclare variable com integer;begin COM=1;  WHILE (COM<101) DO   BEGIN    INSERT INTO TURNO    (COD_TURNO,COD_CAIXA,COD_FUNCIONARIO,DH_INICIO,DH_FIM,STATUS)     VALUES      (:COM,      :COM+10,      :COM+300,      '06.06.2011 07:48',      current_timestamp,      'F'       );       COM=COM+1;    END
end
são quatro tabelas CAIXA, FUNCIONARIO, MOVIMENTOS_TURNO e TURNO