REPLACE  CN_COMMENT_TO_CHINESE_VIEW(TABLENAME  2)

AUTHID  --解决创建视图权限不足的问题

TABLE_COMMENT

*  USER_COL_COMMENTS  TABLE_NAME = TABLENAME;

RECORD_TABLE_COMMENT TABLE_COMMENT%ROWTYPE;

CREATE_VIEW_SQL 2(1000);

CREATE_VIEW_SQL := 'create view ' || TABLENAME || '_CN as select ';

RECORD_TABLE_COMMENT  TABLE_COMMENT LOOP

CREATE_VIEW_SQL := CREATE_VIEW_SQL || RECORD_TABLE_COMMENT.COLUMN_NAME ||

' as ' || RECORD_TABLE_COMMENT.COMMENTS || ' ,';

LOOP;

CREATE_VIEW_SQL := RTRIM(CREATE_VIEW_SQL, ' ,');

CREATE_VIEW_SQL := CREATE_VIEW_SQL || ' from ' || TABLENAME;

DBMS_OUTPUT.PUT_LINE(CREATE_VIEW_SQL);

CREATE_VIEW_SQL;

;