sde发布错误解决办法

错误内容：

打开C:\Program Files\ArcGIS\ArcSDE\ora10gexe\etc目录下面的sde_setup.log 显示下面错误

0.先post arcsde服务，只需要执行最后两步就可以

发布后服务无法启动，会报错Unable to load Type st_domain_methods_body, underlying DBMS error encountered.

执行下面的过程修复

1.强制删除类型

drop type st_domain_methods force;

2.执行类型说明语句

CREATE OR REPLACE TYPE "ST_DOMAIN_METHODS" Authid current_user AS object

--C_Type_Release 1001

(

curs_select number,

cur_own varchar2(30),

cur_tab varchar2(30),

cur_col varchar2(30),

cur_geom SDE.st_geometry,

cur_op varchar2(30),

cur_mat varchar2(9),

static Function odcigetinterfaces (ifclist Out sys.odciobjectlist)

Return number,

static Function odciindexstart(sctx IN Out SDE.st_domain_methods,

ia sys.odciindexinfo,

op sys.odcipredinfo,

qi sys.odciqueryinfo,

strt number,

stop number,

minx number,

miny number,

maxx number,

maxy number,

env sys.odcienv)

Return number,

static Function odciindexstart(sctx IN Out SDE.st_domain_methods,

ia sys.odciindexinfo,

op sys.odcipredinfo,

qi sys.odciqueryinfo,

strt number,

stop number,

srch_shape SDE.st_geometry,

env sys.odcienv)

Return number,

static Function odciindexstart(sctx IN Out SDE.st_domain_methods,

ia sys.odciindexinfo,

op sys.odcipredinfo,

qi sys.odciqueryinfo,

strt number,

stop number,

srch_shape SDE.st_geometry,

matrix varchar2,

env sys.odcienv)

Return number,

member Function odciindexfetch (nrows number,

rids Out sys.odciridlist,

env sys.odcienv)

Return number,

member Function odciindexclose (env sys.odcienv)

Return number,

static Function odciindexcreate (ia sys.odciindexinfo,

parms varchar2,

env sys.odcienv)

Return number,

static Function odciindexdrop (ia sys.odciindexinfo,

env sys.odcienv)

Return number,

static Function odciindexinsert (ia sys.odciindexinfo,

rid varchar2,

newval SDE.st_geometry,

env sys.odcienv)

Return number,

static Function odciindexdelete (ia sys.odciindexinfo,

rid varchar2,

oldval SDE.st_geometry,

env sys.odcienv)

Return number,

static Function odciindexupdate (ia sys.odciindexinfo,

rid varchar2,

oldval SDE.st_geometry,

newval SDE.st_geometry,

env sys.odcienv)

Return number,

static Function odciindexalter(ia sys.odciindexinfo,

parms IN Out varchar2,

alter_option number,

env sys.odcienv)

Return number,

static Function odciindexgetmetadata(ia sys.odciindexinfo,

expversion varchar2,

newblock Out pls_integer,

env sys.odcienv)

Return varchar2,

static Function odciindexexchangepartition(ia sys.odciindexinfo,

ia1 sys.odciindexinfo,

env sys.odcienv)

Return number,

static Function odciindexmergepartition(ia sys.odciindexinfo,

part_name1 sys.odcipartinfo,

part_name2 sys.odcipartinfo,

parms varchar2, env sys.odcienv)

Return number,

static Function odciindexsplitpartition(ia sys.odciindexinfo,

part_name1 sys.odcipartinfo,

part_name2 sys.odcipartinfo,

parms varchar2,

env sys.odcienv)

Return number,

static Function odciindexutilcleanup (CONTEXT pls_integer)

Return number,

static Function odciindexutilgettablenames(ia sys.odciindexinfo,

read_only pls_integer,

version varchar2,

CONTEXT Out pls_integer)

Return boolean,

static Function odciindextruncate (ia sys.odciindexinfo,

env sys.odcienv)

Return number,

static Function get_release

Return number

);

3.执行type body 语句

CREATE OR REPLACE Type Body st_domain_methods

IS

-- get interfaces --

/****************************************************************************** *

*n {odcigetinterfaces} -- get interface descriptions/methods

* *::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*p purpose:

* odcigetinterfaces gets the names of the interfaces

* implemented by the type.

*e

*:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*a parameters:

* ifclist == (sys.odciobjectlist) odci object list

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*x SDE exceptions:

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*h history:

*

* kevin watt 12/02/04 original coding.

*e

***********************************************************************/ static Function odcigetinterfaces(ifclist Out sys.odciobjectlist)

Return number IS

Begin

ifclist := sys.odciobjectlist(sys.odciobject('SYS','ODCIINDEX2'));

Return odciconst.success;

End odcigetinterfaces;

-- start scan--

/*********************************************************************** *

*n {odciindexstart} -- starts domain index selection using envp

* *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*p purpose:

* odciindexstart - uses minx,miny,maxx,maxy to start domain

* index selection.

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*a parameters:

* ia == (sys.odciindexinfo) odci object info

* parms == (varchar2) parameters list

* env == (sys.odcienv) context handle

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*x SDE exceptions:

*:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*h history:

*

* kevin watt 12/02/04 original coding.

*e

***********************************************************************/ static Function odciindexstart (sctx IN Out SDE.st_domain_methods,

ia sys.odciindexinfo,

op sys.odcipredinfo,

qi sys.odciqueryinfo,

strt number,

stop number,

minx number,

miny number,

maxx number,

maxy number,

env sys.odcienv)

Return number

IS

spx_info_r SDE.spx_util.spx_record_t;

sp_ref_r SDE.spx_util.spatial_ref_record_t;

stmt varchar2(256);

table_name varchar2(32);

curs1 integer;

int_env_r SDE.spx_util.r_env;

gsize1_int integer := 0;

gsize2_int integer := 0;

gsize3_int integer := 0;

g_minx integer;

g_miny integer;

g_maxx integer;

g_maxy integer;

nrows integer;

rc number;

num_grids pls_integer;

loc_geom SDE.st_geometry DEFAULT NULL;

loc_own varchar2(30) DEFAULT NULL;

loc_tab varchar2(30) DEFAULT NULL;

loc_col varchar2(30) DEFAULT NULL;

loc_mat varchar2(9) DEFAULT NULL;

optype pls_integer;

Begin

IF SDE.spx_util.rid_init = False THEN

SDE.spx_util.rids_list := sys.odciridlist();

SDE.spx_util.rids_list.extend(2000);

SDE.spx_util.rid_init := True;

End If;

optype := SDE.spx_util.st_geom_operation_select;

rc := SDE.spx_util.get_object_info(ia,optype,NULL,spx_info_r,sp_ref_r);

IF rc != SDE.spx_util.se_success THEN

raise_application_error (SDE.st_type_util.spx_object_noexist,'Object '||ia.indexcols(1).tableschema||

'.'||ia.indexcols(1).tablename||'.'||REPLACE(ia.indexcols(1).colname,'"','')||' not found in ST_GEOMETRY_INDEX.');

End If;

int_env_r.minx := ((minx - sp_ref_r.x_offset) * sp_ref_r.xyunits + 0.5);

int_env_r.miny := ((miny - sp_ref_r.y_offset) * sp_ref_r.xyunits + 0.5);

int_env_r.maxx := ((maxx - sp_ref_r.x_offset) * sp_ref_r.xyunits + 0.5);

int_env_r.maxy := ((maxy - sp_ref_r.y_offset) * sp_ref_r.xyunits + 0.5);

IF ((env.callproperty IS NULL) AND (ia.indexpartition IS NULL )) THEN

table_name := ia.indexcols(1).tableschema||'.S'||spx_info_r.index_id||'_IDX$';

End If;

IF ((env.callproperty IS NOT NULL) AND (ia.indexpartition IS NOT NULL)) THEN

table_name := ia.indexcols(1).tableschema||'.S'||ia.indexpartition||'_PX$';

End If;

IF ((env.callproperty IS NULL) AND (ia.indexpartition IS NOT NULL)) THEN

table_name := ia.indexcols(1).tableschema||'.S'||ia.indexpartition||'_PX$';

End If;

IF op.objectname = 'ST_ENVINTERSECTS' THEN

SDE.spx_util.execute_spatial (ia,table_name,spx_info_r,sp_ref_r,int_env_r,curs1);

else

SDE.spx_util.execute_spatial_join (ia,op,table_name,spx_info_r,sp_ref_r,int_env_r,curs1);

End if;

SDE.spx_util.first_fetch := True;

sctx :=

SDE.st_domain_methods(curs1,loc_own,loc_tab,loc_col,loc_geom,op.objectname,loc_mat);

Return odciconst.success;

End odciindexstart;

/*********************************************************************** *

*n {odciindexstart} -- starts domain index selection using envp

* *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*p purpose:

* * odciindexstart - uses geometry to start domain

* index selection.

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*a parameters:

* ia == (sys.odciindexinfo) odci object info

* parms == (varchar2) parameters list

* env == (sys.odcienv) context handle

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*x SDE exceptions:

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*h history:

*

* kevin watt 12/02/04 original coding.

*e

***********************************************************************/ static Function odciindexstart (sctx IN Out SDE.st_domain_methods,

ia sys.odciindexinfo,

op sys.odcipredinfo,

qi sys.odciqueryinfo,

strt number,

stop number,

srch_shape SDE.st_geometry,

env sys. odcienv)

Return number

IS

spx_info_r SDE.spx_util.spx_record_t;

sp_ref_r SDE.spx_util.spatial_ref_record_t;

stmt varchar2(256);

table_name varchar2(32);

curs1 integer;

int_env_r SDE.spx_util.r_env;

gsize1_int integer := 0;

gsize2_int integer := 0;

gsize3_int integer := 0;

g_minx integer;

g_miny integer;

g_maxx integer;

g_maxy integer;

nrows integer;

rc number;

num_grids pls_integer;

loc_geom SDE.st_geometry DEFAULT NULL;

loc_own varchar2(30) DEFAULT NULL;

loc_tab varchar2(30) DEFAULT NULL;

loc_col varchar2(30) DEFAULT NULL;

loc_mat varchar2(9) DEFAULT NULL;

optype pls_integer;

Begin

If SDE.spx_util.rid_init = False THEN

SDE.spx_util.rids_list := sys.odciridlist();

SDE.spx_util.rids_list.extend(2000);

SDE.spx_util.rid_init := True;

End If;

optype := SDE.spx_util.st_geom_operation_select;

rc := SDE.spx_util.get_object_info(ia,optype,NULL,spx_info_r,sp_ref_r);

If rc != SDE.spx_util.se_success THEN

raise_application_error (SDE.st_type_util.spx_object_noexist,'Object '||ia.indexcols(1).tableschema||

'.'||ia.indexcols(1).tablename||'.'||REPLACE(ia.indexcols(1).colname,'"','')||' not found in ST_GEOMETRY_INDEX.');

End If;

int_env_r.minx := ((srch_shape.minx - sp_ref_r.x_offset) * sp_ref_r.xyunits + 0.5);

int_env_r.miny := ((srch_shape.miny - sp_ref_r.y_offset) * sp_ref_r.xyunits + 0.5);

int_env_r.maxx := ((srch_shape.maxx - sp_ref_r.x_offset) * sp_ref_r.xyunits + 0.5);

int_env_r.maxy := ((srch_shape.maxy - sp_ref_r.y_offset) * sp_ref_r.xyunits + 0.5);

If ((env.callproperty IS NULL) AND (ia.indexpartition IS NULL )) THEN

table_name := ia.indexcols(1).tableschema||'.S'||spx_info_r.index_id||'_IDX$';

End If;

If ((env.callproperty IS NOT NULL) AND (ia.indexpartition IS NOT NULL)) THEN

table_name := ia.indexcols(1).tableschema||'.S'||ia.indexpartition||'_PX$';

End If;

If ((env.callproperty IS NULL) AND (ia.indexpartition IS NOT NULL)) THEN

table_name := ia.indexcols(1).tableschema||'.S'||ia.indexpartition||'_PX$';

End If;

If op.objectname = 'ST_ENVINTERSECTS' THEN

rc := odciindexstart(sctx,ia,op,qi,strt,stop,

srch_shape.minx,srch_shape.miny,

srch_shape.maxx,srch_shape.maxy,env);

Return rc;

ELSE

SDE.spx_util.execute_spatial_join (ia,op,table_name,spx_info_r,sp_ref_r,int_env_r,curs1);

SDE.spx_util.first_fetch := True;

sctx := SDE.st_domain_methods(curs1,ia.indexcols(1).tableschema,ia.indexcols(1).tablename,

REPLACE(ia.indexcols(1).colname,'"',''),srch_shape,op.objectname,loc_mat);

End If;

Return odciconst.success;

End odciindexstart;

/*********************************************************************** *

*n {odciindexstart}

* *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*p purpose:

* odciindexstart - uses st_relate index selection.

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*a parameters:

* ia == (sys.odciindexinfo) odci object info

* parms == (varchar2) parameters list

* env == (sys.odcienv) context handle

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*x SDE exceptions:

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*h history:

*

* kevin watt 12/02/04 original coding.

*e

***********************************************************************/ static Function odciindexstart (sctx IN Out SDE.st_domain_methods,

ia sys.odciindexinfo,

op sys.odcipredinfo,

qi sys.odciqueryinfo,

strt number,

stop number,

srch_shape SDE.st_geometry,

matrix varchar2,

env sys.odcienv)

Return number

IS

spx_info_r SDE.spx_util.spx_record_t;

sp_ref_r SDE.spx_util.spatial_ref_record_t;

stmt varchar2(256);

table_name varchar2(32);

curs1 integer;

int_env_r SDE.spx_util.r_env;

gsize1_int integer := 0;

gsize2_int integer := 0;

gsize3_int integer := 0;

g_minx integer;

g_miny integer;

g_maxx integer;

g_maxy integer;

nrows integer;

pos integer;

rc number;

num_grids pls_integer;

loc_geom SDE.st_geometry DEFAULT NULL;

loc_own varchar2(30) DEFAULT NULL;

loc_tab varchar2(30) DEFAULT NULL;

loc_col varchar2(30) DEFAULT NULL;

loc_mat varchar2(9) DEFAULT NULL;

optype pls_integer;

Begin

IF SDE.spx_util.rid_init = False THEN

SDE.spx_util.rids_list := sys.odciridlist();

SDE.spx_util.rids_list.extend(2000);

SDE.spx_util.rid_init := True;

End If;

optype := SDE.spx_util.st_geom_operation_select;

rc := SDE.spx_util.get_object_info(ia,optype,NULL,spx_info_r,sp_ref_r);

IF rc != SDE.spx_util.se_success THEN

raise_application_error (SDE.st_type_util.spx_object_noexist,'Object '||ia.indexcols(1).tableschema||

'.'||ia.indexcols(1).tablename||'.'||REPLACE(ia.indexcols(1).colname,'"','')||' not found in ST_GEOMETRY_INDEX.');

End If;

int_env_r.minx := ((srch_shape.minx - sp_ref_r.x_offset) * sp_ref_r.xyunits + 0.5);

int_env_r.miny := ((srch_shape.miny - sp_ref_r.y_offset) * sp_ref_r.xyunits + 0.5);

int_env_r.maxx := ((srch_shape.maxx - sp_ref_r.x_offset) * sp_ref_r.xyunits + 0.5);

int_env_r.maxy := ((srch_shape.maxy - sp_ref_r.y_offset) * sp_ref_r.xyunits + 0.5);

IF ((env.callproperty IS NULL) AND (ia.indexpartition IS NULL )) THEN

table_name := ia.indexcols(1).tableschema||'.S'||spx_info_r.index_id||'_IDX$';

End If;

IF ((env.callproperty IS NOT NULL) AND (ia.indexpartition IS NOT NULL)) THEN

table_name := ia.indexcols(1).tableschema||'.S'||ia.indexpartition||'_PX$';

End If;

IF ((env.callproperty IS NULL) AND (ia.indexpartition IS NOT NULL)) THEN

table_name := ia.indexcols(1).tableschema||'.S'||ia.indexpartition||'_PX$';

End If;

IF op.objectname = 'ST_ENVINTERSECTS' THEN

SDE.spx_util.execute_spatial (ia,table_name,spx_info_r,sp_ref_r,int_env_r,curs1);

else

SDE.spx_util.execute_spatial_join (ia,op,table_name,spx_info_r,sp_ref_r,int_env_r,curs1);

End if;

SDE.spx_util.first_fetch := True;

pos := instr(UPPER(matrix),'FF*FF****',1); --Disjoint case

IF pos > 0 THEN

SDE.spx_util.relate_disjoint := TRUE;

End If;

sctx := SDE.st_domain_methods(curs1,ia.indexcols(1).tableschema,ia.indexcols(1).tablename,REPLACE(i a.indexcols(1).colname,'"',''),

srch_shape,op.objectname,matrix);

Return odciconst.success;

End odciindexstart;

-- fetch scan--

/***********************************************************************

*

*n {odciindexfetch} -- fetches domain index selection using operators

* *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*p purpose:

* odciindexfetch binds, executes and fetches spatial information

* using the domain index. The domain index is invoked for spatial

* selections (ST_EnvIntersects) and relational operators (ST_Contains,

* ST_Within,etc...). Spatial selections fetch ROWID information from

* the domain index that idenitfy the shape.

*

* Relational operators fetch the ST_Geometry information based on a

* spatial (srch_geom) provided from the predicate filter in the

* selection. The geomerty's returned (loc_geom) are used along with

* the srch_geom shape to call the specific operator. The order of

* these shapes (loc_geom,srch_geom) is important to the operator.

* ST_Contains (G1 contains G2) and ST_Within (G1 within G2) execute

* a spatial selection against G1 using the search shape from G2.

* G1 (loc_geom) must always be the first shape in these operators

* followed by G2 (srch_geom).

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*a parameters:

* ia == (sys.odciindexinfo) odci object info

* parms == (varchar2) parameters list

* env == (sys.odcienv) context handle

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*x SDE exceptions:

*e *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

*

*h history:

*

* kevin watt 12/02/04 original coding.

*e

***********************************************************************/ member Function odciindexfetch (nrows number,

rids Out NOCOPY sys.odciridlist,

env sys.odcienv)

Return number

IS

CURSOR c_geom_idx (owner_wanted IN VARCHAR2, table_wanted IN VARCHAR2, column_wanted IN VARCHAR2) IS

SELECT *

FROM SDE.st_geometry_index

WHERE owner = owner_wanted AND table_name = table_wanted AND column_name = column_wanted;

geom_idx SDE.st_geometry_index%ROWTYPE;

CURSOR c_spa_ref (srid_wanted IN NUMBER) IS

SELECT *

FROM SDE.st_spatial_references

WHERE srid = srid_wanted;

spa_ref SDE.st_spatial_references%ROWTYPE;

row_cnt pls_integer;

TYPE spa_index IS REF CURSOR;

spa_cursor spa_index;

TYPE geom_tab IS TABLE OF SDE.st_geometry INDEX BY BINARY_INTEGER;

geom_val geom_tab;

rids_cnt NUMBER DEFAULT 0;

loc_geom SDE.st_geometry;

trans_geom SDE.st_geometry;

srch_geom SDE.st_geometry;

stmt varchar2(1024);

table_name varchar2(32);

minx integer;

miny integer;

maxx integer;

maxy integer;

grids SDE.spx_util.v_grids := SDE.spx_util.v_grids(0,0,0);

levels SDE.spx_util.v_levels := SDE.spx_util.v_levels(0,0,0);

grid_env SDE.spx_util.r_grid_env := SDE.spx_util.r_grid_env();

curs1 integer;

frows integer;

pos pls_integer;

fetch_pos pls_integer;

tot_rows pls_integer := 0;

relate_cond integer;

Begin

curs1 := self.curs_select;

fetch_pos := SDE.spx_util.fetch_pos;

IF SDE.spx_util.first_fetch = True THEN

IF cur_op <> 'ST_ENVINTERSECTS' THEN

OPEN c_geom_idx (self.cur_own, self.cur_tab, self.cur_col);

FETCH c_geom_idx INTO geom_idx;

IF c_geom_idx%NOTFOUND THEN

CLOSE c_geom_idx;

RETURN odciconst.error;

END IF;

CLOSE c_geom_idx;

loc_geom := self.cur_geom;

IF geom_idx.srid <> self.cur_geom.srid THEN

SDE.st_geometry_operators.transform_srch_shape(loc_geom,srch_geom,self.cur_geom.srid,geo m_idx.srid);

ELSE

srch_geom := self.cur_geom;

End IF;

OPEN c_spa_ref (geom_idx.srid);

FETCH c_spa_ref INTO spa_ref;

IF c_spa_ref%NOTFOUND THEN

CLOSE c_spa_ref;

RETURN odciconst.error;

END IF;

CLOSE c_spa_ref;

minx := ((srch_geom.minx - spa_ref.x_offset) * spa_ref.xyunits + 0.5); miny := ((srch_geom.miny - spa_ref.y_offset) * spa_ref.xyunits + 0.5); maxx := ((srch_geom.maxx - spa_ref.x_offset) * spa_ref.xyunits + 0.5); maxy := ((srch_geom.maxy - spa_ref.y_offset) * spa_ref.xyunits + 0.5);

grids(1) := geom_idx.grid.grid1 * spa_ref.xyunits;

levels(1) := 0;

If geom_idx.grid.grid2 > 0 THEN

grids(2) := geom_idx.grid.grid2 * spa_ref.xyunits;

levels(2) := SDE.spx_util.grid_level_mask_1;

ELSE

grids(2) := 0;

End If;

If geom_idx.grid.grid3 > 0 THEN

grids(3) := geom_idx.grid.grid3 * spa_ref.xyunits;

levels(3) := SDE.spx_util.grid_level_mask_2;

ELSE

grids(3) := 0;

End If;

grid_env.extend(3);

FOR x IN 1 .. 3

Loop

If grids(x) > 0 THEN

grid_env(x).minx := TRUNC(minx / grids(x)) + levels(x);

grid_env(x).miny := TRUNC(miny / grids(x)) + levels(x);

grid_env(x).maxx := TRUNC(maxx / grids(x)) + levels(x);

grid_env(x).maxy := TRUNC(maxy / grids(x)) + levels(x);

End If;

End Loop;

dbms_sql.bind_variable(curs1, ':b1',grid_env(1).minx);

dbms_sql.bind_variable(curs1, ':b2',grid_env(1).maxx);

dbms_sql.bind_variable(curs1, ':b3',grid_env(1).miny);

dbms_sql.bind_variable(curs1, ':b4',grid_env(1).maxy);

If grids(2) > 0 THEN

dbms_sql.bind_variable(curs1, ':b5',grid_env(2).minx);

dbms_sql.bind_variable(curs1, ':b6',grid_env(2).maxx);

dbms_sql.bind_variable(curs1, ':b7',grid_env(2).miny);

dbms_sql.bind_variable(curs1, ':b8',grid_env(2).maxy);

End If;

If grids(3) > 0 THEN

dbms_sql.bind_variable(curs1, ':b9',grid_env(3).minx);

dbms_sql.bind_variable(curs1, ':b10',grid_env(3).maxx);

dbms_sql.bind_variable(curs1, ':b11',grid_env(3).miny);

dbms_sql.bind_variable(curs1, ':b12',grid_env(3).maxy); End If;

dbms_sql.bind_variable(curs1, ':e1',maxx);

dbms_sql.bind_variable(curs1, ':e2',maxy);

dbms_sql.bind_variable(curs1, ':e3',minx);

dbms_sql.bind_variable(curs1, ':e4',miny);

dbms_sql.define_array(curs1,1,SDE.spx_util.entity_tab,100,1); dbms_sql.define_array(curs1,2,SDE.spx_util.numpts_tab,100,1); dbms_sql.define_array(curs1,3,SDE.spx_util.minx_tab,100,1); dbms_sql.define_array(curs1,4,SDE.spx_util.maxx_tab,100,1); dbms_sql.define_array(curs1,5,SDE.spx_util.miny_tab,100,1); dbms_sql.define_array(curs1,6,SDE.spx_util.maxy_tab,100,1); dbms_sql.define_array(curs1,7,SDE.spx_util.points_tab,100,1); dbms_sql.define_array(curs1,8,SDE.spx_util.srid_tab,100,1); dbms_sql.define_array(curs1,9,SDE.spx_util.rid_tab,100,1); ELSE

dbms_sql.define_array(curs1, 1, SDE.spx_util.rid_tab, 100, 1); End if;

frows := dbms_sql.execute(curs1);

IF SDE.spx_util.first_fetch = TRUE THEN

LOOP

row_cnt := dbms_sql.fetch_rows(curs1);

if row_cnt = 0 AND tot_rows = 0 THEN

rids := sys.odciridlist();

rids.EXTEND(1);

rids(1) := NULL;

RETURN odciconst.success;

End IF;

IF row_cnt > 0 THEN

IF cur_op <> 'ST_ENVINTERSECTS' THEN

dbms_sql.column_value(curs1, 1, SDE.spx_util.entity_tab);

dbms_sql.column_value(curs1, 2, SDE.spx_util.numpts_tab);

dbms_sql.column_value(curs1, 3, SDE.spx_util.minx_tab);

dbms_sql.column_value(curs1, 4, SDE.spx_util.maxx_tab);

dbms_sql.column_value(curs1, 5, SDE.spx_util.miny_tab);

dbms_sql.column_value(curs1, 6, SDE.spx_util.maxy_tab);

dbms_sql.column_value(curs1, 7, SDE.spx_util.points_tab);

dbms_sql.column_value(curs1, 8, SDE.spx_util.srid_tab);

dbms_sql.column_value(curs1, 9, SDE.spx_util.rid_tab);

ELSE

dbms_sql.column_value(curs1, 1,SDE.spx_util.rid_tab);

End If;

End If;

SDE.spx_util.srch_geometry := srch_geom;

tot_rows := tot_rows + row_cnt;

exit when row_cnt <> 100;

END LOOP;

IF tot_rows > 0 THEN

SDE.spx_util.total_rows := tot_rows;

pos := 1;

SDE.spx_util.first_fetch := FALSE;

End IF;

End If;

ELSE

tot_rows := SDE.spx_util.total_rows;

pos := SDE.spx_util.fetch_pos + 1;

loc_geom := self.cur_geom;

srch_geom := SDE.spx_util.srch_geometry;

rids_cnt := 0;

END IF;

IF cur_op = 'ST_RELATE' AND SDE.spx_util.relate_disjoint = TRUE THEN relate_cond := 0;

ELSE

relate_cond := 1;

End If;

LOOP

IF pos <= tot_rows THEN

FOR i IN pos .. tot_rows LOOP

IF cur_op <> 'ST_ENVINTERSECTS' THEN

loc_geom.entity := SDE.spx_util.entity_tab(i);

loc_geom.numpts := SDE.spx_util.numpts_tab(i);

loc_geom.minx := SDE.spx_util.minx_tab(i);

loc_geom.maxx := SDE.spx_util.maxx_tab(i);

loc_geom.miny := SDE.spx_util.miny_tab(i);

loc_geom.maxy := SDE.spx_util.maxy_tab(i);

loc_geom.points := SDE.spx_util.points_tab(i);

loc_geom.srid := SDE.spx_util.srid_tab(i);

loc_geom.minz := 0;

loc_geom.maxz := 0;

loc_geom.minm := 0;

loc_geom.maxm := 0;

End If;

CASE

WHEN cur_op = 'ST_ENVINTERSECTS' THEN

rids_cnt := rids_cnt + 1;

IF rids_cnt = 1 THEN

dbms_sql.column_value(curs1, 1, SDE.spx_util.rid_tab);

rids := sys.odciridlist();

END IF;

rids.EXTEND(1);

rids(rids_cnt) := SDE.spx_util.rid_tab(i);

WHEN cur_op = 'ST_INTERSECTS' THEN

IF SDE.st_relation_operators.st_intersects_f(srch_geom, loc_geom) = 1 THEN

rids_cnt := rids_cnt + 1;

IF rids_cnt = 1 THEN

rids := sys.odciridlist();

END IF;

rids.EXTEND(1);

rids(rids_cnt) := SDE.spx_util.rid_tab(i);

END IF;

WHEN cur_op = 'ST_OVERLAPS' THEN

IF SDE.st_relation_operators.st_overlaps_f(srch_geom, loc_geom) = 1 THEN

rids_cnt := rids_cnt + 1;