181: end dba_object_info;
182:
183:
184: procedure ls_table(c_name dba_tables.table_name%type
185: , c_owner dba_tab_columns.owner%type) is
186:
187: CURSOR cur_table_dets(c_name in dba_tables.table_name%type
188: , c_owner in dba_objects.owner%type)
189: -- List table details
613: );
614: END ls_fnd_table;
615:
616:
617: procedure ls_columns(c_name dba_tab_columns.table_name%type
618: , c_owner dba_tab_columns.owner%type) is
619:
620: cursor cur_columns(c_name dba_tab_columns.table_name%type
621: , c_owner dba_tab_columns.owner%type)
614: END ls_fnd_table;
615:
616:
617: procedure ls_columns(c_name dba_tab_columns.table_name%type
618: , c_owner dba_tab_columns.owner%type) is
619:
620: cursor cur_columns(c_name dba_tab_columns.table_name%type
621: , c_owner dba_tab_columns.owner%type)
622: is select col.column_name
616:
617: procedure ls_columns(c_name dba_tab_columns.table_name%type
618: , c_owner dba_tab_columns.owner%type) is
619:
620: cursor cur_columns(c_name dba_tab_columns.table_name%type
621: , c_owner dba_tab_columns.owner%type)
622: is select col.column_name
623: , col.data_type
624: , col.data_length
617: procedure ls_columns(c_name dba_tab_columns.table_name%type
618: , c_owner dba_tab_columns.owner%type) is
619:
620: cursor cur_columns(c_name dba_tab_columns.table_name%type
621: , c_owner dba_tab_columns.owner%type)
622: is select col.column_name
623: , col.data_type
624: , col.data_length
625: , nvl(to_char(col.data_precision), '
') data_precision
623: , col.data_type
624: , col.data_length
625: , nvl(to_char(col.data_precision), '
') data_precision
626: , nvl(decode(col.nullable, 'N', 'Y'), '
') nullable
627: from dba_tab_columns col
628: where col.table_name = c_name
629: and col.owner = c_owner
630: order by col.column_id;
631:
629: and col.owner = c_owner
630: order by col.column_id;
631:
632:
633: cursor cur_col_comments(c_tname dba_tab_columns.table_name%type
634: , c_cname dba_tab_columns.column_name%type
635: , c_owner dba_tab_columns.owner%type)
636: is select comments
637: from dba_col_comments
630: order by col.column_id;
631:
632:
633: cursor cur_col_comments(c_tname dba_tab_columns.table_name%type
634: , c_cname dba_tab_columns.column_name%type
635: , c_owner dba_tab_columns.owner%type)
636: is select comments
637: from dba_col_comments
638: where owner = c_owner
631:
632:
633: cursor cur_col_comments(c_tname dba_tab_columns.table_name%type
634: , c_cname dba_tab_columns.column_name%type
635: , c_owner dba_tab_columns.owner%type)
636: is select comments
637: from dba_col_comments
638: where owner = c_owner
639: and table_name = c_tname