Oracle存储过程导出CSV报错PLS-00201：COL_LIST未定义

错误根源 #

你碰到的PLS-00201错误，是因为代码里调用的col_list根本不存在——它不是Oracle自带的函数，是你代码里假设存在但未定义的自定义工具函数，作用应该是动态获取表的列名，生成CSV标题行或者SELECT语句里的列拼接字符串。

两种解决办法 #

办法一：补上col_list自定义函数 #

先创建这个函数，满足你代码里的参数需求：

CREATE OR REPLACE FUNCTION col_list(
    p_tabname VARCHAR2,
    p_schema  VARCHAR2 DEFAULT USER,
    p_delim   VARCHAR2 DEFAULT ',',
    p_trim    NUMBER DEFAULT 0
) RETURN VARCHAR2 IS
    l_result VARCHAR2(4000);
BEGIN
    -- 根据参数生成列名拼接串：标题用列名，SELECT用带TRIM的列+分隔符拼接
    SELECT LISTAGG(
        CASE WHEN p_trim = 1 THEN 'TRIM(' || column_name || ')' ELSE column_name END,
        p_delim
    ) WITHIN GROUP (ORDER BY column_id)
    INTO l_result
    FROM all_tab_columns
    WHERE owner = UPPER(p_schema)
      AND table_name = UPPER(p_tabname);
    
    RETURN l_result;
END;
/

创建好这个函数后，重新编译你的存储过程，就能正常调用col_list了。

办法二：直接在存储过程里去掉col_list依赖 #

如果不想单独建函数，把生成列列表的逻辑直接写到存储过程里就行，修改后的代码如下：

CREATE OR REPLACE PROCEDURE DBPW_TEST (
   p_directory VARCHAR2,
   p_tabname   VARCHAR2,
   p_schema    VARCHAR2 DEFAULT USER)
IS
    tab_refcur        SYS_REFCURSOR;
    l_header          VARCHAR2(4000);
    l_zeile           VARCHAR2(4000);
    l_col_list        VARCHAR2(4000);
    l_stmt            VARCHAR2(4000);
    l_file            UTL_FILE.FILE_TYPE;
 BEGIN
    l_file := UTL_FILE.FOPEN(
        location  => UPPER(p_directory),
        filename  => p_tabname||'_'||TO_CHAR(sysdate,'yyyy-mm-dd-hh24-mi')||'.csv',
        open_mode => 'w',
        max_linesize => 32767);

    -- 直接生成CSV标题行的列名（替代原来的col_list调用）
    SELECT LISTAGG(column_name, ';') WITHIN GROUP (ORDER BY column_id)
    INTO l_header
    FROM all_tab_columns
    WHERE owner = UPPER(p_schema)
      AND table_name = UPPER(p_tabname);

    UTL_FILE.PUT_LINE(l_file, l_header);

    -- 直接生成SELECT语句需要的列拼接串（替代原来的col_list调用）
    SELECT LISTAGG('TRIM(' || column_name || ')', '||'';''||') WITHIN GROUP (ORDER BY column_id)
    INTO l_col_list
    FROM all_tab_columns
    WHERE owner = UPPER(p_schema)
      AND table_name = UPPER(p_tabname);

    l_stmt   := 'SELECT '||l_col_list||' FROM '||p_schema||'.'||p_tabname;

    OPEN tab_refcur FOR l_stmt;
    LOOP
        FETCH tab_refcur INTO l_zeile;
        EXIT WHEN tab_refcur%NOTFOUND;
        UTL_FILE.PUT_LINE(l_file, l_zeile);
    END LOOP;
    CLOSE tab_refcur;
    UTL_FILE.FCLOSE(l_file);
EXCEPTION
 WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE(SQLERRM);
    -- 加个判断，避免文件没打开时执行关闭报错
    IF UTL_FILE.IS_OPEN(l_file) THEN
        UTL_FILE.FCLOSE(l_file);
    END IF;
    RAISE;
END DBPW_TEST;
/

额外提醒 #

• 要确保执行存储过程的用户有UTL_FILE权限，而且p_directory对应的数据库目录已经创建，用户有读写权限。
• 如果表的列数多、列名长，VARCHAR2(4000)可能不够用，换成CLOB类型存储拼接后的字符串更稳妥。
• 要是字段里有分号、换行这类特殊字符，当前逻辑会搞坏CSV格式，可以改成用双引号包裹列名和字段值，比如标题行改成LISTAGG('"' || column_name || '"', ';')，SELECT列改成LISTAGG('''"''||TRIM(' || column_name || ')||''"''', '||'';''||')。

内容的提问来源于stack exchange，提问作者Dieter98765