extracted objects

docs/procedures/HTPPRN.md

@@ -0,0 +1,22 @@
+# 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;
+
+```