Nothing fancy today, just a quickie as indicated in the subject line of the post…<\/p>\n
\r\nset serverout on format wrapped\r\n\r\ndeclare\r\n l_level number := 0;\r\n --get only tables with no parent tables\r\n cursor main is\r\n select distinct table_name,constraint_name\r\n from user_constraints\r\n where table_name not in (select table_name\r\n from user_constraints\r\n where r_constraint_name is not null)\r\n and constraint_type = 'P';\r\n procedure get_constraints (i_level in out number, p_pk in varchar2, p_table in varchar2) is\r\n l_level number := 0;\r\n begin\r\n l_level := i_level;\r\n for c_rec in (select constraint_name, table_name\r\n from user_constraints\r\n where table_name in (select table_name\r\n from user_constraints\r\n where r_constraint_name = p_pk\r\n and table_name <> p_table)\r\n and constraint_type = 'P') loop\r\n i_level := l_level;\r\n dbms_output.put_line(rpad(' ',to_char(i_level),' ')||' '||p_table||' '||c_rec.table_name);\r\n i_level := i_level + 2;\r\n get_constraints(i_level, c_rec.constraint_name, c_rec.table_name);\r\n end loop;\r\n end;\r\nbegin\r\n for c_rec in main loop\r\n get_constraints(l_level,c_rec.constraint_name, c_rec.table_name);\r\n l_level := 0;\r\n end loop;\r\nend;\r\n\/\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"Nothing fancy today, just a quickie as indicated in the subject line of the post… set serverout on format wrapped declare l_level number := 0; –get only tables with no parent tables cursor main is select distinct table_name,constraint_name from user_constraints…<\/p>\n