BUG? Code folding is unreliable.

Question

Code folding for PL/SQL does not work consistently.
Some blocks won't fold although inner blocks can. When I click on the [-] for a non-folding block, all the [-] below that point in the file disappear.
Hovering over the [-] shows that for blocks which don't fold, the scope of the block is only a single line, while for blocks which do fold, the scope is shown correctly.

Answer 1

CREATE OR REPLACE
PACKAGE BODY "CAP_PLUGINS" AS
-- $Header: h:\\cvs/capmgmt/ddl/cap_plugins.pkb,v 1.3 2005/08/30 10:41:38 jim.smith Exp $
-- $Log: cap_plugins.pkb,v $
-- Revision 1.3  2005/08/30 10:41:38  jim.smith
-- Implemented do_segment_space procedure
-- Revision 1.2  2005/08/04 13:51:28  jim.smith
-- Modified to ues new tablesructures
-- Revision 1.1  2005/08/04 12:14:26  jim.smith
-- Initial versions
-- =======================================================================
procedure do_table_counts(rundate in date,collection_name in varchar2,schema in varchar2) is
type thingy is record (
          table_name varchar2(30),
          object_name varchar2(30),
          object_id number);
type tablelist is table of thingy;
tlist tablelist;
collection_id number;
new_co_id number;
stmt varchar2(100);
stat_rec collected_stat%rowtype;
tcount number;
begin
  -- FIRST GET THE collection id
  begin
    select coll_id
    into collection_id
    from collection
    where coll_name = collection_name;
  exception
    WHEN no_data_found then
      return;
    WHEN OTHERS THEN RAISE;
  end;
  -- get the list of tables
  -- including tables which are not in collection_objects
  begin
    select table_name,co_name,co_id
    bulk collect
    into tlist
    from dba_tables
      left outer join ( SELECT co_name ,co_id
                      from collection_objects
                        inner join collection
                        on co_coll_id=coll_id
                      where coLL_object_type='TABLE'
                      and coll_name=collection_name)
    on table_name=co_name
    where owner=schema;
  exception
    when no_data_found then
      return;
    when others then
      raise;
  end;
  --  Now process the list
  for i in tlist.first..tlist.last
  loop
    -- if the table isn't already in the collection, add it
    if tlist(i).object_name is null then
     elx_capmgmt.create_collection_object(collection_id,tlist(i).table_name,tlist(i).table_name,new_co_id);
    else
     new_co_id:=tlist(i).object_id;
    end if;
    -- collect the stats
    begin
    stmt:='select count(*)  from '||schema||'.'||tlist(i).table_name;
    execute immediate(stmt) into tcount;
    exception
      when others then
        raise;
    end;
    stat_rec.cs_co_id:=new_co_id;
    stat_rec.cs_timestamp:=rundate;
    stat_rec.cs_stat_value:=tcount;
    elx_capmgmt.CREATE_STATISTIC(stat_rec);
  end loop;
  commit;
end;
procedure do_tablespace_size ( rundate in date, collection_name in varchar2 ) is
collection_id number ;
new_co_id number;
stat_rec collected_stat%rowtype;
cursor tablespace_size is
select * from (
  SELECT T.TABLESPACE_NAME TBLSPC,
         ROUND(sum(T.BYTES)) TOTAL
  from  (select * from DBA_DATA_FILES union select * from dba_temp_files) T
   GROUP BY  TABLESPACE_NAME
   ) left outer join ( SELECT coll_id,co_id,co_name
                      from collection_objects
                        inner join collection
                        on co_coll_id=coll_id
                      where coll_name=collection_name)
    on tblspc = co_name;
ts2 tablespace_size%rowtype;
begin
  -- FIRST GET THE collection id
  begin
    select coll_id
    into collection_id
    from collection
    where coll_name = collection_name;
  exception
    WHEN no_data_found then
      return;
    WHEN OTHERS THEN RAISE;
  end;
  -- now get the data
  begin
    for ts in tablespace_size
    loop
      ts2:=ts;
      -- if the tablespace is not part of the collection, add it
      if ts.co_id is null then
        elx_capmgmt.create_collection_object(collection_id,ts.tblspc,ts.tblspc,new_co_id);
      else
        new_co_id:=ts.co_id;
      end if;
      -- now load the statistics
      stat_rec.cs_co_id:=new_co_id;
      stat_rec.cs_timestamp:=rundate;
      stat_rec.cs_stat_value:=ts.total;
      elx_capmgmt.create_statistic(stat_rec);
    end loop;
  exception
    when dup_val_on_index then
      return;
    when others then
      raise;
  end;
end;
procedure do_tablespace_usage ( rundate in date, collection_name in varchar2  ) is
cursor tablespace_usage  is
select * from (
  SELECT T.TABLESPACE_NAME TBLSPC,
         ROUND(sum(T.BYTES)) TOTAL
  from  DBA_segments  T
   GROUP BY  TABLESPACE_NAME
   ) left outer join ( SELECT coll_id,co_id,co_name
                      from collection_objects
                        inner join collection
                        on co_coll_id=coll_id
                      where coll_name=collection_name)
    on tblspc = co_name;
collection_id number ;
new_co_id number;
stat_rec collected_stat%rowtype;
begin
  -- FIRST GET THE collection id
  begin
    select coll_id
    into collection_id
    from collection
    where coll_name = collection_name;
  exception
    WHEN OTHERS THEN RAISE;
  end;
  -- now get the data
  begin
    for ts in tablespace_usage
    loop
      -- if the tablespace is not part of the collection, add it
      if ts.co_id is null then
        elx_capmgmt.create_collection_object(collection_id,ts.tblspc,ts.tblspc,new_co_id);
      else
        new_co_id:=ts.co_id;
      end if;
      -- now load the statistics
      stat_rec.cs_co_id:=new_co_id;
      stat_rec.cs_timestamp:=rundate;
      stat_rec.cs_stat_value:=ts.total;
      elx_capmgmt.create_statistic(stat_rec);
    end loop;
  exception
    when others then raise;
  end;
end;
procedure do_tablespace_free ( rundate in date, collection_name in varchar2  ) is
cursor tablespace_free  is
select * from (
  SELECT T.TABLESPACE_NAME TBLSPC,
         ROUND(sum(T.BYTES)) TOTAL
  from  DBA_free_space  T
   GROUP BY  TABLESPACE_NAME
   ) left outer join ( SELECT coll_id,co_id,co_name
                      from collection_objects
                        inner join collection
                        on co_coll_id=coll_id
                      where coll_name=collection_name)
    on tblspc = co_name;
collection_id number ;
new_co_id number;
stat_rec collected_stat%rowtype;
begin
  -- FIRST GET THE collection id
  begin
    select coll_id
    into collection_id
    from collection
    where coll_name = collection_name;
  exception
    WHEN OTHERS THEN RAISE;
  end;
  -- now get the data
  begin
    for ts in tablespace_free
    loop
      -- if the tablespace is not part of the collection, add it
      if ts.co_id is null then
        elx_capmgmt.create_collection_object(collection_id,ts.tblspc,ts.tblspc,new_co_id);
      else
        new_co_id:=ts.co_id;
      end if;
      -- now load the statistics
      stat_rec.cs_co_id:=new_co_id;
      stat_rec.cs_timestamp:=rundate;
      stat_rec.cs_stat_value:=ts.total;
      elx_capmgmt.create_statistic(stat_rec);
    end loop;
  exception
    when others then raise;
  end;
end;
procedure do_tablespaces(rundate in date) is
  running_job_id number:=-1;
begin
  elx_utilities.make_job_log_entry(running_job_id,elx_utilities.STAGE_ENTRY,0,'Capmgmt.do_tablespace_size','0');
  do_tablespace_size(rundate,'TBLSPCSIZE');
  elx_utilities.make_job_log_entry(running_job_id,elx_utilities.STAGE_ENTRY,0,'Capmgmt.do_tablespace_free','0');
  do_tablespace_free(rundate,'TBLSPCFREE');
  elx_utilities.make_job_log_entry(running_job_id,elx_utilities.STAGE_ENTRY,0,'Capmgmt.do_tablespace_used','0');
  do_tablespace_usage(rundate,'TBLSPCUSED');
  commit;
end;
procedure do_segment_space(rundate in date,collection_name in varchar2,schema in varchar2) is
type thingy is record (
          segment_name varchar2(30),
          total_size number,
          coll_id number,
          object_id number,
          object_name varchar2(30));
type segmentlist is table of thingy;
slist segmentlist;
collection_id number;
new_co_id number;
stat_rec collected_stat%rowtype;
begin
  -- FIRST GET THE collection id
  begin
    select coll_id
    into collection_id
    from collection
    where coll_name = collection_name;
  exception
    WHEN no_data_found then
      return;
    WHEN OTHERS THEN RAISE;
  end;
  begin
    select *
    bulk collect
    into slist
    from ( select segment_name, sum(size2 ) totalsize
    from (     select segment_name,' ',segment_type,bytes size2
          from dba_segments
          where owner=SCHEMA
          and segment_type='TABLE'
          union
          select i.table_name,segment_name,segment_type,s.bytes size2
          from dba_segments s
            inner join dba_indexes i
            on segment_name=index_name
          where s.owner=SCHEMA
          and segment_type='INDEX')
  group by segment_name )
  left outer join ( SELECT coll_id,co_id,co_name
                  from collection_objects
                    inner join collection
                    on co_coll_id=coll_id
                  where coLL_object_type='SEGMENT'
                  and coll_name=collection_name)
  on segment_name = co_name;
  exception
    when others
      then raise;
  end;
  for i in slist.first..slist.last
  loop
    -- if the table isn't already in the collection, add it
    if slist(i).object_name is null then
     elx_capmgmt.create_collection_object(collection_id,slist(i).segment_name,slist(i).segment_name,new_co_id);
    else
     new_co_id:=slist(i).object_id;
    end if;
    -- collect the stats
    stat_rec.cs_co_id:=new_co_id;
    stat_rec.cs_timestamp:=rundate;
    stat_rec.cs_stat_value:=slist(i).total_size;
    elx_capmgmt.CREATE_STATISTIC(stat_rec);
  end loop;
null;
end;
END;