Criar e "popular" uma tabela simples para testes

[Motta 645]

Baseado em um tópico do SqlServer, criei um pequeno passo para criar e popular uma tabela para testes.

Bem simples, usa a package RANDOM para gerar valores,datas e strings aleatórias.

CREATE TABLE TESTE  (    id number not null enable,    VALOR number(10,2) not null enable,    data date not null enable,    NOME  varchar2(50) not null enable, constraint TESTE_PK primary key (id) ) 

BLOCO DE EXECUÇÃO

 begin   
 for I in 1..1000   
 LOOP     
   insert into TESTE (id,                        
                      VALOR,                        
                      data,                        
                      NOME)            
    values      (I,                        
                 ROUND((DBMS_RANDOM.value * 1000),2) VALOR,                                    (sysdate - DBMS_RANDOM.value * (100)) data,  
                 (DBMS_RANDOM.STRING('U',5+ROUND(DBMS_RANDOM.value * 5)) 
                 || ' ' ||                        
                 DBMS_RANDOM.STRING('U',5+ROUND(DBMS_RANDOM.value * 5))));   
 end LOOP;   
 commit;
END;