2026-03-12 20:23:15

tpt/pr.sql

@@ -0,0 +1,51 @@
+.
+-- Notes:   This script is based on Tom Kyte's original printtbl code ( http://asktom.oracle.com )
+--          For coding simplicity (read: lazyness) I'm using custom quotation marks ( q'\ ) so 
+--          this script works only from Oracle 10gR2 onwards
+
+def _pr_tmpfile=&_tpt_tempdir/pr_&_tpt_tempfile..tmp
+
+@@saveset
+set serverout on size 1000000 termout off
+save &_pr_tmpfile replace
+set termout on
+
+0 c clob := q'\
+0 declare
+
+999999      \';;
+999999      l_theCursor     integer default dbms_sql.open_cursor;;
+999999      l_columnValue   varchar2(4000);;
+999999      l_status        integer;;
+999999      l_descTbl       dbms_sql.desc_tab;;
+999999      l_colCnt        number;;
+999999  begin
+999999      dbms_sql.parse(  l_theCursor, c, dbms_sql.native );;
+999999      dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );;
+999999      for i in 1 .. l_colCnt loop
+999999          dbms_sql.define_column( l_theCursor, i,
+999999                                  l_columnValue, 4000 );;
+999999      end loop;;
+999999      l_status := dbms_sql.execute(l_theCursor);;
+999999      while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) loop
+999999          dbms_output.put_line( '==============================' );;
+999999          for i in 1 .. l_colCnt loop
+999999                  dbms_sql.column_value( l_theCursor, i,
+999999                                         l_columnValue );;
+999999                  dbms_output.put_line
+999999                      ( rpad( l_descTbl(i).col_name,
+999999                        30 ) || ': ' || l_columnValue );;
+999999          end loop;;
+999999      end loop;;
+999999  exception
+999999      when others then
+999999          dbms_output.put_line(dbms_utility.format_error_backtrace);;
+999999          raise;;
+999999 end;;
+/
+
+@@loadset
+
+get &_pr_tmpfile nolist
+host &_delete &_pr_tmpfile 
+