23 lines
501 B
Markdown
23 lines
501 B
Markdown
# 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;
|
|
|
|
```
|