写个存储过程查询oracle中user_tables下的所有的表名及表名的注释, 表中所有的字段, 字段的类型, 字段的注释, 和在表中每个字段的值为空的数量, 系统默认的表除外

在Oracle数据库中，创建一个存储过程来获取用户tables下所有表的信息，包括表名、表注释、字段信息、字段类型以及空值数量，需要使用PL/SQL语言编写。由于Oracle的具体语法可能会有变化，这里提供一个基本的示例，假设我们能够访问`USER_TAB_COLUMNS`视图获取列信息，并使用动态SQL处理部分查询：

CREATE OR REPLACE PROCEDURE get_table_info (p_username IN VARCHAR2 DEFAULT 'your_user') IS
   TYPE tab_name_type IS TABLE OF VARCHAR2 INDEX BY PLS_INTEGER;
   TYPE column_info_type IS TABLE OF VARCHAR2(4000) INDEX BY VARCHAR2(30);
   v_tables tab_name_type;
   v_columns column_info_type;
   v_field_count NUMBER;
   v_comment VARCHAR2(1000);
BEGIN
   -- 获取用户的所有表名和注释
   FOR cur IN (
      SELECT owner AS table_owner,
             table_name AS table_name,
             comment AS table_comment
      FROM all_tables
      WHERE owner = p_username
         AND table_name NOT LIKE 'SYS%' -- 排除系统表
   LOOP
      v_tables(cur.table_name) := cur.table_name;
      v_tables(cur.table_name).append(cur.table_comment || ' (' || cur.table_owner || ')');
      
      -- 遍历表中的每个字段获取详细信息
      EXECUTE IMMEDIATE '
         SELECT COLUMN_NAME, DATA_TYPE, DATA_DEFAULT, COUNT(*) OVER(PARTITION BY COLUMN_NAME) AS null_count
         INTO :v_columns(:cur), :v_data_type, :v_default, :v_field_count
         FROM user_tab_columns
         WHERE OWNER = :p_owner AND TABLE_NAME = :p_table_name'
         USING cur.table_owner, cur.table_name, v_columns(cur.column_name), v_field_count;

      -- 输出字段信息和空值数量
      FOR i IN 1..v_field_count LOOP
         DBMS_OUTPUT.PUT_LINE(v_columns(cur.column_name)(i) || ' (' || v_data_type(i) || ') - Nulls: ' || v_columns(cur.column_name)(null_count));
      END LOOP;
   END LOOP;
EXCEPTION
   WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('Error: ' || SQLERRM);
END get_table_info;
/