几个实用的存储过程

procedure p_empty_clob       --建立空clob对象
is
begin
    C_content :=EMPTY_CLOB();
    dbms_lob.createtemporary(C_content, TRUE);
    dbms_lob.open(C_content, dbms_lob.lob_readwrite);
end ;

procedure p_close_clob        --关闭clob对象
is
begin
    dbms_lob.close(C_content);
    C_content :=EMPTY_CLOB();
end;
 
 
procedure p_addstr(v_str in varchar2)     --打印结果字串
is
begin
  if(v_str is not null) then
  dbms_lob.writeappend(c_content,lengthb(v_str),v_str);
  end if;
end;
 
 
procedure p_addstr(v_str in clob)          
  v_len     number;
begin
  v_len :=dbms_lob.getlength(v_str);
  if(v_len is not null and v_len>0) then
  dbms_lob.copy(c_content,v_str,v_len,dbms_lob.getlength(c_content)+1);
  end if;
end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/183473/viewspace-421466/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/183473/viewspace-421466/