The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_types (schema1 varchar2, schema2 varchar2,
typename varchar2, check_update boolean) is
userid number;
select o.name, o.obj#, o.oid$, t.hashcode, t.version#, o.stime
from obj$ o, obj$ o1, type$ t
where o.owner#=(select user# from user$ where name=schema2) and
o1.owner#=(select user# from user$ where name=schema1) and
o1.name= o.name and o.type#=13 and o1.type#=13 and o.oid$=t.tvoid
and o.subname is NULL;
select o.name, o.obj#, o.oid$, t.hashcode, t.version#, o.stime
from obj$ o, obj$ o1, type$ t
where o.owner#=(select user# from user$ where name=schema2) and
o1.owner#=(select user# from user$ where name=schema1) and
o1.name= o.name and o.type#=13 and o1.type#=13 and o.oid$=t.tvoid
and o.name = typename and o.subname is NULL;
select user# from user$ where name=schema1;
select 1 from obj$ o, type$ t where o.name=c3name and o.owner#=userid and
t.tvoid=o.oid$ and t.hashcode = c3hashcode and o.subname is NULL;
select 1 from obj$ o, type$ t where o.name=c3name and o.owner#=userid and
t.tvoid=o.oid$ and t.version# = c3version and o.subname is NULL;
select 1 from dependency$ d, obj$ o where o.type#=2 and o.obj#=d.d_obj# and
d.p_obj# in (select obj# from obj$ where type#=13 and subname is null and
owner#=userid);
update coltype$ set toid=ltinfo.toid where toid=(select oid$ from
obj$ where name=ltinfo.name and owner#=userid and type#=13 and subname is NULL);
update subcoltype$ set toid=ltinfo.toid where toid=(select oid$ from
obj$ where name=ltinfo.name and owner#=userid and type#=13 and subname is NULL);
update dependency$ set p_obj#=ltinfo.objid, p_timestamp=ltinfo.stime
where p_obj#=(select obj# from obj$ where name=ltinfo.name and
owner#=userid and type#=13 and subname is NULL)
and d_obj# in (select obj# from obj$ where type#=2);
if (check_update = TRUE) then
open c6;
schema1 || ' updated');
end; /* end of procedure update types */
select obj# from obj$ where name= tname and owner#=
(select user# from user$ where name=tschema)
and type#=13 and subname is null;
select line, source, length(source) from source$ where obj#= obj_id;
select obj# from obj$ o, type$ t where t.version#=i and o.name=tname and
o.oid$=t.tvoid and o.type#=13;
select count(*) into total_lines from source$ where obj# = obj_id;
select 1 from sys.obj$ o,sys.type$ t1 ,sys.user$ u where o.oid$=t1.tvoid and
o.name=typname.typname and o.subname is NULL and o.OWNER# = USER# and
u.name= typname.schema and substr(t1.hashcode,1,1)='2';
update obj$ set status=6 where type#=13 and subname is null and
name=typname.typname and owner#=(select user# from user$ where
name=typname.schema);
PROCEDURE owner_migrate_update_tdo
(toid raw, new_owner varchar2) IS
LANGUAGE C
NAME "OWNER_MIGRATE_TDO"
LIBRARY UTL_OBJECTS_LIB
parameters(toid OCIRaw, new_owner String);
FUNCTION owner_migrate_update_hashcode
(toid raw)
return raw IS
LANGUAGE C
NAME "OWNER_MIGRATE_HC"
LIBRARY UTL_OBJECTS_LIB
parameters(toid OCIRaw,
return OCIRaw);