plgofst.sps

Oracle PL/SQL procedure generator (second generator type)

CREATE OR REPLACE PACKAGE PLGofst

/* The Table Partition Offset Package */

/*----------------------------------------------------------------
||                  PL/Vision Professional 
||----------------------------------------------------------------
||    File: PLVofst.sps
||  Author: Steven Feuerstein
||
|| This is a part of the PL/Vision Professional Code library.
|| Copyright (C) 1996-99 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
|| -------- ------ -----------------------------------------------
|| 08/05/97 SEF    Workaround for Oracle8
||  9/96    SEF    Package created
|| 11/96    SEF    Product release
||
******************************************************************/
IS
   /* Oracle8 workaround on row limits */
   c_first CONSTANT INTEGER := -1 * POWER (2, 31)+1;
   c_last CONSTANT INTEGER := POWER (2, 31) - 1;

   c_start CONSTANT INTEGER := 1 /*c_first*/;
   
   PROCEDURE set_startrow (row_in IN INTEGER := c_start);
   FUNCTION startrow RETURN INTEGER;

   FUNCTION shifted 
      (ofst_in IN INTEGER, max_in IN INTEGER, row_in IN INTEGER,
       start_in IN INTEGER := startrow)
   RETURN INTEGER;

   FUNCTION unshifted 
      (ofst_in IN INTEGER, max_in IN INTEGER, row_in IN INTEGER,
       start_in IN INTEGER := startrow)
    RETURN INTEGER;

   FUNCTION first 
      (ofst_in IN INTEGER, max_in IN INTEGER,
       start_in IN INTEGER := startrow) RETURN INTEGER;

   FUNCTION last 
      (ofst_in IN INTEGER, max_in IN INTEGER,
       start_in IN INTEGER := startrow) RETURN INTEGER;

   FUNCTION outofrange
      (ofst_in IN INTEGER, max_in IN INTEGER, row_in IN INTEGER,
       start_in IN INTEGER := startrow)
    RETURN BOOLEAN;

END PLGofst;
/