# HTPPRN

## Codice Sorgente

```sql
PROCEDURE        "HTPPRN" (pclob in out nocopy clob) is
 v_excel varchar2(32000);
 v_clob clob := pclob;
begin
  while length(v_clob) > 0 loop    begin
      if length(v_clob) > 32000 then         v_excel:= substr(v_clob,1,32000);
         htp.prn(v_excel);
         v_clob:= substr(v_clob,length(v_excel)+1);
      else
         v_excel := v_clob;
         htp.prn(v_excel);
         v_clob:='';         v_excel := '';      end if;
    end;
  end loop;
end;

```