PLSQL存储过程动态传表名报错PLS-00364，请求排查解决

你的存储过程存在几个关键问题，直接导致了PLS-00364错误以及逻辑执行异常，我来一步步帮你梳理并修正：

1. 静态游标无法适配动态表名 #

你注释掉的unique_id_cur是静态游标，这类游标在编译阶段就需要确定查询的表名，根本没法直接用变量p_table_name作为表名——PL/SQL会把p_table_name当成真实的表名（而不是你传入的参数值），这完全不符合你的需求。要处理动态表名，必须用**动态游标（REF CURSOR）**或者动态SQL结合循环的方式。

2. 循环引用未定义的游标 #

你把游标定义注释掉了，但循环里还在写FOR cursor1 IN unique_id_cur LOOP，这直接触发了PLS-00364: 循环索引变量'CURSOR1'使用无效的错误——游标都不存在，循环索引自然无法被正确识别。

3. UTL_FILE的使用误区 #

• UTL_FILE.fopen的第一个参数是Oracle目录对象名称，不是硬编码的本地路径。你得先创建对应的目录对象（需要DBA权限）：

  CREATE DIRECTORY DATA_DIR AS '/ora11g/test/';
  -- 给当前用户授予该目录的读写权限
  GRANT READ, WRITE ON DIRECTORY DATA_DIR TO YOUR_USERNAME;
  

• 你定义的V_file_parm变量有语法错误：Varchar2必须指定长度，且字符串值要加单引号。

修正后的完整存储过程 #

我用动态游标实现了动态表名的查询，同时修复了所有问题：

PROCEDURE generate_uniqueId(p_table_name IN VARCHAR2) is 
    TYPE ref_cur_type IS REF CURSOR;
    unique_id_cur ref_cur_type;
    v_unique_id YOUR_TABLE.unique_id%TYPE; -- 替换成实际字段的类型，也可直接用VARCHAR2(100)这类明确类型
    v_file UTL_FILE.file_type; 
    v_file_name Varchar2(150); 
    v_dir_name CONSTANT VARCHAR2(100) := 'DATA_DIR'; -- 对应你创建的目录对象名称
BEGIN 
    v_file_name := p_table_name || '.lst'; 
    -- 打开文件，'A'是追加模式，若要覆盖原有内容可改用'W'
    v_file := UTL_FILE.fopen(v_dir_name, v_file_name, 'A'); 

    -- 打开动态游标，执行带动态表名的SQL
    OPEN unique_id_cur FOR 
        'SELECT /*PARALLEL(20)*/ unique_id FROM ' || p_table_name;

    -- 循环读取游标数据
    LOOP
        FETCH unique_id_cur INTO v_unique_id;
        EXIT WHEN unique_id_cur%NOTFOUND;
        
        UTL_FILE.put_line(v_file, v_unique_id);
    END LOOP;

    -- 释放资源
    CLOSE unique_id_cur;
    UTL_FILE.fflush(v_file); 
    UTL_FILE.fclose(v_file); 
EXCEPTION
    WHEN OTHERS THEN
        -- 异常时确保资源被正确释放
        IF unique_id_cur%ISOPEN THEN
            CLOSE unique_id_cur;
        END IF;
        IF UTL_FILE.is_open(v_file) THEN
            UTL_FILE.fclose(v_file);
        END IF;
        RAISE; -- 重新抛出异常，方便后续排查问题
END generate_uniqueId ; 

额外注意事项 #

• SQL注入风险：如果p_table_name是外部传入的不可信参数，一定要做合法性校验，比如检查表名是否存在：

  DECLARE
      v_exists NUMBER;
  BEGIN
      SELECT COUNT(1) INTO v_exists 
      FROM user_tables 
      WHERE table_name = UPPER(p_table_name);
      IF v_exists = 0 THEN
          RAISE_APPLICATION_ERROR(-20001, '表 ' || p_table_name || ' 不存在');
      END IF;
  END;
  

• 确保v_unique_id的类型和表中unique_id字段的类型完全匹配，避免类型转换错误。
• PARALLEL提示仅适合大数据量表，小表使用反而可能降低性能，根据实际场景调整。

内容的提问来源于stack exchange，提问作者Akika.YS