--------------------------------------------------------------------------------
--
-- File name:   lotshparses2.sql
-- Purpose:     Generate Lots of hard parses and shared pool activity 
--              for testing purposes
--
-- Author:      Tanel Poder
-- Copyright:   (c) http://www.tanelpoder.com
--              
-- Usage:       @lotshparses <number>
--              @lotshparses 100
--              @lotshparses 1000000
--          
-- Other:       You probably don't want to run this in production as it can
--              fill your shared pool with junk and flush out any useful stuff!
--
--------------------------------------------------------------------------------

alter session set plsql_optimize_level = 0;

declare
    x number;
    r varchar2(1000);
begin
    for i in 1..&1 loop
        r := to_char(dbms_random.random);
        execute immediate 'select count(*) from dual where rownum = '||r into x;
        execute immediate 'select count(*) from dual where rownum = '||r into x;
        execute immediate 'select count(*) from dual where rownum = '||r into x;
    end loop;
end;
/