MINI MINI MANI MO

Rem
Rem $Header: sdo/admin/sdowfslh.sql /main/18 2017/05/26 16:34:19 rjanders Exp $
Rem
Rem sdowfslh.sql
Rem
Rem Copyright (c) 2006, 2017, Oracle and/or its affiliates. 
Rem All rights reserved.
Rem
Rem    NAME
Rem      sdowfslh.sql - <one-line expansion of the name>
Rem
Rem    DESCRIPTION
Rem      <short description of component this file declares/defines>
Rem
Rem    NOTES
Rem      <other useful comments, qualifications, etc.>
Rem
Rem    BEGIN SQL_FILE_METADATA
Rem    SQL_SOURCE_FILE: sdo/admin/sdowfslh.sql
Rem    SQL_SHIPPED_FILE: md/admin/sdowfslh.sql
Rem    SQL_PHASE: SDOWFSLH
Rem    SQL_STARTUP_MODE: NORMAL
Rem    SQL_IGNORABLE_ERRORS: NONE
Rem    SQL_CALLING_FILE: sdo/admin/sdowfscs.sql
Rem    END SQL_FILE_METADATA
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    rjanders    05/10/17 - #26037683: Raise 'when other' exceptions
Rem    rjanders    03/23/17 - #25437999: Remove 'when others then NULL'
Rem                           handlers
Rem    rjanders    03/09/17 - Add missing SQL_FILE_METADATA information
Rem    bkazar      07/18/16 - Bug 24312240
Rem    rjanders    01/02/15 - long identifier project phase 1
Rem    rjanders    09/16/13 - OCCS: Remove hardtabs
Rem    rjanders    03/15/13 - #16473696: Start/End _ORACLE_SCRIPT
Rem                           initialization
Rem    sravada     02/18/09 - enable short txns
Rem    rchatter    03/28/06 - Created
Rem


Rem ********************************************************************
Rem #16473696: Indicate Oracle-Supplied object
@@?/rdbms/admin/sqlsessstart.sql
Rem ********************************************************************

declare
  table_not_found exception;
  pragma exception_init(table_not_found, -00942);
begin
 begin
  execute immediate ' drop table MDSYS.SDO_WFS_LOCAL_TXNS ';
  exception
    when table_not_found then NULL;
    when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[sdowfslh.sql(' || $$PLSQL_LINE || ')1]: ' || SQLERRM); RAISE;
  end;
end;
/

CREATE GLOBAL TEMPORARY TABLE MDSYS.SDO_WFS_LOCAL_TXNS (
   SessionID    VARCHAR2(128) )  on commit preserve rows;

GRANT select, insert ON MDSYS.SDO_WFS_LOCAL_TXNS TO PUBLIC;


CREATE OR REPLACE PACKAGE MDSYS.SDO_WFS_LOCK authid current_user AS

cleanup CONSTANT number := 1;
ROWCNT_THRESHOLD CONSTANT number := 100;

procedure registerFeatureTable(userName IN varchar2, tableName IN varchar2) ;
procedure unRegisterFeatureTable(userName IN varchar2, tableName IN varchar2) ;
function lockRowsById(userName IN VARCHAR2, 
                  tableName IN varchar2, 
                  tableAlias varchar2,  
                  expiryTime IN number, 
                  rowsLocked OUT mdsys.RowPointerList, 
                  rowsNotLocked OUT mdsys.RowPointerList, 
                  lockAll varchar2, 
                  pkeyCols mdsys.StringList, 
                  autoCommit varchar2, 
                  rowsToBeLocked IN  mdsys.RowPointerList, 
                  orderClause varchar2, 
                  indexClause varchar2, 
                  maxcnt number) return number;
procedure lockRowsById(pTokenId IN varchar2, 
                userName IN VARCHAR2, 
                tableName IN varchar2, 
                tableAlias varchar2,  
                expiryTime IN number, 
                rowsLocked OUT mdsys.RowPointerList, 
                rowsNotLocked OUT mdsys.RowPointerList, 
                lockAll varchar2, 
                pkeyCols mdsys.StringList, 
                autoCommit varchar2, 
                rowsToBeLocked IN  mdsys.RowPointerList, 
                orderClause varchar2, 
                indexClause varchar2, 
                maxcnt number) ;
procedure unlockRowsById(pTokenId IN varchar2, 
                userName IN VARCHAR2, 
                tableName IN varchar2, 
                tableAlias IN varchar2,  
                pkeyCols IN mdsys.StringList, 
                autoCommit IN varchar2, 
                rowsToBeUnLocked IN  mdsys.RowPointerList);
procedure transferTokenById (pTokenId IN varchar2) ;

procedure updateTokenSessionMap(tId varchar2, sId varchar2) ;

procedure deleteTokenSessionMap(tId varchar2) ;

function queryTokenSessionMap (tId varchar2) return varchar2 ;

procedure resetTokenExpiry(tId varchar2) ;

function generateTokenId return varchar2;

procedure enableDBTxns;
end;
/

show errors;

create or replace public synonym SDO_WFS_LOCK for mdsys.SDO_WFS_LOCK;

show errors;



Rem ********************************************************************
Rem #16473696: Indicate Oracle-Supplied object
@?/rdbms/admin/sqlsessend.sql
Rem ********************************************************************