plgobj.sps

Oracle PL/SQL procedure generator (second generator type)

CREATE OR REPLACE PACKAGE PLGobj &authidopen AUTHID CURRENT_USER &authidclose
/*----------------------------------------------------------------
||                  PL/Vision Professional 
||----------------------------------------------------------------
||    File: PLGobj.sps
||  Author: Steven Feuerstein
||
|| This is a part of the PL/Vision Professional Code library.
|| Copyright (C) 1996-99 RevealNet, Inc.
|| All rights reserved.
||
|| For more information, call RevealNet at 1-800-REVEAL4
|| or check out our Web page: www.revealnet.com
||
-----------------------------------------------------------------*/
IS
   no_name_specified EXCEPTION;

   c_pkg_spec CONSTANT VARCHAR2(1) := 'S';
   c_pkg_body CONSTANT VARCHAR2(1) := 'B';
   c_entire_pkg CONSTANT VARCHAR2(2) := 'SB';
   c_proc CONSTANT VARCHAR2(1) := 'P';
   c_func CONSTANT VARCHAR2(1) := 'F';
   c_trig CONSTANT VARCHAR2(2) := 'TR';
   c_tab CONSTANT VARCHAR2(1) := 'T';
   c_ind CONSTANT VARCHAR2(1) := 'I';
   c_syn CONSTANT VARCHAR2(3) := 'SYN';
   c_clu CONSTANT VARCHAR2(2) := 'CL';
   c_vu CONSTANT VARCHAR2(1) := 'V';
   c_seq CONSTANT VARCHAR2(3) := 'SEQ';

   c_procedure CONSTANT VARCHAR2(9) := 'PROCEDURE';
   c_function CONSTANT VARCHAR2(8) := 'FUNCTION';
   c_package CONSTANT VARCHAR2(7) := 'PACKAGE';
   c_package_body CONSTANT VARCHAR2(12) := 'PACKAGE BODY';
   c_synonym CONSTANT VARCHAR2(7) := 'SYNONYM';
   c_sequence CONSTANT VARCHAR2(8) := 'SEQUENCE';
   c_trigger CONSTANT VARCHAR2(7) := 'TRIGGER';
   c_table CONSTANT VARCHAR2(5) := 'TABLE';
   c_view CONSTANT VARCHAR2(5) := 'VIEW';
   c_index CONSTANT VARCHAR2(5) := 'INDEX';
   c_cluster CONSTANT VARCHAR2(7) := 'CLUSTER';

   c_valid CONSTANT CHAR(5) := 'VALID';
   c_invalid CONSTANT CHAR(7) := 'INVALID';

   TYPE spec_type IS RECORD
      (name /* sys.dba_ */ ALL_OBJECTS.OBJECT_NAME%TYPE,
       type /* sys.dba_ */ ALL_OBJECTS.OBJECT_TYPE%TYPE,
       owner /* sys.dba_ */ ALL_OBJECTS.OWNER%TYPE);
   
   FUNCTION last_modified (spec IN VARCHAR2, resolve_synonym IN BOOLEAN := FALSE)
   RETURN DATE;

   FUNCTION last_modified (
      sch IN VARCHAR2, tab IN VARCHAR2, resolve_synonym IN BOOLEAN := FALSE)
   RETURN DATE;

   FUNCTION definer (spec IN VARCHAR2, resolve_synonym IN BOOLEAN := FALSE)
   RETURN VARCHAR2;

   FUNCTION convspec (spec IN VARCHAR2, resolve_synonym IN BOOLEAN := FALSE) 
      RETURN spec_type;

END PLGobj;
/
rem show errors