MINI MINI MANI MO
@@?/rdbms/admin/sqlsessstart.sql
create or replace package hm_sqltk_internal wrapped
a000000
1
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
9
3fa 195
2/jRmjQWWAo406avkyWgzrcz+TEwg423f65qfC8CWE7VSPbFf8q0TQRfx95W2px3UqlZSTkU
L2PTULWWbi/KFHlDMEt6NLu57eu+jgltKhVO/aq8IP5k5MIFJBCKHMTK5RbhFjuXAnlUCx2m
wg6XvcC4SdhHRu1fZNGnuBAdbYdbh8RUQuIbDSYtxty4mkUcHpKU07eDURdZkLbZdGNKkFMq
hRTANumdXP/vV59612Bc/yRqps8WebV0isje3EvxtTdDFgJiubDz5nt04Ub69Exe4E3kcuSh
/nUcuCx6Y6BLTTzSA0Q4UHCGUx57tuw4rsflX4SZgmWySXg31E5O+doINHN5PrU+5CCrPUCh
UumXlc2VB9qgQMjThcDi39TeKM40FEf8ipkdCmiG
/
show errors;
create or replace package body hm_sqltk_internal wrapped
a000000
1
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
b
765 25c
mH5SPmbHt/Uv0Ubx3c/oVTl9yX0wgzvDACDWfI6KR2SlUKhaTYTqd683gEt8QAS3Rvr8aSZc
61p5TrU9gKyk56EBg3ylKZi/v7vu8WCITKZYH1KEhyTS/sGfteKan/icZFVOPAuNwfMJl2as
U6dnUayxvlDMnszfXvX/NZnsHTis2E1fCcUsHTZxrS87rQqOGUX7cF6XuTwt5uwpBOUR56Xz
qdznWGqsvbta6jfDMMxEJqdxClmMe0r/whIMnVE0QBhH/MI2MQMeW2/WgVTkynCMuFJwpDlb
KQtrYE8sBkkvCMpQuHUNVjyGDkzAfZWKYXERPYmPReSOCNJf0EF+27XnzllV969UNeQW3v3B
QkfIceMxQn3x5uG655A1hsvFbNkmfqPIIsOQ5+zKluu9hp4UWI8mmgbzff5gv1/oVQd+mJ+u
IJ+WBWt3zD81tVy4wBDey1mdcoumQsuZsHn2YieT1n75pYJ1GNz9SmKR8AQwEe7vJFl8Kvau
ksImmXsLjw6pFMKFgHv6ewLvA+4j/D80A6s/MPDZWTa++5xVSyBrCgV1G/xlEBGd7noN0N7i
97Y+LT3KREPuVSj1ncTs
/
show errors;
grant execute on hm_sqltk_internal to dba;
begin
hm_sqltk_internal.tab_init('tab$');
hm_sqltk_internal.row_check('tab$','obj#','PRIMARY KEY',
'Primary Key obj#');
hm_sqltk_internal.column_check('tab$','obj#','< 0',
'Obj# invalid - < 0');
hm_sqltk_internal.ref_check('tab$','file#','file$','relfile#',
'file# != 0 and file# != 1024',
'foreign key relfile# not found in file$');
hm_sqltk_internal.ref_check('tab$','ts#','ts$','ts#','ts# != 2147483647',
'foreign key ts# not found in ts$');
hm_sqltk_internal.ref_check
('tab$','ts#, file#, block#','seg$','ts#, file#,block#',
'file# != 0 and block# != 0',
'foreign key (file#, block#) not found in seg$');
hm_sqltk_internal.ref_check
('tab$','obj#','obj$','obj#', '',
'foreign key (obj#) not found in obj$');
hm_sqltk_internal.column_check
('tab$','tab#','is not null and tab# not between 1 and 31',
'tab# out of range for a clustered table');
hm_sqltk_internal.column_check
('tab$','cols','>1000','invalid column number');
hm_sqltk_internal.column_check
('tab$','clucols','is not null and clucols not between 1 and 33',
'invalid cluster column number found');
hm_sqltk_internal.column_check
('tab$','pctfree$','not between 0 and 99 and bitand(flags, 268435456) != 268435456',
'invalid pctfree found');
hm_sqltk_internal.column_check
('tab$','pctused$',
'not between 0 and 99 and dataobj# != 0 and dataobj# is not null',
'invalid pctused$ found');
hm_sqltk_internal.column_check
('tab$','analyzetime','>SYSDATE',
'analyzetime for object new than sysdate');
hm_sqltk_internal.tab_desc
('tab$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, tab$ t where t.rowid = chartorowid(:1) and t.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('clu$');
hm_sqltk_internal.row_check('clu$','obj#','PRIMARY KEY','Primary Key obj#');
hm_sqltk_internal.column_check('clu$','obj#','< 0', 'obj# invalid - < 0');
hm_sqltk_internal.column_check('clu$','dataobj#','< obj#',
'dataobj# invalid - must be >= obj#');
hm_sqltk_internal.ref_check('clu$','file#','file$','relfile#', 'file# != 1024',
'Foreign Key - clu$.file# not found in file$.relfile#');
hm_sqltk_internal.ref_check('clu$','ts#','ts$','ts#', 'ts# != 2147483647',
'Foreign Key - clu$.ts# not found in ts$.ts#');
hm_sqltk_internal.ref_check
('clu$','ts#, file#, block#','seg$','ts#, file#,block#',
'file# != 0 and block# != 0',
'Foreign Key - clu$.(file#,block#) not found in seg$');
hm_sqltk_internal.column_check
('clu$','pctfree$','not between 0 and 99','Invalid pctfree$');
hm_sqltk_internal.column_check
('clu$','pctused$','not between 1 and 99','Invalid pctused$');
hm_sqltk_internal.column_check
('clu$','cols','>33','Invalid cols in clu$ - cols > 33');
hm_sqltk_internal.column_check
('clu$','func','not in (0,2,3)','Invalid function found - not in (0,2,3)');
hm_sqltk_internal.tab_desc
('clu$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, clu$ c where c.rowid = chartorowid(:1) and c.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('fet$');
hm_sqltk_internal.row_check
('fet$','ts#, file#, block#','PRIMARY KEY','fet$.ts_file_block pk');
hm_sqltk_internal.ref_check('fet$','ts#','ts$','ts#','','fet$.ts# fk');
hm_sqltk_internal.tab_desc
('fet$',
'select ''Ts# ''||f.ts#||'' File# ''||f.file#||'' Block# ''||f.block#||'' is referenced'' from fet$ f where f.rowid = chartorowid(:1)');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('uet$');
hm_sqltk_internal.row_check
('uet$','ts#,segfile#,segblock#,ext#','PRIMARY KEY','uet$ pk');
hm_sqltk_internal.ref_check
('uet$','ts#','ts$','ts#','','uet.ts# fk');
hm_sqltk_internal.row_check
('uet$','ts#,file#,block#','UNIQUE KEY','uet$.ts.file.block uk');
hm_sqltk_internal.ref_check
('uet$','ts#,segfile#,segblock#','seg$','ts#,file#,block#','',
'uet$ seg$ fk');
hm_sqltk_internal.tab_desc
('uet$',
'select ''Ts# ''||u.ts#||'' File# ''||u.segfile#||'' Block# ''||u.segblock#||'' is referenced'' from uet$ u where u.rowid = chartorowid(:1)');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('seg$');
hm_sqltk_internal.row_check
('seg$','ts#,file#,block#','primary key','seg$ pk');
hm_sqltk_internal.ref_check
('seg$','ts#','ts$','ts#','','seg.ts# fk');
hm_sqltk_internal.column_check
('seg$', 'type#','not between 1 and 10','seg$.type#');
hm_sqltk_internal.ref_check
('seg$','user#','user$','user#','','seg$.user# fk');
hm_sqltk_internal.column_check
('seg$','extents','!=(select count(*) from sys.uet$ u where u.ts# = seg$.ts# and u.segfile# = seg$.file# and u.segblock# = seg$.block#) and seg$.ts# in (select ts$.ts# from ts$ where flags=0)', 'seg$.extents');
hm_sqltk_internal.tab_desc
('seg$',
'select ''Ts# ''||s.ts#||'' File# ''||s.file#||'' Block# ''||s.block#||'' is referenced'' from seg$ s where s.rowid = chartorowid(:1)');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('undo$');
hm_sqltk_internal.ref_check
('undo$','ts#,file#,block#','seg$','ts#,file#,block#', 'status$ != 1',
'undo$ seg fk');
hm_sqltk_internal.row_check
('undo$','us#','primary key','undo$ pk');
hm_sqltk_internal.column_check
('undo$','status$','not between 1 and 6','undo$.status$');
hm_sqltk_internal.ref_check
('undo$','ts#','ts$','ts#','','undo$.ts# fk');
hm_sqltk_internal.tab_desc
('undo$',
'select ''Undo segment ''||u.name||'' is referenced'' from undo$ u where u.rowid = chartorowid(:1)');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('ts$');
hm_sqltk_internal.row_check
('ts$','ts#','primary key','ts$.ts# pk');
hm_sqltk_internal.ref_check
('ts$','owner#','user$','user#','','ts$.owner# fk');
hm_sqltk_internal.row_check
('ts$','name','unique key','ts$.name uk');
hm_sqltk_internal.column_check
('ts$','online$','not between 1 and 4', 'ts$.online$');
hm_sqltk_internal.tab_desc
('ts$',
'select ''Tablespace ''||t.name||'' is referenced'' from ts$ t where t.rowid = chartorowid(:1)');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('file$');
hm_sqltk_internal.column_check
('file$','ts#','is not null and ts# not in (select ts# from ts$)','file$.status$');
hm_sqltk_internal.column_check
('file$','status$','not between 1 and 2','file$.status$');
hm_sqltk_internal.tab_desc
('file$',
'select ''Filename ''||vf.name||'' is referenced'' from file$ f, v$dbfile vf where f.rowid = chartorowid(:1) and f.file# = vf.file#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('obj$');
hm_sqltk_internal.row_check
('obj$','obj#','primary key','obj$.obj# pk');
hm_sqltk_internal.ref_check
('obj$','owner#','user$','user#','','obj$.owner# fk');
hm_sqltk_internal.column_check
('obj$','namespace','not between 1 and 114','obj$.namespace');
hm_sqltk_internal.column_check
('obj$','type#','not between 0 and 137', 'obj$.type#');
hm_sqltk_internal.column_check
('obj$','status','not between 0 and 7','obj$.status');
hm_sqltk_internal.ref_check
('obj$','obj#','tab$','obj#','obj$.type# = 2 and remoteowner is null and linkname is null','obj$ ref to tab$');
hm_sqltk_internal.tab_desc
('obj$',
'select ''Object Name ''||o.name||'' is referenced'' from obj$ o where o.rowid = chartorowid(:1)');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('ind$');
hm_sqltk_internal.row_check
('ind$','obj#','primary key','ind$.obj# pk');
hm_sqltk_internal.column_check
('ind$','obj#','<0','ind$.obj#');
hm_sqltk_internal.row_check
('ind$','dataobj#','<obj#','ind$.dataobj# range');
hm_sqltk_internal.ref_check
('ind$','ts#','ts$','ts#','ts# != 2147483647','ind$.ts# fk');
hm_sqltk_internal.ref_check
('ind$','ts#,file#,block#','seg$','ts#,file#,block#',
'file# != 0 and block# != 0','ind$.ts,file,block fk');
hm_sqltk_internal.ref_check
('ind$','obj#','obj$','obj#','','ind$.obj# fk_obj$');
hm_sqltk_internal.column_check
('ind$','type#','not between 1 and 9','ind$.type#');
hm_sqltk_internal.column_check
('ind$','pctfree$','not between 0 and 99','ind$.pctfree$');
hm_sqltk_internal.column_check
('ind$','analyzetime','> SYSDATE', 'ind$.analyzetime <= SYSDATE');
hm_sqltk_internal.tab_desc
('ind$',
'select ''Index Name ''||u.name||''.''||o.name||'' is referenced'' from ind$ i, obj$ o, user$ u where i.rowid = chartorowid(:1) and i.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('icol$');
hm_sqltk_internal.row_check
('icol$','obj#,pos#','primary key','icol$ pk');
hm_sqltk_internal.ref_check
('icol$','obj#','obj$','obj#','','icol$.obj# fk');
hm_sqltk_internal.ref_check
('icol$','bo#','obj$','obj#','','icol$.bo# fk');
hm_sqltk_internal.ref_check
('icol$','bo#, col#','col$','obj#, col#','','icol$.col# fk');
hm_sqltk_internal.ref_check
('icol$','obj#','ind$','obj#','','icol$.bo# fk');
hm_sqltk_internal.tab_desc
('icol$',
'select ''Index Name ''||u.name||''.''||o.name||'' is referenced'' from icol$ i, obj$ o, user$ u where i.rowid = chartorowid(:1) and i.obj# = o.obj# and o.obj# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('col$');
hm_sqltk_internal.ref_check
('col$','obj#','obj$','obj#','','col$.obj# fk(obj$)');
hm_sqltk_internal.column_check
('col$','col#','not between 0 and 1000','col$.col#');
hm_sqltk_internal.column_check
('col$','segcol#','not between 0 and 1000','col$,segcol#');
hm_sqltk_internal.tab_desc
('col$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, col$ c where c.rowid = chartorowid(:1) and c.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('user$');
hm_sqltk_internal.row_check
('user$','user#','primary key','user$.user# pk');
hm_sqltk_internal.ref_check
('user$','datats#','ts$','ts#','','user$.datats# fk');
hm_sqltk_internal.ref_check
('user$','tempts#','ts$','ts#','','user$.tempts# fk');
hm_sqltk_internal.column_check
('user$','ctime','>=SYSDATE','user$.ctime');
hm_sqltk_internal.column_check
('user$','astatus',
'not in (select status# from sys.user_astatus_map) and (mod(astatus, 16) not in (select status# from sys.user_astatus_map))',
'user$.astatus');
hm_sqltk_internal.tab_desc
('user$',
'select ''Username ''||u.name||'' is referenced'' from user$ u where u.rowid = chartorowid(:1)');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('con$');
hm_sqltk_internal.row_check
('con$','con#','primary key','con$.con# pk');
hm_sqltk_internal.ref_check
('con$','owner#','user$','owner#','','con$.owner# fk');
hm_sqltk_internal.tab_desc
('con$',
'select ''Constraint name ''||c.name||'' is referenced'' from con$ c where c.rowid = chartorowid(:1)');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('cdef$');
hm_sqltk_internal.row_check
('cdef$','con#','primary key','cdef$.con# pk');
hm_sqltk_internal.ref_check
('cdef$','con#','con$','con#','','cdef$.con# fk');
hm_sqltk_internal.ref_check
('cdef$','obj#','obj$','obj#','','cdef$.obj# fk');
hm_sqltk_internal.column_check
('cdef$','type#','not between 1 and 17','cdef$.type#');
hm_sqltk_internal.column_check
('cdef$','mtime','>SYSDATE','cdef$.mtime');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('ccol$');
hm_sqltk_internal.ref_check
('ccol$','obj#','obj$','obj#','','ccol$.obj# fk');
hm_sqltk_internal.ref_check
('ccol$','con#','con$','con#','','ccol$.con# fk');
hm_sqltk_internal.ref_check
('ccol$','obj#,col#','col$','obj#,col#','','ccol$.obj#,col# fk');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('bootstrap$');
hm_sqltk_internal.row_check
('bootstrap$','obj#,line#','primary key','bootstrap$ pk');
hm_sqltk_internal.ref_check
('bootstrap$','obj#','obj$','obj#','obj# > 0','bootstrap$.obj# fk');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('objauth$');
hm_sqltk_internal.row_check
('objauth$','obj#,grantor#,grantee#,privilege#,sequence#',
'primary key','objauth$ pk');
hm_sqltk_internal.ref_check
('objauth$','obj#','obj$','obj#','','objauth$.obj# fk');
hm_sqltk_internal.ref_check
('objauth$','grantor#','user$','user#','','objauth$.grantor# fk');
hm_sqltk_internal.ref_check
('objauth$','grantee#','user$','user#','','objauth$.grantee# fk');
hm_sqltk_internal.tab_desc
('objauth$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from objauth$ oa, user$ u, obj$ o where oa.rowid = chartorowid(:1) and oa.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('ugroup$');
hm_sqltk_internal.row_check
('ugroup$','ugrp#','primary key','ugroup$.ugrp# pk');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('tsq$');
hm_sqltk_internal.row_check
('tsq$','ts#,user#','primary key','tsq$.ts#,user# pk');
hm_sqltk_internal.ref_check
('tsq$','ts#','ts$','ts#','','tsq$.ts# fk');
hm_sqltk_internal.ref_check
('tsq$','user#','user$','user#','','tsq$.user# fk');
hm_sqltk_internal.ref_check
('tsq$','grantor#','user$','user#','','tsq$.grantor# fk');
hm_sqltk_internal.tab_desc
('tsq$',
'select ''Tablespace ''||t.name||'' is referenced'' from ts$ t, tsq$ tsq where tsq.rowid = chartorowid(:1) and tsq.ts# = t.ts#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('syn$');
hm_sqltk_internal.row_check
('syn$','obj#','primary key','syn$.obj# pk');
hm_sqltk_internal.tab_desc
('syn$',
'select ''Synonym ''||s.name||'' is referenced'' from syn$ s where s.rowid = chartorowid(:1)');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('view$');
hm_sqltk_internal.row_check
('view$','obj#','primary key','view$.obj# pk');
hm_sqltk_internal.ref_check
('view$','obj#','obj$','obj#','','view$.obj# fk');
hm_sqltk_internal.tab_desc
('view$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, view$ v where v.rowid = chartorowid(:1) and v.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('typed_view$');
hm_sqltk_internal.row_check
('typed_view$','obj#','primary key','view$.obj# pk');
hm_sqltk_internal.ref_check
('typed_view$','obj#','obj$','obj#','','view$.obj# fk');
hm_sqltk_internal.ref_check
('typed_view$','typeowner','user$','name','',
'typed_view$.typeowner fk');
hm_sqltk_internal.tab_desc
('typed_view$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, typed_view$ v where v.rowid = chartorowid(:1) and v.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('superobj$');
hm_sqltk_internal.ref_check
('superobj$','subobj#','obj$','obj#','','superobj$.subobj# fk');
hm_sqltk_internal.ref_check
('superobj$','superobj#','obj$','obj#','','superobj$.superobj# fk');
hm_sqltk_internal.row_check
('superobj$','subobj#,superobj#','primary key','superobj# pk');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('seq$');
hm_sqltk_internal.row_check
('seq$','obj#','primary key','seq$.obj# pk');
hm_sqltk_internal.ref_check
('seq$','obj#','obj$','obj#','','seq$.obj# fk');
hm_sqltk_internal.tab_desc
('seq$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, seq$ s where s.rowid = chartorowid(:1) and s.obj# = o.obj# and o.owner# = u.user#');
hm_sqltk_internal.column_check
('seq$','partcount',
'is not null and partcount not between 0 and 100000000',
'check seq$.partcount range');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('lob$');
hm_sqltk_internal.row_check
('lob$','obj#,intcol#','primary key','lob$.obj# pk');
hm_sqltk_internal.ref_check
('lob$','obj#','obj$','obj#','','lob$.obj# fk');
hm_sqltk_internal.ref_check
('lob$','obj#,col#','col$','obj#,col#','','lob$.obj#,col# fk');
hm_sqltk_internal.ref_check
('lob$','lobj#','obj$','obj#','','lob$.lobj# fk');
hm_sqltk_internal.ref_check
('lob$','ind#','ind$','obj#','','lob$.ind# fk');
hm_sqltk_internal.ref_check
('lob$','ts#,file#,block#','seg$','ts#,file#,block#',
'block# != 0', 'lob$.ts#,file#,block# fk');
hm_sqltk_internal.tab_desc
('lob$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, lob$ l where l.rowid = chartorowid(:1) and l.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('coltype$');
hm_sqltk_internal.ref_check
('coltype$','obj#','obj$','obj#','','coltype$.obj# fk');
hm_sqltk_internal.ref_check
('coltype$','obj#,col#','col$','obj#,col#','','coltype$.obj#,col# fk');
hm_sqltk_internal.tab_desc
('coltype$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, coltype$ c where c.rowid = chartorowid(:1) and c.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('subcoltype$');
hm_sqltk_internal.ref_check
('subcoltype$','obj#','obj$','obj#','','subcoltype$.obj# fk');
hm_sqltk_internal.ref_check
('subcoltype$','obj#,intcol#','col$','obj#,intcol#','',
'subcoltype$.obj#,intcol# fk');
hm_sqltk_internal.tab_desc
('subcoltype$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, subcoltype$ sc where sc.rowid = chartorowid(:1) and sc.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('ntab$');
hm_sqltk_internal.row_check
('ntab$','obj#,intcol#','primary key','ntab$ pk');
hm_sqltk_internal.ref_check
('ntab$','obj#','obj$','obj#','','ntab$.obj# fk');
hm_sqltk_internal.ref_check
('ntab$','obj#,intcol#','col$','obj#,intcol#','',
'ntab$.obj#,intcol# fk');
hm_sqltk_internal.ref_check
('ntab$','ntab#','obj$','obj#','ntab# != 0','ntab$.ntab$ fk');
hm_sqltk_internal.tab_desc
('ntab$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, ntab$ n where n.rowid = chartorowid(:1) and n.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('refcon$');
hm_sqltk_internal.ref_check
('refcon$','obj#','obj$','obj#','','refcon$.obj# fk');
hm_sqltk_internal.ref_check
('refcon$','obj#,col#', 'col$','obj#,col#','','refcont$.obj#,col# fk');
hm_sqltk_internal.tab_desc
('refcon$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, refcon$ r where r.rowid = chartorowid(:1) and r.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('opqtype$');
hm_sqltk_internal.row_check
('opqtype$','obj#,intcol#','primary key','opqtype$ pk');
hm_sqltk_internal.ref_check
('opqtype$','obj#','obj$','obj#','','opqtype$.obj# fk');
hm_sqltk_internal.ref_check
('opqtype$','obj#,intcol#','col$','obj#,intcol#','',
'opqtype$.obj#,intcol# fk');
hm_sqltk_internal.tab_desc
('opqtype$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, opqtype$ op where op.rowid = chartorowid(:1) and op.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('dependency$');
hm_sqltk_internal.row_check
('dependency$','d_obj#, order#', 'primary key', 'dependency$ pk');
hm_sqltk_internal.column_check
('dependency$','d_timestamp','>SYSDATE and d_timestamp != to_date(''12/31/4712 23:59:59'', ''mm/dd/yyyy hh24:mi:ss'')','dependency$.d_timestamp');
hm_sqltk_internal.column_check
('dependency$','p_timestamp','>SYSDATE and p_timestamp != to_date(''12/31/4712 23:59:59'', ''mm/dd/yyyy hh24:mi:ss'')','dependency$.p_timestamp');
hm_sqltk_internal.tab_desc
('dependency$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, dependency$ d where d.rowid = chartorowid(:1) and d.d_obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('access$');
hm_sqltk_internal.ref_check
('access$','d_obj#','dependency$','d_obj#','types != 12','access$.dobj# fk');
hm_sqltk_internal.tab_desc
('access$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, dependency$ d, access$ a where a.rowid = chartorowid(:1) and a.d_obj# = d.d_obj# and d.d_obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('viewcon$');
hm_sqltk_internal.row_check
('viewcon$','obj#,con#','primary key','viewcon$ pk');
hm_sqltk_internal.ref_check
('viewcon$','obj#','view$','obj#','','viewcon$.obj# fk');
hm_sqltk_internal.ref_check
('viewcon$','con#','cdef$','con#','','viewcon$.con# fk');
hm_sqltk_internal.column_check
('viewcon$','type#','not in (2,3,4)','viewcon$.type#');
hm_sqltk_internal.ref_check
('viewcon$','robj#','obj$','obj#','','viewcon$.robj# fk');
hm_sqltk_internal.tab_desc
('viewcon$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, viewcon$ v where v.rowid = chartorowid(:1) and v.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('icoldep$');
hm_sqltk_internal.ref_check
('icoldep$','obj#','ind$','obj#', '','icoldep$.obj# fk');
hm_sqltk_internal.tab_desc
('icoldep$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, icoldep$ i where i.rowid = chartorowid(:1) and i.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('dual');
hm_sqltk_internal.column_check
('dual','rownum', '>1','dual row count');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('sysauth$');
hm_sqltk_internal.row_check
('sysauth$','grantee#,privilege#,sequence#','primary key',
'sysauth$ pk');
hm_sqltk_internal.ref_check
('sysauth$','grantee#','user$','user#',
'grantee# < (select user# from user$ where name = ''_NEXT_USER'')',
'sysauth$.grantee# fk');
hm_sqltk_internal.column_check
('sysauth$','option$','not in (null, 1)', 'sysauth$.option$');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('objpriv$');
hm_sqltk_internal.row_check
('objpriv$','obj#,privilege#','primary key','objpriv$ pk');
hm_sqltk_internal.ref_check
('objpriv$','obj#','obj$','obj#','','objpriv$.obj# fk');
hm_sqltk_internal.tab_desc
('objpriv$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, objpriv$ p where p.rowid = chartorowid(:1) and p.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('defrole$');
hm_sqltk_internal.row_check
('defrole$','user#,role#','primary key','defrole$ pk');
hm_sqltk_internal.ref_check
('defrole$','user#','user$','user#','','defrole$.user# fk');
hm_sqltk_internal.tab_desc
('defrole$',
'select ''Username ''||u.name||'' is referenced'' from user$ u, defrole$ d where d.rowid = chartorowid(:1) and d.user# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('ecol$');
hm_sqltk_internal.row_check
('ecol$','tabobj#,colnum','primary key','ecol$ pk');
hm_sqltk_internal.ref_check
('ecol$','tabobj#','tab$','obj#','','ecol$.tabobj# fk');
hm_sqltk_internal.ref_check
('ecol$','tabobj#,colnum','col$','obj#,intcol#', '',
'ecol$.tabobj#,colnum fk');
hm_sqltk_internal.tab_desc
('ecol$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, ecol$ e where e.rowid = chartorowid(:1) and e.tabobj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('deferred_stg$');
hm_sqltk_internal.row_check
('deferred_stg$','obj#','primary key','deferred_stg$ pk');
hm_sqltk_internal.ref_check
('deferred_stg$','obj#','obj$','obj#','','deferred_stg$.obj# fk');
hm_sqltk_internal.tab_desc
('deferred_stg$',
'select ''Object ''||u.name||''.''||o.name||'' is referenced'' from obj$ o, user$ u, deferred_stg$ d where d.rowid = chartorowid(:1) and d.obj# = o.obj# and o.owner# = u.user#');
commit;
end;
/
begin
hm_sqltk_internal.tab_init('transient_iot$');
hm_sqltk_internal.row_check
('transient_iot$','obj#','primary key','transient_iot$ pk');
hm_sqltk_internal.ref_check
('transient_iot$','obj#','tab$','obj#','','transient_iot$.obj# fk');
commit;
end;
/
@?/rdbms/admin/sqlsessend.sql
OHA YOOOO