解决10g exp不能导出9i数据库的问题

Rem this patch is release by eygle 
Rem use to Oracle9i database to solve 10g export can not export Oracle9i database error
Rem this patch is only use to education purpose
Rem before you apply this patch to your product database
Rem rememeber Do a full test
Rem I have test this patch on Oracle9.2.0.3 and Oracle9.2.0.4.
CREATE OR REPLACE VIEW exu9rls (
                  objown, objnam, polgrp, policy, polown, polsch, polfun, stmt,
                 chkopt, enabled, spolicy) AS
          SELECT  u.name, o.name, r.gname, r.pname, r.pfschma, r.ppname,
                  r.pfname,
                  DECODE(BITAND(r.stmt_type, 1), 0, '', 'SELECT,') ||
                  DECODE(BITAND(r.stmt_type, 2), 0, '', 'INSERT,') ||
                  DECODE(BITAND(r.stmt_type, 4), 0, '', 'UPDATE,') ||
                 DECODE(BITAND(r.stmt_type, 8), 0, '', 'DELETE,'),
                 r.check_opt, r.enable_flag,
                 DECODE(BITAND(r.stmt_type, 16), 0, 0, 1)
         FROM    sys.user$ u, sys.obj$ o, sys.rls$ r
          WHERE   u.user# = o.owner# AND
                 r.obj# = o.obj# AND                  r.ptype is null AND
                  (UID IN (o.owner#, 0) OR
                  EXISTS (
                      SELECT  role
                     FROM    sys.session_roles
                     WHERE   role = 'SELECT_CATALOG_ROLE'))
        UNION
          SELECT  u.name, o.name, r.gname, r.pname, r.pfschma, r.ppname,
                  r.pfname,
                 DECODE(BITAND(r.stmt_type, 1), 0, '', 'SELECT,') ||
                 DECODE(BITAND(r.stmt_type, 2), 0, '', 'INSERT,') ||

                 DECODE(BITAND(r.stmt_type, 4), 0, '', 'UPDATE,') ||
                 DECODE(BITAND(r.stmt_type, 8), 0, '', 'DELETE,'),
                 r.check_opt, r.enable_flag,
                 DECODE(BITAND(r.stmt_type, 16), 0, 0, 1)
          FROM   sys.user$ u, sys.obj$ o, sys.rls$ r
         WHERE   u.user# = o.owner# AND
                 r.ptype is not null AND
                 r.ptype = o.obj# AND
                 (UID IN (o.owner#, 0) OR
                 EXISTS (
                 SELECT  role
                 FROM    sys.session_roles
                 WHERE   role = 'SELECT_CATALOG_ROLE'))
/

CREATE OR REPLACE VIEW exu10adefpswitches (
                nlslensem, optlevel, codetype, warnings ) AS
          SELECT  a.value, b.value, c.value, d.value
         FROM    sys.v$parameter a, sys.v$parameter b, sys.v$parameter c,
                 sys.v$parameter d
         WHERE   a.name = 'nls_length_semantics' AND
                 b.name = 'plsql_optimize_level' AND
                 c.name = 'plsql_code_type'      AND
                  d.name = 'plsql_warnings'
/
GRANT SELECT ON sys.exu10adefpswitches TO PUBLIC;

CREATE OR REPLACE VIEW exu9typtu (
                tname, towner, ownerid, toid, mtime, typobjno, tabobjno,
                audit$, sqlver, property,