home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a522 / 19.ddi / EXPVEW5.SQL < prev    next >
Encoding:
Text File  |  1988-12-15  |  27.3 KB  |  759 lines
  1. remark  Copyright (c) Oracle Corporation 1988
  2. remark
  3. remark  NAME
  4. remark    EXPVEW5.SQL
  5. remark  FUNCTION
  6. remark    Creates V5.1-style export views so that EXP V5.1 can be 
  7. remark    used over SQL*Net to export against V6.0 for import into V5.1.
  8. remark  NOTES
  9. remark       These views are installed in SYS account.
  10. remark       Many of the views created by this file have the same names as
  11. remark    views in the file CATALOG5.SQL, which contains V5-compatible
  12. remark    data dictionary views.  If those views were created, these views
  13. remark    will replace them.
  14. remark **    Because of a 'bug' in v6, exporting more than 1 users in
  15. remark    user mode doesn't work (bug 13386).
  16. remark **    Due to changes in the password encryption algorithm, all 
  17. remark    encrypted passwords are returned as the literal 
  18. remark    'REGRANT_AFTER_IMPORT' except for the user PUBLIC, which has a
  19. remark    NULL password.  A NULL password prevents EXPORT from generating 
  20. remark    GRANT statements for the user or exporting the user's objects. 
  21. remark    The user SYS is explicitly excluded.  SYSTEM will have an invalid
  22. remark    password changed to garbage, meaning that SYS will be the only 
  23. remark    valid logon in the database.  Someone will have to log on as
  24. remark    SYS and reGRANT CONNECT to all the other users in order to 
  25. remark    restore their logons.
  26. remark **   Since EXP uses connect-by to generate to enumerate the
  27. remark    table authorizations, we cannot create TABAUTH as a view
  28. remark    as it involves joins. Instead it is created as a table to
  29. remark    so the connect-by works. Therefore, one must RECREATE
  30. remark    SYS.TABAUTH before a full database export.
  31. remark **    Storage parameters for individual indexes will be lost, since 
  32. remark    this information is not maintained in V5.  The default index
  33. remark    parameters for the tablespace are used for the INDEXPAGES of the
  34. remark    for the table.
  35. remark       The following column datatype conversions were required:
  36. remark    VARCHAR -> CHAR
  37. remark    ROWID (V6, type# = 69) -> ROWID (V5, type# = 11).
  38. remark **    Column defaults are ignored.
  39. remark **    All indexes are considered compressed, as all indexes are 
  40. remark    compressed in V6.  The IND$.COMPRESS$ column in the data
  41. remark    dictionary does not seem to be maintained, so the proper value
  42. remark    is hardcoded here.
  43. remark       V6 does not impose the V5 restriction on clustered tables
  44. remark    whereby such tables had to have at least one column in the 
  45. remark    cluster key defined as NOT NULL.  No attempt is made here to
  46. remark    address this incompatibility, in part because an export file
  47. remark    created using the V6-to-V5 method may be imported back into V6,
  48. remark    where such tables are legal.  Attempts to import into V5 tables
  49. remark    that do not comply with this restriction will fail.  The
  50. remark    table, however, can be pre-created unclustered, or can be
  51. remark    exported in table mode, which will uncluster it.
  52. remark       Since in V5 the minimum extent size was 3 blocks, extent sizes
  53. remark    of 1 and 2 blocks are converted to three blocks where feasible.
  54. remark    The one remaining possible cause of failure is as follows:
  55. remark    if a table, cluster, or the sum of all an object's indexes have
  56. remark    very little storage allocated to them, i.e., 1 or 2 blocks, then
  57. remark    if the "compress extents" export option is used, EXP will 
  58. remark    generate an ALTER SPACE DEFINITION statement that asks for an
  59. remark    initial extent of less than 3 blocks.  V5 IMP will report an
  60. remark    error on the statement, but will still be able to import the
  61. remark    object (using the previous object's space definition).  It is
  62. remark    possible to write the affected views, EXTENTS and V4EXPEXTENTS,
  63. remark    in such a way as to avoid this circumstance, but this would
  64. remark    make them even slower (they already are 5-way UNIONs).  The
  65. remark    circumstance should be rare, so the current decision seems to
  66. remark    be the right one.
  67. remark       PCTFREE of zero is valid in V6; it is not in V5.  PCTFREE of
  68. remark    zero is converted to 1.
  69. remark       COLUMNS and V4EXPCOL return SEGCOL# (column number as stored
  70. remark    in the segment) rather than COL# (column number as created)
  71. remark    for the column id because that is the way it was stored in
  72. remark    V5.  This fact required a special fix to EXP to get it
  73. remark    to export clustered tables correctly. (isn't this fixed? chin)
  74. remark 
  75. remark       See comments before view definitions for other caveats.
  76. remark    Many views come in pairs, e.g., INDEXES and V4EXPINDEX.  Comments
  77. remark    for one view of a pair generally apply for the other.
  78. remark    
  79. remark  MODIFICATION
  80. remark   Bulchan        10/06/88 - Remove connect
  81. remark    Hong          05/23/88 - make it work for TPS v6.0.19,
  82. remark                             rename to expvew5.sql.
  83. remark    Grayson       05/19/88 - Updated comments, changed exported 
  84. remark                             encrypted passwords
  85. remark    Grayson       05/18/88 - Renamed file
  86. remark                             V6TOV5EXPVIEWS.SQL -> EXP5VIEW.SQL
  87. remark    Grayson       03/26/88 - Creation
  88. remark
  89. remark  Because V5 uses a user number for non-remote synonyms,
  90. remark  such synonyms which reference users that do not exist will not
  91. remark  be exported.
  92. remark    In V5, the pid/rba/tbl was used to identify tables, views, and
  93. remark    and clusters.  V6 replaced this compound key with a single obj#.
  94. remark    The following adaptations are used here:
  95. remark    Tables:    pid/rba/tbl -> ts#/obj#/0
  96. remark    Clusters:  pid/rba/tbl -> ts#/obj#/0
  97. remark    Views:     pid/rba/tbl -> 0/obj#/0
  98. remark    Synonyms:  pid/rba/tbl -> 0/obj#/0
  99. remark
  100. remark    The SIZE parameter to the CREATE CLUSTER statement has a somewhat
  101. remark    different meaning in V6.  They are sufficiently similar, however,
  102. remark    so that they may be used interchangably.  If the SIZE stored in
  103. remark    the CLU$ table is NULL, the blocksize for the tablespace is used.
  104. remark
  105. remark    The clusters belonging to SYS are excluded, because otherwise
  106. remark    EXP will export them.
  107. remark
  108. set echo on;
  109. drop view tables
  110. /
  111. create view tables
  112.     (tab$pid, tab$rba, tab$tbl,
  113.      tab$owner, tab$name, tab$type, tab$logblk,
  114.      tab$cluster, tab$reqblk, tab$indcompr,
  115.      tab$time,
  116.      tab$sowner, tab$sname,
  117.      tab$audit, tab$comment, tab$snode, tab$sownername)
  118. as
  119. select t.ts#, o.obj#, 0,
  120.        o.owner#, o.name, 'TABLE', to_number(null),
  121.        to_number(null), to_number(null), to_char(null),
  122.        o.ctime,
  123.        to_number(null), to_char(null),
  124.        substr(t.audit$,1,22), c.comment$, to_char(null), to_char(null)
  125. from sys.obj$ o, sys.tab$ t, sys.com$ c
  126. where o.obj# = t.obj# and o.obj# = c.obj#(+) and c.col#(+) is null
  127.   and o.type = 2
  128. union
  129. select 0, o.obj#, 0,
  130.        o.owner#, o.name, 'VIEW', to_number(null),
  131.        to_number(null), to_number(null), to_char(null),
  132.        o.ctime,
  133.        to_number(null), to_char(null),
  134.        substr(v.audit$, 1, 22), to_char(null), to_char(null), to_char(null)
  135. from sys.obj$ o, sys.view$ v
  136. where o.obj# = v.obj#
  137.   and o.type = 4
  138. union
  139. select c.ts#, c.obj#, 0,
  140.        o.owner#, o.name, 'CLUSTER', nvl(c.size$, ts.blocksize),
  141.        to_number(null), nvl(c.size$, ts.blocksize), 'COMPRESS',
  142. /*     decode(i.compress$, 0, 'NOCOMPRESS', 1, 'COMPRESS'), */
  143.        o.ctime,
  144.        to_number(null), to_char(null),
  145.        to_char(null), to_char(null), to_char(null), to_char(null)
  146. from sys.obj$ o, sys.clu$ c, sys.ts$ ts /*, sys.ind$ i */
  147. where o.obj# = c.obj#
  148.   and ts.ts# = c.ts#
  149. /*and c.obj# = i.bo# (+) */
  150.   and o.type = 3
  151.   and o.owner# != 0
  152. union
  153. select 0, o.obj#, 0,
  154.        o.owner#, o.name, 'SYNONYM', to_number(null),
  155.        to_number(null), to_number(null), to_char(null),
  156.        o.ctime,
  157.        u.user#, s.name,
  158.        to_char(null), to_char(null), s.owner, s.node
  159. from sys.obj$ o, sys.syn$ s, sys.user$ u
  160. where o.obj# = s.obj#
  161.   and o.type = 5
  162.   and s.owner = u.name(+)
  163. /
  164. remark
  165. remark Column view
  166. remark
  167. drop view columns
  168. /
  169. create view columns
  170.     (col$pid, col$rba, col$tbl,
  171.      col$name,
  172.      col$datatype,
  173.      col$length, col$scale,
  174.      col$null_type,
  175.      col$id, col$comment, col$default)
  176. as
  177. select t.ts#, c.obj#, 0,
  178.        c.name,
  179.        decode(c.type#, 1, 'CHAR', 2, 'NUMBER', 8, 'LONG', 9, 'CHAR',
  180.                        11, 'ROWID', 12, 'DATE', 23, 'RAW', 24, 'LONG RAW',
  181.                        69, 'ROWID'),
  182.        decode(c.type#, 2, nvl(c.precision, 0), c.length), c.scale,
  183.        decode(c.null$, 0, 'NULL', 'NOT NULL'),
  184.        c.segcol#, cc.comment$, to_char(null)
  185. from sys.col$ c, sys.com$ cc, sys.tab$ t
  186. where  c.obj# = cc.obj#(+)
  187.   and  c.col# = cc.col#(+)
  188.   and  t.obj# = c.obj#
  189. union
  190. select cl.ts#, c.obj#, 0,
  191.        c.name,
  192.        decode(c.type#, 1, 'CHAR', 2, 'NUMBER', 8, 'LONG', 9, 'CHAR',
  193.                        11, 'ROWID', 12, 'DATE', 23, 'RAW', 24, 'LONG RAW',
  194.                        69, 'ROWID'),
  195.        decode(c.type#, 2, nvl(c.precision, 0), c.length), c.scale,
  196.        decode(c.null$, 0, 'NULL', 'NOT NULL'),
  197.        c.segcol#, cc.comment$, to_char(null)
  198. from sys.col$ c, sys.com$ cc, sys.clu$ cl
  199. where  c.obj# = cc.obj#(+)
  200.   and  c.col# = cc.col#(+)
  201.   and  cl.obj# = c.obj#
  202. union
  203. select 0, c.obj#, 0,
  204.        c.name,
  205.        decode(c.type#, 1, 'CHAR', 2, 'NUMBER', 8, 'LONG', 9, 'CHAR',
  206.                        11, 'ROWID', 12, 'DATE', 23, 'RAW', 24, 'LONG RAW',
  207.                        69, 'ROWID'),
  208.        decode(c.type#, 2, nvl(c.precision, 0), c.length), c.scale,
  209.        decode(c.null$, 0, 'NULL', 'NOT NULL'),
  210.        c.segcol#, cc.comment$, to_char(null)
  211. from sys.col$ c, sys.com$ cc, sys.obj$ o
  212. where  c.obj# = cc.obj#(+)
  213.   and  c.col# = cc.col#(+)
  214.   and  o.obj# = c.obj# 
  215.   and  o.type = 4
  216. /
  217. remark
  218. remark  EXP expects the EXTENTS view to return all the extents associated with
  219. remark  a table for its data and indexes.  Finding the data extents is
  220. remark  easy enough, but since indexes are dissociated from their tables
  221. remark  or clusters in V6, the third queries below associate
  222. remark  a table or cluster, respectively, to the extents allocated for
  223. remark  that object's indexes.  In V5, every table or cluster had at
  224. remark  least one extent in its index segment.  In V6, however, any table
  225. remark  or cluster with no indexes on it will naturally have no index
  226. remark  extents assocated with it.  When EXP "compresses extents" it sums
  227. remark  the lengths of the extents for each type, and if there are no
  228. remark  index extents, the sum for the indexes would naturally be zero.
  229. remark  This zero result is unacceptable because it is illegal in V5
  230. remark  to use an initial extent of zero in a space definition.
  231. remark  Thus, the last queries below create a phony index
  232. remark  extent for each table and cluster with no indexes. 
  233. remark
  234. drop view extents
  235. /
  236. create view extents
  237.     (ext$pid, ext$rba, ext$type,
  238.      ext$startblock, ext$endblock)
  239. as
  240. select t.ts#, t.obj#, 'DATA',
  241.        e.block#, e.block# + e.length - 1
  242. from sys.uet$ e, sys.tab$ t
  243. where t.file# = e.segfile#
  244.   and t.block# = e.segblock#
  245. union
  246. select cl.ts#, cl.obj#, 'DATA',
  247.        e.block#, e.block# + e.length - 1
  248. from sys.uet$ e, sys.clu$ cl
  249. where cl.file# = e.segfile#
  250.   and cl.block# = e.segblock#
  251. union
  252. select i.ts#, i.bo#, 'INDEX',
  253.        e.block#, e.block# + e.length - 1
  254. from sys.uet$ e, sys.ind$ i
  255. where i.file# = e.segfile#
  256.   and i.block# = e.segblock#
  257. union
  258. select t.ts#, t.obj#, 'INDEX',
  259.        1, decode(ts.dflinit, 1, 3, 2, 3, ts.dflinit)
  260. from sys.tab$ t, sys.ts$ ts
  261. where t.ts# = ts.ts#
  262.   and t.obj# not in
  263.         (select i.bo#
  264.          from sys.ind$ i)
  265. union
  266. select c.ts#, c.obj#, 'INDEX',
  267.        1, decode(ts.dflinit, 1, 3, 2, 3, ts.dflinit)
  268. from sys.clu$ c, sys.ts$ ts
  269. where c.ts# = ts.ts#
  270.   and c.obj# not in
  271.         (select i.bo#
  272.          from sys.ind$ i)
  273. /
  274. remark
  275. remark Table Authorizations
  276. remark
  277. drop table tabauth
  278. /
  279. create table tabauth
  280.   (tau$grantor, tau$grantee, tau$creator,
  281.    tau$tname, tau$time, tau$alter, tau$delete,
  282.    tau$index, tau$insert, tau$select, tau$update)
  283. as
  284. select ur.name, ue.name, uo.name, o.name, ta.time,
  285.        decode(ta.alter$,  0, ' ', 1, 'Y', 2, 'Y', 3, 'G', ' '),
  286.        decode(ta.delete$, 0, ' ', 1, 'Y', 2, 'Y', 3, 'G', ' '),
  287.        decode(ta.index$,  0, ' ', 1, 'Y', 2, 'Y', 3, 'G', ' '),
  288.        decode(ta.insert$, 0, ' ', 1, 'Y', 2, 'Y', 3, 'G', ' '),
  289.        decode(ta.select$, 0, ' ', 1, 'Y', 2, 'Y', 3, 'G', ' '),
  290.        decode(ta.update$, 0, ' ', 1, '*', 2, 'Y', 3, 'G', ' ')
  291. from sys.obj$ o, sys.user$ ur, sys.user$ ue, sys.user$ uo,sys.tabauth$ ta
  292. where o.obj# = ta.obj#
  293.   and ur.user# = ta.grantor#
  294.   and ue.user# = ta.grantee#
  295.   and uo.user# = o.owner#
  296.   and o.type in (2, 4)
  297. /
  298. remark
  299. remark Views table
  300. remark
  301. drop view views
  302. /
  303. create view views
  304.     (vew$pid, vew$rba, vew$tbl,
  305.      vew$textlen, vew$text)
  306. as
  307. select 0,o.obj#, 0,
  308.        v.textlength, v.text
  309. from sys.obj$ o, sys.view$ v
  310. where o.obj# = v.obj#
  311.   and o.type = 4
  312. /
  313. remark
  314. remark  Since there are no space definitions in V6, we create an empty
  315. remark  space definitions table.
  316. remark
  317. drop table spaces
  318. /
  319. create table spaces
  320.   (
  321.   spc$name         char(30)       not null,
  322.   spc$dini         number         not null,
  323.   spc$dinc         number         not null,
  324.   spc$dmextnt      number         not null,
  325.   spc$iini         number         not null,
  326.   spc$iinc         number         not null,
  327.   spc$imextnt      number         not null,
  328.   spc$pctfree      number         not null,
  329.   spc$pid          number
  330.   )
  331.   storage (initial 4k next 4k maxextents 1 pctincrease 0)
  332. /
  333. remark
  334. remark   This view suppresses cluster indexes as they are created
  335. remark  automatically in V5.
  336. remark
  337. remark  V6 does not support the syntax for defining ascending and descending 
  338. remark  indexes.  All indexes are returned as 'ASC', because all indexes
  339. remark  were ascending in V5 anyway ('DESC' was a no-op).
  340. remark
  341. remark  Since EXP uses the IDX$CONCATID field only to determine whether an
  342. remark  index is concatenated (= 1) or not (= 0), only those values are
  343. remark  returned here.
  344. remark
  345. drop view indexes
  346. /
  347. create view indexes
  348.     (idx$pid, idx$rba, idx$tbl,
  349.      idx$owner, idx$name, idx$colseq, idx$column,
  350.      idx$unique,
  351.      idx$order,
  352.      idx$compress,
  353.      idx$concatid)
  354. as
  355. select i.ts#, i.bo#, 0,
  356.        o.owner#, o.name, ic.pos#, c.name,
  357.        decode(i.unique$, 0, 'NON UNIQUE', 1, 'UNIQUE'),
  358.        'ASC',
  359.        'COMPRESS',
  360.     /* decode(i.compress$, 0, 'NOCOMPRESS', 1, 'COMPRESS'), */
  361.        decode(i.cols, 1, 0, 1)
  362. from sys.tab$ t, sys.obj$ o, sys.ind$ i, sys.icol$ ic, sys.col$ c
  363. where o.obj# = i.obj#
  364.   and ic.obj# = i.obj#
  365.   and t.obj# = i.bo#
  366.   and c.obj# = i.bo#
  367.   and c.col# = ic.col#
  368.   and o.type = 1
  369. /
  370. remark
  371. remark  This view excludes the placeholder "_NEXT_USER", because otherwise
  372. remark  EXP will try to export it.  "PUBLIC" has a null password to prevent
  373. remark  EXP from generating a GRANT CONNECT statement for it.
  374. remark
  375. drop view userauth
  376. /
  377. create view userauth
  378.     (usr$uid, usr$name,
  379.      usr$password,
  380.      usr$time,
  381.      usr$connect,
  382.      usr$dba,
  383.      usr$resource)
  384. as
  385. select u.user#, u.name,
  386.        decode(u.name, 'PUBLIC', to_char(null), 'REGRANT_ON_IMPORT'),
  387.        u.ctime,
  388.        decode(u.connect$, 0, ' ', 1, 'Y'),
  389.        decode(u.dba$, 0, ' ', 1, 'Y'),
  390.        decode(u.resource$, 0, ' ', 1, 'Y')
  391. from sys.user$ u
  392. where u.name != '_NEXT_USER'
  393. /
  394. remark
  395. remark  Map tablespaces into partitions
  396. remark
  397. drop view partitions
  398. /
  399. create view partitions
  400.   (par$id, par$name)
  401. as
  402. select ts.ts#, ts.name
  403. from sys.ts$ ts
  404. /
  405. remark
  406. remark  Since, in V6, index storage parameters are not associated with the
  407. remark  table, as in V5, but with the tablespace, the default storage
  408. remark  parameters for the tablespace are returned here for index quotas.
  409. remark
  410. drop view segquotas
  411. /
  412. create view segquotas
  413.     (sgq$pid, sgq$rba, sgq$tbl,
  414.      sgq$dini, sgq$dinc, sgq$dmextnt,
  415.      sgq$iini, sgq$iinc, sgq$imextnt,
  416.      sgq$pctfree, sgq$date)
  417. as
  418. select t.ts#, o.obj#, 0,
  419.        decode(s.iniexts, 1, 3, 2, 3, s.iniexts),
  420.        decode(s.extsize, 1, 3, 2, 3, s.extsize),
  421.        s.maxexts,
  422.        decode(ts.dflinit, 1, 3, 2, 3, ts.dflinit),
  423.        decode(ts.dflincr, 1, 3, 2, 3, ts.dflincr),
  424.        ts.dflmaxext,
  425.        decode(t.pctfree$, 0, 1, t.pctfree$), o.ctime
  426. from sys.seg$ s, sys.tab$ t, sys.ts$ ts, sys.obj$ o
  427. where s.file# = t.file#
  428.   and s.block# = t.block#
  429.   and s.ts# = ts.ts#
  430.   and t.obj# = o.obj#
  431.   and s.type = 5
  432.   and o.type = 2
  433. union
  434. select c.ts#, c.obj#, 0,
  435.        decode(s.iniexts, 1, 3, 2, 3, s.iniexts),
  436.        decode(s.extsize, 1, 3, 2, 3, s.extsize),
  437.        s.maxexts,
  438.        decode(ts.dflinit, 1, 3, 2, 3, ts.dflinit),
  439.        decode(ts.dflincr, 1, 3, 2, 3, ts.dflincr),
  440.        ts.dflmaxext,
  441.        decode(c.pctfree$, 0, 1, c.pctfree$), o.ctime
  442. from sys.seg$ s, sys.clu$ c, sys.ts$ ts, sys.obj$ o
  443. where s.file# = c.file#
  444.   and s.block# = c.block#
  445.   and s.ts# = ts.ts#
  446.   and c.obj# = o.obj#
  447.   and s.type = 5
  448. /
  449. remark
  450. remark Views to get at current user's objects
  451. remark
  452. drop view v4expuser
  453. /
  454. create view v4expuser (myid, mypsswd, myprivs, myname) as
  455.   select u.user#, decode(u.name, 'PUBLIC', to_char(null), 'REGRANT_ON_IMPORT'),
  456.   decode(u.connect$, 0, ' ', 1, 'Y', ' ') ||
  457.     decode(u.dba$, 0, ' ', 1, 'Y', ' ') ||
  458.     decode(u.resource$, 0, ' ', 1, 'Y', ' '),
  459.   user
  460. from sys.user$ u
  461. where u.user# = uid
  462. /
  463. grant select on v4expuser to public
  464. /
  465. remark
  466. remark  The default parameters for the tablespace are used for index 
  467. remark  storage, since index storage is not associated with the table as in V5.
  468. remark  The name of the table's tablespace is returned as the partition 
  469. remark  name, but the file# is returned instead
  470. remark  of the ts#, since the file#/block# concept replaces pid/rba.
  471. remark
  472. drop view v4expspace
  473. /
  474. create view v4expspace
  475.   (dini, dinc, dmax, iini, iinc, imax, pctf, pname, pid, rba, tbl) as
  476. select decode(s.iniexts, 1, 3, 2, 3, s.iniexts),
  477.        decode(s.extsize, 1, 3, 2, 3, s.extsize),
  478.        s.maxexts,
  479.        decode(ts.dflinit, 1, 3, 2, 3, ts.dflinit),
  480.        decode(ts.dflincr, 1, 3, 2, 3, ts.dflincr),
  481.        ts.dflmaxext,
  482.        decode(t.pctfree$, 0, 1, t.pctfree$),
  483.        ts.name, t.ts#, t.obj#, 0
  484. from sys.seg$ s, sys.tab$ t, sys.ts$ ts, sys.obj$ o
  485. where s.file# = t.file#
  486.   and s.block# = t.block#
  487.   and s.ts# = ts.ts#
  488.   and t.obj# = o.obj#
  489.   and s.type = 5
  490.   and o.type = 2
  491.   and s.user# = uid
  492. union
  493. select decode(s.iniexts, 1, 3, 2, 3, s.iniexts),
  494.        decode(s.extsize, 1, 3, 2, 3, s.extsize),
  495.        s.maxexts,
  496.        decode(ts.dflinit, 1, 3, 2, 3, ts.dflinit),
  497.        decode(ts.dflincr, 1, 3, 2, 3, ts.dflincr),
  498.        ts.dflmaxext,
  499.        decode(c.pctfree$, 0, 1, c.pctfree$),
  500.        ts.name, c.ts#, c.obj#, 0
  501. from sys.seg$ s, sys.clu$ c, sys.ts$ ts, sys.obj$ o
  502. where s.file# = c.file#
  503.   and s.block# = c.block#
  504.   and s.ts# = ts.ts#
  505.   and c.obj# = o.obj#
  506.   and s.type = 5
  507.   and o.type = 3
  508.   and s.user# = uid
  509. /
  510. grant select on v4expspace to public
  511. /
  512. drop view v4expindex
  513. /
  514. create view v4expindex
  515.   (tname, usrname, usrid, iname, colname, iunique, icompr, cid, cseq) as
  516. select ot.name, user, uid, oi.name, c.name,
  517.        i.unique$,
  518.        1,
  519.     /* i.compress$, */
  520.        decode(i.cols, 1, 0, 1), ic.pos#
  521. from sys.obj$ ot, sys.obj$ oi, sys.ind$ i, sys.icol$ ic, sys.col$ c
  522. where oi.obj# = i.obj#
  523.   and ic.obj# = i.obj#
  524.   and ot.obj# = i.bo#
  525.   and c.obj# = i.bo#
  526.   and c.col# = ic.col#
  527.   and oi.type = 1
  528.   and ot.type = 2
  529.   and oi.owner# = uid
  530.   and ot.owner# = uid
  531. /
  532. grant select on v4expindex to public
  533. /
  534. drop view v4exptab
  535. /
  536. create view v4exptab (name, pid, rba, tbl, aud, cmnt) as
  537. select o.name, t.ts#, t.obj#, 0, substr(t.audit$,1,22), c.comment$
  538. from sys.obj$ o, sys.tab$ t, sys.com$ c
  539. where o.obj# = t.obj#
  540.   and o.type = 2
  541.   and  o.obj# = c.obj#(+) 
  542.   and c.col#(+) is null
  543.   and o.owner# = uid
  544. /
  545. grant select on v4exptab to public
  546. /
  547. remark
  548. remark  Clusters don't have table numbers (tbl) in V6.  It always was zero
  549. remark  in V5.
  550. remark
  551. drop view v4expclus
  552. /
  553. create view v4expclus (name, pid, rba, tbl, compr, reqblk, owner) as
  554. select o.name, c.ts#, c.obj#,
  555.        0, 1, /* i.compress$, */ nvl(c.size$, ts.blocksize), uid
  556. from sys.obj$ o, sys.clu$ c, sys.ts$ ts /*, sys.ind$ i */
  557. where o.obj# = c.obj#
  558.   and ts.ts# = c.ts#
  559. /*and c.obj# = i.bo# (+) */
  560.   and o.type = 3
  561.   and o.owner# = uid
  562. /
  563. grant select on v4expclus to public
  564. /
  565. remark
  566. remark     In V5, every table and view had a row in the TABAUTH table 
  567. remark  indicating that the table's owner had every privilege WITH
  568. remark  GRANT OPTION.  These rows aren't created in V6, but could be
  569. remark  added via a UNION.  Code for such a UNION is commented out below,
  570. remark  because EXP queries this view with a WHERE clause that ensures
  571. remark  that GRANTOR != GRANTEE.  Eliminating the UNION should improve
  572. remark  performance.
  573. remark     In addition, V6 has additional privileges that will be lost here,
  574. remark  plus allows column-level grants on privileges other than UPDATE.
  575. remark  Column-restricted grants for privileges other than UPDATE are
  576. remark  changed to be grants for the entire table.
  577. remark
  578. drop view v4exptabauth
  579. /
  580. create view v4exptabauth (object, grantor, grantee, privs, owner) as
  581. select o.name, ur.name, ue.name,
  582.        decode(ta.alter$, 0, ' ', 1, 'Y', 2, 'Y', 3, 'G', ' ') ||
  583.        decode(ta.delete$, 0, ' ', 1, 'Y', 2, 'Y', 3, 'G', ' ') ||
  584.        decode(ta.index$, 0, ' ', 1, 'Y', 2, 'Y', 3, 'G', ' ') ||
  585.        decode(ta.insert$, 0, ' ', 1, 'Y', 2, 'Y', 3, 'G', ' ') ||
  586.        decode(ta.select$, 0, ' ', 1, 'Y', 2, 'Y', 3, 'G', ' ') ||
  587.        decode(ta.update$, 0, ' ', 1, '*', 2, 'Y', 3, 'G', ' '),
  588.        user
  589. from sys.obj$ o, sys.user$ ur, sys.user$ ue, sys.tabauth$ ta
  590. where o.obj# = ta.obj#
  591.   and ur.user# = ta.grantor#
  592.   and ue.user# = ta.grantee#
  593.   and o.owner# = uid
  594.   and o.type in (2, 4)
  595. /
  596. remark
  597. remark  union
  598. remark  select o.name, user, user,
  599. remark       'GGGGGG', user
  600. remark  from sys.obj$ o
  601. remark  where o.owner# = uid
  602. remark    and o.type in (2, 4)
  603. remark
  604. grant select on v4exptabauth to public
  605. /
  606. drop view v4expextents
  607. /
  608. create view v4expextents (pid, rba, type, sblock, eblock)
  609. as
  610. select t.ts#, t.obj#, 'DATA',
  611.        e.block#, e.block# + e.length - 1
  612. from sys.uet$ e, sys.tab$ t, sys.obj$ o
  613. where t.file# = e.segfile#
  614.   and t.block# = e.segblock#
  615.   and t.obj# = o.obj#
  616.   and o.owner# = uid
  617. union
  618. select cl.ts#, cl.obj#, 'DATA',
  619.        e.block#, e.block# + e.length - 1
  620. from sys.uet$ e, sys.clu$ cl, sys.obj$ o
  621. where cl.file# = e.segfile#
  622.   and cl.block# = e.segblock#
  623.   and cl.obj# = o.obj# 
  624.   and o.owner# = uid
  625. union
  626. select i.ts#, i.bo#, 'INDEX',
  627.        e.block#, e.block# + e.length - 1
  628. from sys.uet$ e, sys.ind$ i, sys.obj$ o
  629. where i.file# = e.segfile#
  630.   and i.block# = e.segblock#
  631.   and i.bo# =  o.obj#
  632.   and o.owner# = uid
  633. union
  634. select t.ts#, t.obj#, 'INDEX',
  635.        1, decode(ts.dflinit, 1, 3, 2, 3, ts.dflinit)
  636. from sys.tab$ t, sys.ts$ ts, sys.obj$ o
  637. where t.ts# = ts.ts#
  638.   and t.obj# = o.obj# 
  639.   and o.owner# = uid
  640.   and t.obj# not in
  641.         (select i.bo#
  642.          from sys.ind$ i)
  643. union
  644. select c.ts#, c.obj#, 'INDEX',
  645.        1, decode(ts.dflinit, 1, 3, 2, 3, ts.dflinit)
  646. from sys.clu$ c, sys.ts$ ts, sys.obj$ o
  647. where c.ts# = ts.ts#
  648.   and c.obj# = o.obj#
  649.   and o.owner# = uid
  650.   and c.obj# not in
  651.         (select i.bo#
  652.          from sys.ind$ i)
  653. /
  654. grant select on v4expextents to public
  655. /
  656. remark
  657. remark     Views had pid's and rba's in V5, since they actually required
  658. remark  storage in the database.  In V6, views require no storage, and
  659. remark  thus have no file#, block#, or tab# associated with them.  
  660. remark     V6 has a new ROWID type (69) because it is incompatible with the
  661. remark  V5 ROWID.  This is cast to the V5 ROWID, but it may not work
  662. remark  correctly.  (If this doesn't work, considering it a CHAR may
  663. remark  permit a valid conversion.)  Similarly, the V6 VARCHAR datatype
  664. remark  is converted to CHAR.  Since the V5 COL$DATATYPE column was
  665. remark  defined to be one character too narrow to hold the words "LONG 
  666. remark  RAW", LONG RAWs were always considered LONG in the V5 data
  667. remark  dictionary.  Here, LONG RAW remains LONG RAW in the hopes that
  668. remark  EXP and IMP can treat them appropriately, but this may fail.
  669. remark  In V5, a column's default value was always NULL, and there was
  670. remark  no way to get it into the data dictionary.  The default can be
  671. remark  specified and stored in V6.0 (although it is ignored).  This view
  672. remark  always return NULL for the default, however, because in V6 it is
  673. remark  stored as a LONG and in V5 it is CHAR(240) and is useless anyway.
  674. remark
  675. drop view v4expcol
  676. /
  677. create view v4expcol
  678.     (rba, tbl, pid, name, length, scale, type, mand, id, cmnt, dflt ) as
  679. select t.obj#, 0, t.ts#, c.name,
  680.        decode(c.type#, 2, nvl(c.precision, 0), c.length),
  681.        nvl(c.scale, 0),
  682.        decode(c.type#, 1, 'CHAR', 2, 'NUMBER', 8, 'LONG', 9, 'CHAR',
  683.                        11, 'ROWID', 12, 'DATE', 23, 'RAW', 24, 'LONG RAW',
  684.                        69, 'ROWID'),
  685.        decode(c.null$, 0, 0, 1, 1, 1), c.segcol#, cc.comment$, to_char(null)
  686. from sys.obj$ o, sys.tab$ t, sys.col$ c, sys.com$ cc
  687. where o.obj# = t.obj#
  688.   and t.obj# = c.obj#
  689.   and c.obj# = cc.obj#(+)
  690.   and c.col# = cc.col#(+)
  691.   and o.owner# = uid
  692.   and o.type = 2
  693. union
  694. select cl.obj#, 0, cl.ts#, c.name,
  695.        decode(c.type#, 2, nvl(c.precision, 0), c.length),
  696.        nvl(c.scale, 0),
  697.        decode(c.type#, 1, 'CHAR', 2, 'NUMBER', 8, 'LONG', 9, 'CHAR',
  698.                        11, 'ROWID', 12, 'DATE', 23, 'RAW', 24, 'LONG RAW',
  699.                        69, 'ROWID'),
  700.        decode(c.null$, 0, 0, 1), c.segcol#, cc.comment$, to_char(null)
  701. from sys.obj$ o, sys.clu$ cl, sys.col$ c, sys.com$ cc
  702. where o.obj# = cl.obj#
  703.   and cl.obj# = c.obj#
  704.   and c.obj# = cc.obj#(+)
  705.   and c.col# = cc.col#(+)
  706.   and o.owner# = uid
  707.   and o.type = 3
  708. union
  709. select o.obj#, 0, 0, c.name,
  710.        decode(c.type#, 2, nvl(c.precision, 0), c.length),
  711.        nvl(c.scale, 0),
  712.        decode(c.type#, 1, 'CHAR', 2, 'NUMBER', 8, 'LONG', 9, 'CHAR',
  713.                        11, 'ROWID', 12, 'DATE', 23, 'RAW', 24, 'LONG RAW',
  714.                        69, 'ROWID'),
  715.        decode(c.null$, 0, 0, 1), c.segcol#, cc.comment$, to_char(null)
  716. from sys.obj$ o, sys.col$ c, sys.com$ cc
  717. where o.obj# = c.obj#
  718.   and c.obj# = cc.obj#(+)
  719.   and c.col# = cc.col#(+)
  720.   and o.owner# = uid
  721.   and o.type = 4
  722. /
  723. grant select on v4expcol to public
  724. /
  725. remark
  726. remark  Remote synonyms are excluded here because the inconsistent way
  727. remark  they were stored in the V5 data dictionary prevented them from
  728. remark  appearing in the V5 V4EXPSYN view.  They wouldn't have been 
  729. remark  exported correctly anyway because EXP doesn't look for the name
  730. remark  of the database link.
  731. remark
  732. drop view v4expsyn
  733. /
  734. create view v4expsyn (name, sname, sowner, stime) as
  735. select o.name, s.name, s.owner, o.ctime
  736. from sys.obj$ o, sys.syn$ s
  737. where o.obj# = s.obj#
  738.   and o.type = 5
  739.   and o.owner# = uid
  740.   and s.node is null
  741. /
  742. grant select on v4expsyn to public
  743. /
  744. drop view v4expview
  745. /
  746. create view v4expview
  747.     (name, pid, rba, tbl, aud, cmnt, vtime, vlen, vtext) as
  748. select o.name, 0, o.obj#, 0, substr(v.audit$,1,22), c.comment$,
  749.        o.ctime, v.textlength, v.text
  750. from sys.obj$ o, sys.view$ v, sys.com$ c
  751. where o.obj# = v.obj#
  752.   and o.type = 4
  753.   and o.obj# = c.obj#(+)
  754.   and c.col# is null
  755.   and o.owner# = uid
  756. /
  757. grant select on v4expview to public
  758. /
  759.