oracle8.1.6
select utc.column_name,
utc.data_type,
ucc.comments
from user_tab_columns utc,
user_col_comments ucc
where utc.table_name = '[string toupper $table_name]'
and utc.table_name = ucc.table_name(+)
and utc.column_name = ucc.column_name(+)
select replace (replace (text, ' ', ' '), chr(9), ' ') as text
from user_source
where lower(name) = :package_name
and type = 'PACKAGE BODY'
order by line