create or replace
package cioindex_storage as
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- File: cioins.pkh
-- Auth: RM3 Generated
-- Date: 22nd Sep 1999, 07:26:13pm
-- Cont: Element Type Interface (Specification) for
--         product      <CI>
--         element type <INDEX_STORAGE>
--         short name   <INS>
-- Note: Generated from database schema SCHEMA4012_D
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- Properties
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

type rm_values is record
(
  /* ELEMENT                   */ changed_by                     varchar2(30),
  /* INDEX_STORAGE             */ cluster_reference              number(38)  ,
  /* ELEMENT                   */ created_by                     varchar2(30),
  /* ELEMENT                   */ date_changed                   date        ,
  /* ELEMENT                   */ date_created                   date        ,
  /* INDEX_STORAGE             */ degree                         number(6)   ,
  /* ACCESS_CONTROLLED_ELEMENT */ element_type_name              varchar2(10),
  /* ELEMENT                   */ id                             number(38)  ,
  /* INDEX_STORAGE             */ index_storage_on               varchar2(3) ,
  /* INDEX_STORAGE             */ index_storage_subtype          varchar2(3) ,
  /* INDEX_STORAGE             */ index_storage_type             varchar2(6) ,
  /* INDEX_STORAGE             */ initial_transaction            number(3)   ,
  /* INDEX_STORAGE             */ instances                      number(6)   ,
  /* CIELEMENT                 */ irid                           number(38)  ,
  /* CIELEMENT                 */ ivid                           number(38)  ,
  /* INDEX_STORAGE             */ maximum_transaction            number(3)   ,
  /* ELEMENT                   */ number_of_times_modified       number(38)  ,
  /* SECONDARY_ACCESS_ELEMENT  */ pac_reference                  number(38)  ,
  /* INDEX_STORAGE             */ parallel                       varchar2(1) ,
  /* SECONDARY_ACCESS_ELEMENT  */ parent_ivid                    number(38)  ,
  /* INDEX_STORAGE             */ percent_free                   number(3)   ,
  /* INDEX_STORAGE             */ reverse_or_nosort              varchar2(10),
  /* INDEX_STORAGE             */ snapshot_reference             number(38)  ,
  /* INDEX_STORAGE             */ storage_definition_reference   number(38)  ,
  /* INDEX_STORAGE             */ tablespace_reference           number(38)  ,
  /* INDEX_STORAGE             */ table_implementation_reference number(38)  ,
  /* ELEMENT                   */ types                          number(38)
);

type rm_indicators is record
(
  changed_by                     boolean not null default false,
  cluster_reference              boolean not null default false,
  created_by                     boolean not null default false,
  date_changed                   boolean not null default false,
  date_created                   boolean not null default false,
  degree                         boolean not null default false,
  element_type_name              boolean not null default false,
  id                             boolean not null default false,
  index_storage_on               boolean not null default false,
  index_storage_subtype          boolean not null default false,
  index_storage_type             boolean not null default false,
  initial_transaction            boolean not null default false,
  instances                      boolean not null default false,
  irid                           boolean not null default false,
  ivid                           boolean not null default false,
  maximum_transaction            boolean not null default false,
  number_of_times_modified       boolean not null default false,
  pac_reference                  boolean not null default false,
  parallel                       boolean not null default false,
  parent_ivid                    boolean not null default false,
  percent_free                   boolean not null default false,
  reverse_or_nosort              boolean not null default false,
  snapshot_reference             boolean not null default false,
  storage_definition_reference   boolean not null default false,
  tablespace_reference           boolean not null default false,
  table_implementation_reference boolean not null default false,
  types                          boolean not null default false
);

type data is record
(
 v rm_values,
 i rm_indicators
);


-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
procedure traverse_to_root(cid IN number, eid IN number, is_requery IN boolean);
procedure check_traversals;
procedure check_references;


-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- Globals
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

is_installed boolean := false;

end cioindex_storage;
/

REM End of cioins.pkh