plgval.sps

来自「Oracle PL/SQL procedure generator (secon」· SPS 代码 · 共 96 行

CREATE OR REPLACE PACKAGE PLGval

/* PL/Generator Validation Package */

/*----------------------------------------------------------------
||                  PL/Generator from Quest Software 
||----------------------------------------------------------------
||    File: plgval.sps
||  Author: Steven Feuerstein
||
|| This is a part of the PL/Generator Code library.
|| Copyright (C) 1997-1998 Quest Software, Inc.
|| All rights reserved.
||
|| For more information, call Quest Software at 1-800-REVEAL4
|| or check out our Web page: www.Quest Software.com
||
------------------ Modification History --------------------------
|| Date     By     Description
||	-------- ------ -----------------------------------------------
|| 02/98    SEF    Created 
-----------------------------------------------------------------*/
IS 
   TYPE ident_tabtype IS TABLE OF oir_identifier%ROWTYPE
      INDEX BY BINARY_INTEGER;

   TYPE tabcol_tabtype IS TABLE OF oir_identifier%ROWTYPE
      INDEX BY BINARY_INTEGER;

/* Validate idents that will be generated (exceeds max. length) */

   FUNCTION invalid_idents (
      drv IN VARCHAR2, 
      tab IN VARCHAR2 := '%', 
      sch IN VARCHAR2 := USER,
      maxlen IN INTEGER := 30
      )
   RETURN ident_tabtype;

   PROCEDURE load_invalid_idents (
      drv IN VARCHAR2, 
      tab IN VARCHAR2 := '%', 
      sch IN VARCHAR2 := USER,
      maxlen IN INTEGER := 30
      );
   
   PROCEDURE show_invalid_idents (
      drv IN VARCHAR2, 
      tab IN VARCHAR2 := '%', 
      sch IN VARCHAR2 := USER,
      maxlen IN INTEGER := 30);

   FUNCTION num_invalid_idents RETURN INTEGER;

   PROCEDURE get_invalid_ident (
      nth IN INTEGER,
      sch OUT VARCHAR2,
      tab OUT VARCHAR2,
      ident OUT VARCHAR2,
      descr OUT VARCHAR2
      );

/* Validate table-column name conflict */   

   FUNCTION tabcol_conflicts (
      drv IN VARCHAR2, 
      tab IN VARCHAR2 := '%', 
      sch IN VARCHAR2 := USER,
      maxlen IN INTEGER := 30
      )
   RETURN tabcol_tabtype;

   PROCEDURE load_tabcol_conflicts (
      drv IN VARCHAR2, 
      tab IN VARCHAR2 := '%', 
      sch IN VARCHAR2 := USER,
      maxlen IN INTEGER := 30
      );
   
   PROCEDURE show_tabcol_conflicts (
      drv IN VARCHAR2, 
      tab IN VARCHAR2 := '%', 
      sch IN VARCHAR2 := USER
      );

   FUNCTION num_tabcol_conflicts RETURN INTEGER;

   PROCEDURE get_tabcol_conflicts (
      nth IN INTEGER,
      sch OUT VARCHAR2,
      tab OUT VARCHAR2
      );
   
END PLGval;
/