Generic pretty print of DB content

Question

Hi,
is there a better (generic) way to pretty print the content of a few records?
So far i have this:
set serveroutput on;
create or replace function MakeDynamicBrowser(
     browserName in varchar2,
     tableName in varchar2)
return integer
is
     type StringTable_t is table of varchar2(256);
     columnNamesOrg StringTable_t;
     columnNames StringTable_t;
     types StringTable_t;
     stmt varchar2(32000);
     tableNameUpper varchar2(256) := upper(tableName);
begin
     SELECT      column_name, translate(column_name, '-', '_') ,
          case data_type
          when 'NUMBER' then
               decode(data_precision,
                    null, decode(data_scale,
                              null, data_type, data_type || '('  || data_precision || ')'),
                    decode(data_scale,
                         null, data_type, data_type || '('  || data_scale ||' , ' || data_precision || ')')
          when 'VARCHAR2' then
               case char_length
               when null then
                    data_type
               else
                    data_type || '(' || char_length     || ' char)'
               end
          when 'TIMESTAMP(3) WITH TIME ZONE' then
               data_type
          when 'DATE' then
               data_type
          when 'RAW' then
               data_type || '(' || data_length || ')'
          else
               'unknown'
          end
     bulk collect into columnNamesOrg, columnNames, types
     from all_tab_columns
     where table_name = tableNameUpper
     order by column_id;
     if columnNames.count <= 0 then
          dbms_output.put_line(tableNameUpper || ': no columns!');
          return -1;
     end if;
     stmt :=
     'create or replace function ' || browserName || '( '                    || chr(10) ||
     '     headline in varchar2, '                                   || chr(10) ||
     '     curStr in varchar2) '                                   || chr(10) ||
     'return integer '                                        || chr(10) ||
     'as '                                                  || chr(10) ||
     '     cur sys_refcursor; '                                   || chr(10) ||
     '     type object_t is record ( '                              || chr(10);
     for i in columnNames.first..columnNames.last loop
          if i <> columnNames.first then
               stmt := stmt ||     '     ,';
          end if;
          stmt := stmt || columnNames(i) || ' ' || types(i)               || chr(10);
     end loop;
     stmt := stmt ||
     '     ); '                                             || chr(10) ||
     '     type data_t is table of object_t; '                         || chr(10) ||
     '     data data_t; '                                        || chr(10) ||
     'begin '                                             || chr(10) ||
     '     dbms_output.put_line(headline); '                         || chr(10) ||
     '     open cur for curStr; '                                   || chr(10) ||
     '     fetch cur bulk collect into data; '                         || chr(10) ||
     '     if data.count = 0 then '                              || chr(10) ||
     '          dbms_output.put_line(''  ' || tableNameUpper || ': no data found!''); '
                                                       || chr(10) ||
     '     else '                                             || chr(10) ||
     '          for i in data.first..data.last loop '                    || chr(10) ||
     '          dbms_output.put_line('' #'' || i || '':''); '               || chr(10);
     for i in columnNames.first..columnNames.last loop
          stmt := stmt ||
     '               dbms_output.put_line(''  ' ||  columnNamesOrg(i) || ' = '' || data(i).' || columnNames(i)|| ');'
                                                       || chr(10);
     end loop;
     stmt := stmt ||
     '          end loop; '                                   || chr(10) ||
     '     end if; '                                        || chr(10) ||
     '     close cur; '                                        || chr(10) ||
     '     return 0; '                                        || chr(10) ||
     ' '                                                  || chr(10) ||
     'exception '                                             || chr(10) ||
     'when others then '                                        || chr(10) ||
     '     if cur%isopen then close cur; end if; '                         || chr(10) ||
        '     dbms_output.put_line(''' || browserName || '(): exception!''); '     || chr(10) ||
     '     return -1; '                                        || chr(10) ||
     'end; '                                                  || chr(10);
     execute immediate stmt;
     return 0;
end;
declare
     ret integer;
begin
     ret := MakeDynamicBrowser('MyBrowser', 'V_$SESSION');
     execute immediate 'call MyBrowser' || '(''headline'', ''select * from V$SESSION where audsid = ' ||  userenv ('sessionid') || ''') into :ret' using out ret;
end;
/Output:
SQL> @/tmp/test.sql
Function created.
headline
#1:
SADDR = 000000043B569268
SID = 174
SERIAL# = 55746
AUDSID = 2964800
PADDR = 000000043B430AF0
USER# = 33
USERNAME = USER
COMMAND = 3
OWNERID = 2147483644
TADDR =
LOCKWAIT =
STATUS = ACTIVE
SERVER = DEDICATED
SCHEMA# = 33
SCHEMANAME = USER
OSUSER = oracle
PROCESS = 26326
MACHINE = padsol40
TERMINAL = pts/42
PROGRAM = sqlplus@padsol40 (TNS V1-V3)
TYPE = USER
SQL_ADDRESS = 00000003FD230BB8
SQL_HASH_VALUE = 2822516303
SQL_ID = 2rz6khyn3sbkg
SQL_CHILD_NUMBER = 0
PREV_SQL_ADDR = FFFFFFFF7D7C0DC0
PREV_HASH_VALUE = 0
PREV_SQL_ID = 0000000000000
PREV_CHILD_NUMBER = 0
PLSQL_ENTRY_OBJECT_ID = 4177672
PLSQL_ENTRY_SUBPROGRAM_ID = 1
PLSQL_OBJECT_ID =
PLSQL_SUBPROGRAM_ID =
MODULE = SQL*Plus
MODULE_HASH = 3669949024
ACTION =
ACTION_HASH = 0
CLIENT_INFO =
FIXED_TABLE_SEQUENCE = 5800888
ROW_WAIT_OBJ# = -1
ROW_WAIT_FILE# = 0
ROW_WAIT_BLOCK# = 0
ROW_WAIT_ROW# = 0
LOGON_TIME = 02-AUG-11
LAST_CALL_ET = 0
PDML_ENABLED = NO
FAILOVER_TYPE = NONE
FAILOVER_METHOD = NONE
FAILED_OVER = NO
RESOURCE_CONSUMER_GROUP =
PDML_STATUS = DISABLED
PDDL_STATUS = ENABLED
PQ_STATUS = ENABLED
CURRENT_QUEUE_DURATION = 0
CLIENT_IDENTIFIER =
BLOCKING_SESSION_STATUS = NOT IN WAIT
BLOCKING_INSTANCE =
BLOCKING_SESSION =
SEQ# = 103
EVENT# = 116
EVENT = db file sequential read
P1TEXT = file#
P1 = 1
P1RAW = 0000000000000001
P2TEXT = block#
P2 = 133185
P2RAW = 0000000000020841
P3TEXT = blocks
P3 = 1
P3RAW = 0000000000000001
WAIT_CLASS_ID = 1740759767
WAIT_CLASS# = 8
WAIT_CLASS = User I/O
WAIT_TIME = -1
SECONDS_IN_WAIT = 0
STATE = WAITED SHORT TIME
SERVICE_NAME = testsys.padsol40.domain.com
SQL_TRACE = DISABLED
SQL_TRACE_WAITS = FALSE
SQL_TRACE_BINDS = FALSE
PL/SQL procedure successfully completed.It's incomplete for the types being recognized.
And the reason for need to deal with the types in the first place is:
Some tables use hyphen in columns names (e.g. v$transaction: DSCN-B, DSCN-W).
That's why i need translation from '-' to '_' to be able to print.
Otherwise '-' is recognized as minus operator (is there another way around w/o dealing with the types?).
Another question:
Is it possible to extend this to work with result of some cursor
- e.g. returning result of joining #2 tables?
best regards,
Frank
Edited by: user8704911 on Aug 2, 2011 4:52 AM

Answer 1

Tom Kyte's print_table functionality?
http://asktom.oracle.com/pls/apex/f?p=100:11:0::::P11_QUESTION_ID:1035431863958