ORACLE:LONG_TO_CHAR(): CLOB类型转字符型

-- 创建测试数据表 Create table  -- CUX_TEST15 
create table CUX.CUX_TEST15
(
test_1 NUMBER not null,
test_name VARCHAR2(30) default 'ROOT' not null,
test_quantity NUMBER default 1 not null,
test_clob CLOB,
creation_date DATE default SYSDATE not null,
created_by NUMBER default -1 not null,
last_update_date DATE,
last_updated_by NUMBER,
last_update_login NUMBER
)
tablespace CUX_TS_TX_DATA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
-- Add comments to the columns
comment on column CUX.CUX_TEST15.test_1
is '主键ID';
comment on column CUX.CUX_TEST15.test_name
is '默认为 ROOT用户';
comment on column CUX.CUX_TEST15.test_quantity
is '默认数量为1';
comment on column CUX.CUX_TEST15.test_clob
is 'CLOB数据类型';
comment on column CUX.CUX_TEST15.creation_date
is 'DATE日期类型';

ORA-01445:无法从不带保留关键字的表的联接视图中选择ROWID或采样


-- 例子数据
INSERT INTO CUX.CUX_TEST15(test_1,test_name,test_quantity,test_clob,creation_date,created_by,last_update_date,last_updated_by,last_update_login)
VALUES (1,'ADMIN','100','CLOB类型数据',SYSDATE,24354,SYSDATE,24354,123);

INSERT INTO CUX.CUX_TEST15(test_1,test_name,test_quantity,test_clob,creation_date,created_by,last_update_date,last_updated_by,last_update_login)
VALUES (2,'SYSADMIN','900','CLOB类型数据-SYSADM用户数据',SYSDATE,24354,SYSDATE,24354,234);


SELECT CUX_UTIL_PKG2.long_to_char(CT.ROWID,'CUX','CUX_TEST15','TEST_CLOB' ) AS DATA_CLOB_TO_CHAR
, CT.*
FROM CUX.CUX_TEST15 CT

 

create or replace package CUX_util_pkg2 is

  -- Author  : SAM
  -- Created : 2022/8/21 10:20:39
  -- Purpose : LONG_TO_CHAR
  
  
--  -- 将ORACLE LONG类型转为字符串类型
  FUNCTION LONG_TO_CHAR(                                        
                        p_rowid      rowid,
                        p_owner      varchar2,
                        p_table_name varchar2,
                        p_column     varchar2
                        ) RETURN VARCHAR2;
--
  -- 获取字段默认值
  FUNCTION get_data_default(                                        
                            p_rowid      rowid ,
                            p_owner      varchar2,
                            p_table_name varchar2,
                            p_column     varchar2,
                            p_data_default varchar2                                                        
                            ) RETURN VARCHAR2   ;   
-- 例子
-- SELECT        CUX_util_pkg.get_data_default('','CUX','CUX_WIP_TRX_LINES_ALL','LAST_UPDATE_DATE','DATA_DEFAULT') DATA_DEFAULT
--  FROM DUAL;                                                                  
  FUNCTION GET_COMMENT_DDL(object_type     IN  VARCHAR2,
                   name            IN  VARCHAR2,
                   schema          IN  VARCHAR2 DEFAULT NULL
                   ) RETURN CLOB ;
    

  FUNCTION GET_DDL(object_type     IN  VARCHAR2,
                   p_table_name            IN  VARCHAR2,
                   p_owner          IN  VARCHAR2 DEFAULT NULL
                ) RETURN CLOB;
                
end CUX_util_pkg2;
/

create or replace package body CUX_util_pkg2 is
 

  -- -- 将ORACLE LONG类型转为字符串类型 
  -- p_rowid: 隐藏的主键 
  -- p_owner: 用户名(SCHEMA) 
  -- p_table_name: 表名 
  -- p_column: clob类型的字段名称,即需要从CLOB类型转为VARCHAR类型的字段名称。
  FUNCTION LONG_TO_CHAR(                                        
                                        p_rowid      rowid,
                                        p_owner      varchar2,
                                        p_table_name varchar2,
                                        p_column     varchar2
                                        )

 RETURN varchar2 AS
  text_c1 varchar2(32767);
  sql_cur varchar2(2000);
  --set serveroutput on size 10000000000;--

begin
  DBMS_OUTPUT.ENABLE(buffer_size => null);
  sql_cur := 'select ' || p_column || ' from ' || p_owner || '.' ||
             p_table_name || ' where rowid = ' || chr(39) || p_rowid || chr(39);
 -- dbms_output.put_line(sql_cur);
  execute immediate sql_cur
    into text_c1;
  text_c1 := substr(text_c1, 1, 4000);
  RETURN TEXT_C1;
END LONG_TO_CHAR;

  -- get_data_default(): 获取字段默认值 
  -- p_rowid: 隐藏的主键 
  -- p_owner: 用户名(SCHEMA) 
  -- p_table_name: 表名 
  -- p_column: clob类型的字段名称,即需要从CLOB类型转为VARCHAR类型的字段名称。
  -- p_data_default: 默认值字段 
 FUNCTION get_data_default(                                        
                            p_rowid      rowid ,
                            p_owner      varchar2,
                            p_table_name varchar2,
                            p_column     varchar2,
                            p_data_default varchar2
                            ) 
 RETURN varchar2 AS
  text_c1 varchar2(32767);
  sql_cur varchar2(2000);
  --set serveroutput on size 10000000000;--
begin

  DBMS_OUTPUT.ENABLE(buffer_size => null);

  sql_cur := 'select ' || p_data_default || ' from  sys.dba_tab_columns where  owner=' || chr(39)  || UPPER(p_owner) || chr(39) 
          || ' and table_name = ' || chr(39) ||  UPPER(p_table_name) || chr(39) 
          || ' and column_name = ' || chr(39) || UPPER(p_column) || chr(39);

  --dbms_output.put_line(sql_cur);

  execute immediate sql_cur
    into text_c1;

  text_c1 := substr(text_c1, 1, 4000);

  RETURN text_c1;

END get_data_default;

--  SELECT  get_data_default('ROWID',col.owner,col.table_name,col.COLUMN_NAME,'DATA_DEFAULT')  FROM DUAL; 


  FUNCTION GET_COMMENT_DDL(object_type     IN  VARCHAR2,
                   name            IN  VARCHAR2,
                   schema          IN  VARCHAR2 DEFAULT NULL
                   ) RETURN CLOB 
    AS 
    V_COMMENTS varchar2(500);
    V_TAB_COMMENTS varchar2(500);
    L_CLOB CLOB;
    CURSOR C_COMMENT IS 
      SELECT OWNER,TABLE_NAME, COLUMN_NAME, COMMENTS
       FROM DBA_COL_COMMENTS 
       WHERE TABLE_NAME = UPPER(NAME) --'SFY_OE_QUOTATION_HEADERS_ALL'
       AND OWNER = NVL(UPPER(SCHEMA),OWNER)
       AND COMMENTS IS NOT NULL ;
       
    CURSOR C_TAB_COMMENT IS 
      SELECT OWNER,TABLE_NAME, TABLE_TYPE, COMMENTS
       FROM DBA_TAB_COMMENTS 
       WHERE TABLE_NAME = UPPER(NAME) --'SFY_OE_QUOTATION_HEADERS_ALL'
       AND OWNER = NVL(UPPER(SCHEMA),OWNER)
       AND COMMENTS IS NOT NULL ;
          
    BEGIN
      L_CLOB := NULL; 
      
      FOR R_TB IN C_TAB_COMMENT LOOP
        V_TAB_COMMENTS := 'COMMENT ON TABLE '|| R_TB.OWNER||'.'||R_TB.TABLE_NAME||' IS '||chr(39) || R_TB.COMMENTS ||chr(39) ||';' || CHR(10);
        L_CLOB := L_CLOB || V_TAB_COMMENTS;
      END LOOP;
      
      FOR R_COM IN C_COMMENT LOOP
         V_COMMENTS := 'COMMENT ON COLUMN '|| R_COM.OWNER||'.'||R_COM.TABLE_NAME||'.'||R_COM.COLUMN_NAME ||' IS '||chr(39) || R_COM.COMMENTS ||chr(39) ||';' || CHR(10);
         L_CLOB := L_CLOB || V_COMMENTS;
      END LOOP;
    RETURN L_CLOB;
     
  END GET_COMMENT_DDL;
                  
 


  
    FUNCTION GET_DDL(object_type     IN  VARCHAR2,
                    p_table_name            IN  VARCHAR2,
                    p_owner          IN  VARCHAR2 DEFAULT NULL
                ) 
   return clob AS  
   i number; 
   l_clob clob;
   l_clob_comment clob;
   v_name varchar2(128);
   v_schema varchar2(128);
   v_table_header varchar2(500);
   v_table_footer varchar2(500);
   v_column_desc  varchar2(500);
   v_col_count    number; 
   -- 表游标
   cursor c_table( p_name varchar2, p_schema varchar2) is 
    select owner, table_name, tablespace_name
       from dba_tables 
      where owner = nvl( p_schema,owner)  -- 'CUX'
      AND TABLE_NAME =p_table_name  -- 'CUX_WIP_TRX_LINES_ALL'
     ;
     
   -- 字段 游标
   cursor c_column(p_name varchar2, p_schema varchar2) is
   SELECT COL.COLUMN_NAME || CHR(32)|| COL.DATA_TYPE ||
       CASE WHEN INSTR(COL.DATA_TYPE,'CHAR',1)>0 THEN
         '('||COL.DATA_LENGTH||') '
       END 
      ||
       CASE WHEN COL.NULLABLE = 'N' THEN
         CASE WHEN col.default_length>0  THEN
          ' DEFAULT '|| get_data_default('ROWID',col.owner,col.table_name,col.COLUMN_NAME,'DATA_DEFAULT')  || ' NOT NULL '
         ELSE
           ' NOT NULL '
         END
       ELSE
         ''   
       END AS  column_desc
     FROM sys.DBA_TAB_COLUMNS COL
    WHERE TABLE_NAME = p_name  -- 'SFY_WIP_TRX_LINES_ALL'
     and owner = nvl(p_schema , owner)
    -- AND COLUMN_NAME = 'LAST_UPDATE_DATE'
    ORDER BY COL.COLUMN_ID ;

    -- 统计表有多少个字段 
    cursor c_column2(p_name varchar2, p_schema varchar2) is
   SELECT count(COL.COLUMN_NAME) as col_count
     FROM sys.DBA_TAB_COLUMNS COL
    WHERE TABLE_NAME = p_name  -- 'SFY_WIP_TRX_LINES_ALL'
     and owner = nvl(p_schema , owner)
    -- AND COLUMN_NAME = 'LAST_UPDATE_DATE'
    ORDER BY COL.COLUMN_ID ;
     
   begin
   --  v_name := 'CUX_WIP_TRX_LINES_ALL';
   --  v_schema := 'CUX';
     v_name := upper(p_table_name);
     v_schema := upper(p_owner); 
     l_clob := null; 
     
     --#region:table
     IF UPPER(OBJECT_TYPE) = 'TABLE' THEN 
     
     -- 表游标 
     for r_tab in c_table(v_name, v_schema) loop
       v_table_header := 'CREATE TABLE ' || r_tab.owner ||'.'|| r_tab.table_name || ' ( '|| chr(10);
      -- v_table_footer := ') TABLESPACE '|| r_tab.tablespace_name ||'; ' ||chr(10)||chr(13); 
       v_table_footer := ') ; ' ||chr(10)||chr(13);
       --#region:column
        for r_col2 in c_column2(v_name, v_schema) loop
           v_col_count := r_col2.col_count;
        end loop;
        -- 字段游标        
        open c_column(v_name, v_schema) ;
        loop  
          fetch c_column into v_column_desc ;
          exit when(c_column%notfound);
          
         -- dbms_output.put_line('v_col_count='||v_col_count);
          if v_col_count = c_column%rowcount then 
            l_clob := l_clob || v_column_desc  || CHR(10);
         else   
           l_clob := l_clob || v_column_desc || ',' || CHR(10);
         end if;  
        -- dbms_output.put_line('v_col_count-> c_column%rowcount ='||c_column%rowcount);   
        end loop;   
        close c_column;
        /*
       for r_col in c_column(v_name, v_schema) loop
         if  i = c_column%rowcount - 1  then 
            l_clob := l_clob || r_col.column_desc  || CHR(10);
         else   
           l_clob := l_clob || r_col.column_desc || ',' || CHR(10);
         end if;   
        
       end loop;
       */
       --#endregion:column
       l_clob := v_table_header || l_clob || v_table_footer; 
     end loop; 
     
     END IF; 
     --#endregion:table
     
     --#regeion:commnt 
     -- 类型为 “注释”COMMENT 
     IF object_type='COMMENT' THEN 
      SELECT GET_COMMENT_DDL('COMMENT',V_NAME,V_SCHEMA) 
        INTO l_clob_comment 
      FROM DUAL ;
      L_CLOB := L_CLOB || l_clob_comment;  
     END IF; 
     --#endregeion:commnt
     
     return l_clob;             
   end GET_DDL;



begin
  -- Initialization
 -- <Statement>;
 NULL;
end CUX_util_pkg2;
/

  

-- Created on 2023/4/17 by SAM
declare 
  -- Local variables here
  i integer;
  v_clob clob; 
  V_TEXT VARCHAR2(32767);
  cursor c1 is 
  select OBJ.OWNER, OBJ.OBJECT_NAME, OBJ.OBJECT_TYPE 
     from sys.dba_objects  obj
    where obj.object_type = 'TABLE'
    AND OBJ.OBJECT_NAME LIKE 'CUX%' 
    ORDER BY OBJ.OWNER , OBJ.OBJECT_NAME ;

begin
  -- 打印 表名以“CUX”开头的表文本
  --select apps.CUX_util_pkg2.get_dDl('TABLE','CUX_TEST15','CUX')
  -- into v_clob 
  -- from dual;
   
  for r1 in c1 loop
    select apps.CUX_util_pkg2.get_dDl('TABLE',r1.object_name, r1.owner)
      -- CUX_util_pkg2.GET_COMMENT_DDL('COMMENT',r1.object_name, r1.owner)
     into v_clob 
     from dual;
    V_TEXT := substr(V_CLOB,1,32767);
    DBMS_OUTPUT.PUT_LINE(V_TEXT);
  end loop; 
end;

  

posted @ 2023-04-17 11:11  samrv  阅读(170)  评论(0编辑  收藏  举报