ORACLE LONG類型轉化成VARCHAR2

Oracle中強烈不推薦用long類型，但是為瞭解燃眉之急，被迫用了long類型，簡單啊，直接insert就行了。不過，沒有想到long類型不支援Like，也不能直接to_char。 
後悔了，想將long改回varchar2類型，但是又不能直接修改，否則會報錯，提醒必須要清空資料，為了不清空資料，綜合網上的資料總結了以下解決方案： 
表jivemsg中的message類型long需要替換成varchar2： 

原jivemsg表結構： 
CREATE TABLE "JIVEMSG" 
   ( "URI" VARCHAR2(100 BYTE) DEFAULT '' NOT NULL ENABLE, 
"SENDER" VARCHAR2(100 BYTE) DEFAULT '', 
"RECEIVER" VARCHAR2(100 BYTE) DEFAULT '', 
"CREATIONDATE" VARCHAR2(15 BYTE) DEFAULT '', 
"MESSAGETYPE" VARCHAR2(100 BYTE) DEFAULT '', 
"MESSAGESIZE" NUMBER(*,0) DEFAULT 0, 
"MESSAGE" LONG, 
"FKDOMAIN" VARCHAR2(20 BYTE) DEFAULT NULL, 
"VERSION" VARCHAR2(20 BYTE) DEFAULT NULL, 
"FLAGS" VARCHAR2(20 BYTE) DEFAULT NULL, 
"RECEIVERNAME" VARCHAR2(50 BYTE) DEFAULT NULL, 
"SENDERNAME" VARCHAR2(50 BYTE) DEFAULT NULL, 
CONSTRAINT "JIVEMSG_PK" PRIMARY KEY ("URI") 
   ); 

------------------------------------------------------------------------- 

轉換步驟： 

1：建立jivemsg2表： 
CREATE TABLE "JIVEMSG2" 
   ( "URI" VARCHAR2(100 BYTE) DEFAULT '' NOT NULL ENABLE, 
"SENDER" VARCHAR2(100 BYTE) DEFAULT '', 
"RECEIVER" VARCHAR2(100 BYTE) DEFAULT '', 
"CREATIONDATE" VARCHAR2(15 BYTE) DEFAULT '', 
"MESSAGETYPE" VARCHAR2(100 BYTE) DEFAULT '', 
"MESSAGESIZE" NUMBER(*,0) DEFAULT 0, 
"MESSAGE" LONG, 
"FKDOMAIN" VARCHAR2(20 BYTE) DEFAULT NULL, 
"VERSION" VARCHAR2(20 BYTE) DEFAULT NULL, 
"FLAGS" VARCHAR2(20 BYTE) DEFAULT NULL, 
"RECEIVERNAME" VARCHAR2(50 BYTE) DEFAULT NULL, 
"SENDERNAME" VARCHAR2(50 BYTE) DEFAULT NULL, 
CONSTRAINT "JIVEMSG2_PK" PRIMARY KEY ("URI") 
   ); 
2：修改表jivemsg2的類型 
ALTER TABLE JIVEMSG2 MODIFY ("MESSAGE" VARCHAR2(4000 CHAR)); 

3：將表jivemsg中的資料匯入到表jivemsg2中 
這步是關鍵，由於long類型不能直接轉換成varchar2。 
所以這邊用了一個別人寫的function來解決。 

INSERT INTO JIVEMSG2 select uri,sender,receiver,creationdate,messagetype,messagesize, long_to_char(rowid,'ucstar6','jivemsg','message'),fkdomain,version,flags,receivername,sendername from jivemsg msg; 


函數： 
/* 其中in_rowid為行id，in_owner為資料庫登陸的帳號名，in_table_name為資料庫表名，in_column為資料庫對應long類型的表欄位名稱 */ 
CREATE OR REPLACE FUNCTION LONG_TO_CHAR( in_rowid rowid,in_owner 
varchar,in_table_name varchar,in_column varchar2) 
RETURN varchar AS 
text_c1 varchar2(32767); 
sql_cur varchar2(2000); 
-- 
begin 
  sql_cur := 'select '||in_column||' from 
'||in_owner||'.'||in_table_name||' where rowid = 
'||chr(39)||in_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; 
/ 

4：刪除表jivemsg，並將jivemsg2更名為jivemsg 
DROP TABLE jivemsg; 
RENAME JIVEMSG2 TO jivemsg;