PL/SQL匿名块中声明游标时报'遇到符号CURSOR'错误的排查求助

核心报错根因 #

触发encountered the symbol "CURSOR"的问题和函数本身逻辑无关，是违反PL/SQL声明区的元素顺序硬性规则导致的：

• PL/SQL 要求块声明区的元素必须按固定顺序排列：先写局部类型定义、再写游标声明、再写普通变量/常量声明，最后才能写嵌套的子程序（自定义函数、过程）
• 当前代码把游标声明放在了自定义函数的定义块之后，解析器读完函数的end;语句后，会认为整个声明区已经结束、即将进入执行段，此时再遇到CURSOR这类声明类关键字，就会直接抛出语法错误
• 之前单独用CREATE OR REPLACE创建函数时能正常运行，是因为那个独立块里没有游标、变量等后续声明元素，完全不触发顺序规则校验；一旦把函数挪到匿名块的声明区、后面跟了其他声明元素，顺序错误就会立刻暴露

代码附带的其他隐性问题 #

• 循环里写的exit when(arts%notfound)逻辑完全无效：for隐式循环的游标%NOTFOUND判断时机和代码编写位置不匹配，把exit语句放在insert之前，会导致游标读到的第一行数据被直接跳过，根本不会写入结果表，属于逻辑错误，需要直接移除
• 函数计算存在边界风险：如果qtestk为0会触发除零异常，如果lig_com表没有对应商品的订单记录，sum(qte_com)会返回null，最终导致补货量计算结果为空
• 开头的accept idarticle是冗余语句：整个匿名块里完全没有用到这个绑定变量，没有实际作用
• 函数计算补货金额时重复调用了两次cal_approv，会触发两次重复的SQL查询，存在性能冗余，复用第一次计算的qa值即可计算pa

修复后的可运行代码 #

declare
    -- 按语法要求先声明游标
    CURSOR arts is 
        select idart, desart, pu 
        from article 
        where qtestk <= qtemin;
    -- 再声明普通变量
    ida number;
    da number;
    qa number;
    pa number;
    -- 最后声明嵌套函数（必须放在所有其他声明之后，符合语法规则）
    FUNCTION cal_approv(code_art article.idart%type)
        RETURN number IS 
        qte_app number;
        qtot number;
        qtestk number;
        qtemin number;
    begin
        -- 处理无订单记录的null场景
        select nvl(sum(qte_com),0) into qtot 
        from lig_com 
        where idart=code_art;
        select qtestk, qtemin into qtestk, qtemin 
        from article 
        where idart=code_art;
        -- 增加除零保护
        if qtestk = 0 then
            qte_app := qtot * 1.2;
        elsif (qtot/qtestk) > (2*qtemin) then
            qte_app := (qtot - qtestk)*1.5;
        else    
            qte_app := qtot*1.2;
        end if;
        return qte_app;
    end;
begin
    for art in arts loop
        qa :=  cal_approv(art.idart);
        -- 复用已计算的qa值计算金额，避免重复调用函数
        pa := art.pu * qa;
        insert into resultat values (art.idart, art.desart, qa, pa);
    end loop;
    commit;
end;
/

select * from resultat;

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