由数据字典的表，生成建表语句

/**

看下面的“数据字典”就知道是比较简单的数据字典。不写什麽说明了，因为1、不算复杂2、不算深奥。

 

谁想用而又不明白，欢迎提问。

*/

 

/**

SQL> desc 數據字典
 名稱             類型
 ---------------  ----------------
 表名             VARCHAR2(150)
 字段名           VARCHAR2(100)
 字段類型         VARCHAR2(100)
 字段序號         NUMBER(38)
 數據長度         NUMBER(38)
 整數位           NUMBER(38)
 小數位           NUMBER(38)
 關鍵字           CHAR(1)

 

*/

 

DECLARE
hFile     UTL_FILE.FILE_TYPE;
sql_str   varchar2(1500);
v_sql     varchar2(500);
v_cursor  NUMBER;
v_stat    NUMBER;

sLastTbl  varchar2(100);

v_tblName varchar2(100);
v_fldName varchar2(100);
v_fldType varchar2(100);
v_fldSize number(10);
v_fldInt  number(10);
v_fldDec  number(10);
v_isKey   char(1);

CURSOR c_tbl IS SELECT DISTINCT 表名 FROM 數據字典 ORDER BY 表名;
BEGIN
    hFile := UTL_FILE.FOPEN('MY_DIR', 'abc.sql', 'w');
    UTL_FILE.PUTF(hFile, '--Data structur V0.1 beta/n');
   
    OPEN c_tbl;
    LOOP       
        FETCH c_tbl INTO v_tblName;
        EXIT WHEN c_tbl%NOTFOUND;
        sql_str:='CREATE TABLE '||v_tblName||'(';
        DBMS_OUTPUT.PUT_LINE('Table='|| v_tblName);
       
        v_sql:='SELECT 字段名, 字段類型, 數據長度, 整數位, 小數位, 關鍵字 '
            ||'FROM 用户名.數據字典 '
            ||'WHERE 表名=:tblName '
            ||'ORDER BY 字段序號';
        v_cursor := dbms_sql.open_cursor;
        dbms_sql.parse(v_cursor, v_sql, dbms_sql.native);
        dbms_sql.bind_variable(v_cursor, ':tblName', v_tblName);
       
        dbms_sql.define_column(v_cursor, 1, v_fldName, 100);
        dbms_sql.define_column(v_cursor, 2, v_fldType, 100);
        dbms_sql.define_column(v_cursor, 3, v_fldSize);
        dbms_sql.define_column(v_cursor, 4, v_fldInt);
        dbms_sql.define_column(v_cursor, 5, v_fldDec);
        dbms_sql.define_column(v_cursor, 6, v_isKey, 1);
       
        v_stat := dbms_sql.execute(v_cursor);
        LOOP
            EXIT WHEN dbms_sql.fetch_rows(v_cursor)<=0;
            dbms_sql.column_value(v_cursor, 1, v_fldName);
            dbms_sql.column_value(v_cursor, 2, v_fldType);
            dbms_sql.column_value(v_cursor, 3, v_fldSize);
            dbms_sql.column_value(v_cursor, 4, v_fldInt);
            dbms_sql.column_value(v_cursor, 5, v_fldDec);
            dbms_sql.column_value(v_cursor, 6, v_isKey);
            DBMS_OUTPUT.PUT_LINE('____'||v_fldName);
           
            IF ('VARCHAR2'=v_fldType)OR ('CHAR'=v_fldType) THEN
                sql_str:=sql_str||v_fldName||' '||v_fldType||'('||v_fldSize||')';
               
            ELSIF ('NUMBER'=v_fldType) OR ('FLOAT'=v_fldType) THEN
                IF v_fldDec>0 THEN
                    sql_str:=sql_str||v_fldName||' '||v_fldType||'('||v_fldSize||','||v_fldDec||')';
                ELSE
                    sql_str:=sql_str||v_fldName||' '||v_fldType||'('||v_fldSize||')';
                END IF;
               
            ELSE
                sql_str:=sql_str||v_fldName||' '||v_fldType;
            END IF;
           
            IF '1'=v_isKey THEN
                sql_str:=sql_str||' PRIMARY KEY';
            END IF;
            sql_str:=sql_str||', ';
           
        END LOOP;
        dbms_sql.close_cursor(v_cursor);
       
        sql_str:=substr( sql_str, 1, length(sql_str)-2 ) || ');';
       
        --execute immediate sql_str;
       
        UTL_FILE.PUTF(hFile, sql_str);
        UTL_FILE.PUTF(hFile, '/n');
        UTL_FILE.PUTF(hFile, '/n');
       
        DBMS_OUTPUT.PUT_LINE('***************************');
       
    END LOOP;
    CLOSE c_tbl;
    UTL_FILE.FCLOSE(hFile);
END;

/