(转）Oracle中Long和Varchar2数据的相互转换

前几天，公司有人因为一个特别的事情，要把Varchar2转换成long;
这让我们费了不少脑精,Oracle的文档不建议我们用Long类型的数据，但这个家伙愣是用了，莫名其妙；
知道上周这个问题才有了彻底解决;
我分享一个store-procedure 去阐述这个问题;
Create or replace PROCEDURE P_UPDATELOCALPLUS(strMitm in varchar2,strSubITEM in varchar2,strPlant in varchar2)
as
lLocationPlus long;
lLocationPlus01 long;
strLocation varchar2(4000);
strSubLoc varchar2(50);
lTempLoct long;
i number;
Begin
 
  Select location,locationplus into strLocation,lLocationPlus from erpmainbom
  Where parentpn=strMitm and pn=strSubITEM  and plant= strPlant;
 
  If length(strLocation)=4000 then
 
      i:=1;
      strSubLoc:=substr(strLocation,4000,i);
     
      While InStr(strSubLoc, ' ') = 0 Loop
                i := i + 1;
                strSubLoc := substr(strLocation,4000-i,i);
      End Loop;
      --i:=i+1;
      strSubLoc := substr(strLocation,4000-i,i+1);
     
      strLocation := substr(strLocation,1, 4000 - Length(strSubLoc));
     
      lTempLoct:=strSubLoc; 
 
 ---把Varchar2的数据类型直接赋值给Long类型的数据是可以的，但不能超过4000个字节;超过,Oracle会自行截断到4000个;那有人要问了，我多定义几个Varchar2，不就行了?我已经试过,用多定义的合并后的Varchar2还是不能超过4000个；       
   End if;
 
   lLocationPlus:=lTempLoct||lLocationPlus;
 
 ---这个代码的是把long型数据合并,这是可以的,如果把varchar2和long型的数据一起合并，系统会报错;
 
   update erpmainbom set location=strLocation,
                        locationplus=lLocationPlus
      where parentpn=strMitm and pn=strSubITEM  and plant= strPlant;
 
这样的update语句也是没有问题的;用insert也一样;
 
  commit;
 
  EXCEPTION
  When others then
   Rollback;
end;
 
如何把Long型数据转换成Varchar2 呢?
 
用下列语句;
   strLocation =substr( lLocationPlus,1,4000);