声明TYPE IS RECORD时PL/SQL编译报错PLS-00320，求解决方案

核心错误原因 #

• 游标comenzi逻辑错误：Comanda表不存在pret字段（价格字段Pret属于Produs表），原代码直接在Comanda的WHERE子句中使用pretCursor >= pret，会导致字段未找到，触发PLS-00320错误。需关联Comanda、ProduseComanda和Produs表，通过订单关联产品后筛选价格符合条件的记录。
• RECORD类型字段引用不匹配：定义的randComanda类型字段为v_ID_Comanda，但后续代码用ID_Comenzi.ID_Comanda访问；randProdus类型字段为v_ID_Produs，后续引用成ID_Produse.ID_Produs，字段名不匹配会引发编译错误。
• 冗余低效的游标使用：第三个游标produse全表扫描后循环比对产品ID，完全可以通过关联查询直接获取产品名称，避免不必要的性能损耗。

修复后的完整代码 #

CREATE OR REPLACE PROCEDURE exercitiul7
    (v_pret Produs.Pret%TYPE)
AS
    -- 调整记录类型字段名，与后续引用保持一致
    TYPE randComanda IS RECORD(ID_Comanda Comanda.ID_Comanda%TYPE);
    ID_Comenzi randComanda;

    TYPE randProdus IS RECORD(ID_Produs ProduseComanda.ID_Produs%TYPE);
    ID_Produse randProdus;

    -- 修正游标comenzi：关联三张表筛选符合价格条件的订单ID
    CURSOR comenzi(pretCursor NUMBER) IS 
        SELECT DISTINCT c.ID_Comanda 
        FROM Comanda c
        JOIN ProduseComanda pc ON c.ID_Comanda = pc.ID_Comanda
        JOIN Produs p ON pc.ID_Produs = p.ID_Produs
        WHERE p.Pret >= pretCursor;

    CURSOR produsecomanda(v_ID_Comanda ProduseComanda.ID_Comanda%TYPE) IS
        SELECT ID_Produs FROM ProduseComanda 
        WHERE ID_Comanda = v_ID_Comanda;

    -- 新增游标：根据产品ID直接获取名称，替代全表扫描
    CURSOR produs_nume(v_ID_Produs Produs.ID_Produs%TYPE) IS
        SELECT nume FROM Produs WHERE ID_Produs = v_ID_Produs;
    v_nume Produs.nume%TYPE;

BEGIN
    OPEN comenzi(v_pret);
    LOOP
        FETCH comenzi INTO ID_Comenzi;
        EXIT WHEN comenzi%NOTFOUND;

        OPEN produsecomanda(ID_Comenzi.ID_Comanda);
        LOOP
            FETCH produsecomanda INTO ID_Produse;
            EXIT WHEN produsecomanda%NOTFOUND;

            -- 通过产品ID游标获取名称，避免全表循环比对
            OPEN produs_nume(ID_Produse.ID_Produs);
            FETCH produs_nume INTO v_nume;
            IF produs_nume%FOUND THEN
                DBMS_OUTPUT.PUT_LINE('订单ID: ' || ID_Comenzi.ID_Comanda || ' - 产品名称: ' || v_nume);
            END IF;
            CLOSE produs_nume;

        END LOOP;
        CLOSE produsecomanda;
    END LOOP;
    CLOSE comenzi;

END exercitiul7;

额外优化建议 #

可以使用**隐式游标（FOR循环）**简化代码，减少显式游标OPEN/FETCH/CLOSE的冗余操作，同时保证逻辑清晰、效率更高，满足多游标要求：

CREATE OR REPLACE PROCEDURE exercitiul7
    (v_pret Produs.Pret%TYPE)
AS
BEGIN
    -- 隐式游标遍历符合条件的订单
    FOR c_rec IN (
        SELECT DISTINCT c.ID_Comanda 
        FROM Comanda c
        JOIN ProduseComanda pc ON c.ID_Comanda = pc.ID_Comanda
        JOIN Produs p ON pc.ID_Produs = p.ID_Produs
        WHERE p.Pret >= v_pret
    ) LOOP
        -- 隐式游标遍历当前订单下的产品
        FOR pc_rec IN (
            SELECT p.nume 
            FROM ProduseComanda pc
            JOIN Produs p ON pc.ID_Produs = p.ID_Produs
            WHERE pc.ID_Comanda = c_rec.ID_Comanda
        ) LOOP
            DBMS_OUTPUT.PUT_LINE('订单ID: ' || c_rec.ID_Comanda || ' - 产品名称: ' || pc_rec.nume);
        END LOOP;
    END LOOP;
END exercitiul7;

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