rem ----------------------------------------------------------------------------
rem File:        $RCSfile: jrobject.jps $
rem Author:      $Author: cwilliam $
rem Date:        $Date: 1998/08/13 16:32:23 $
rem Version:     $Revision: 1.2 $
rem Status:      $State: Exp $
rem Locked_by:   $Locker:  $
rem Description: <Enter global description here>
rem Notes:       <Global notes>
rem RealAuth:    <Full real name of code author>
rem IncepDate:   <nnth Xxxember 1998>
rem Copyright:   (c) Oracle Corporation 1998.  All Rights Reserved.
rem ----------------------------------------------------------------------------
rem Log of Changes from RCS
rem ----------------------------------------------------------------------------
rem $Log: jrobject.jps $
rem Revision 1.2  1998/08/13  16:32:23  cwilliam
rem renamed package, added procedures to report on primary object composition
rem
rem Revision 1.1  1998/08/12  14:07:50  cwilliam
rem Initial revision
rem
rem ----------------------------------------------------------------------------
rem  

prompt Package Header: jr_object

create or replace package 
jr_object is

  -- check_pragmas
  --
  -- Owning objects of a table are specified by a repos pragma defined against the table.
  -- The owner is specified by the foreign key name to the owner from the table.
  -- The pragma is of the form owning_object_via_fk=<foreign key name> (or keyword abbreviation ofk)
  -- Registration used to use the existence of (a single) cascade delete foreign key to indicate
  -- ownership. It still assumes that owning foreign keys are also cascade delete.
  --
  -- This procedure reads all foreign key names specified as owning foreign keys and lists all
  -- those which are not cascade delete
  --
  -- NB. In sqlplus, to see the output from this procedure, type 'set serveroutput on'
  --
  procedure check_pragmas (schema_name varchar2);

  -- report
  --
  -- report on object definitions (ie. an object and everything it owns)
  -- split into 2 procedures due to limit of dbms_output buffer for output
  --
  procedure report_upto_m;
  procedure report_from_m;
  procedure report (table_name varchar2);

end jr_object;
/

rem  
rem ----------------------------------------------------------------------------
rem $$Header_is_done
rem  End of file $RCSfile: jrobject.jps $
rem ----------------------------------------------------------------------------