declare
   c clob:='declare n number;begin'||chr(10);
   f varchar2(100):='n:=%s;'||chr(10);
   v varchar2(32767);
   n number:=32768;
begin
   for i in 1..n loop
      v:=v||utl_lms.format_message(f,to_char(1e7+i));
      if length(v)>30000 then
         c:=c||v;
         v:='';
      end if;
   end loop;
   v:=v||q'[
    dbms_output.put_line('32770='||32770);    
    dbms_output.put_line('32769='||32769);    
    dbms_output.put_line('32768='||32768);    
    dbms_output.put_line('32767='||32767);    
    dbms_output.put_line('1000001='||1000001);
    dbms_output.put_line('1032767='||1032767);
    dbms_output.put_line('1000001='||1000001);
    dbms_output.put_line('1050000='||1050000);
   end;
   ]';
   c:=c||v;
   --dbms_output.put_line(c);
   execute immediate c;
end;
/

with obj as (
   select 
      object_type,owner,object_name,object_id obj#
   from dba_objects  
   where owner like nvl(upper('&owner'),'%')
     and object_type like nvl(upper('&type'),'%')
     and object_name like nvl(upper('&name'),'%')
)
select o.object_name
      ,o.object_type
      ,u1.part
      ,decode(part
             ,0,'diana'
             ,1,'portable pcode'
             ,2,'machine-dependent pcode'
             ) part_s
      ,version
      ,piece#
      ,length
      ,piece
from obj o
    ,sys.Idl_Ub1$ u1 
where u1.obj#=o.obj#
/