导出Oracle数据库字典

在创建数据库表时，对应的表列信息存储于一下几个表中，通过以下几个表信息可以导出数据字典。
1 USER_TABLES 用户表信息
2 USER_TAB_COMMENTS 用户表备注信息
3 USER_TAB_COLUMNS 用户表列信息
4 USER_COL_COMMENTS 用户表列备注信息

CREATE OR REPLACE FUNCTION GET_DATA_DICTIONARY(V_SPACE_NAME VARCHAR2,--表空间
                                               V_TABLE_LIKE VARCHAR2--表名)
  RETURN DATA_DIC_TAB IS
  CURSOR CUR_TABS IS
    SELECT A.TABLE_NAME,
           B.comments,
           C.COLUMN_NAME,
           DECODE(C.CHAR_LENGTH,
                  0,
                  DECODE(C.DATA_SCALE,
                         NULL,
                         C.DATA_TYPE,
                         C.DATA_TYPE || '(' || C.DATA_PRECISION || ',' ||
                         C.DATA_SCALE || ')'),
                  C.DATA_TYPE || '(' || C.CHAR_LENGTH |