PL/SQL程序输出Top 'a'员工薪资无结果，请求排查代码问题

你的PL/SQL代码确实存在几个可能导致无输出的问题，同时还有可以优化的地方，下面逐一说明：

1. 退出条件的逻辑顺序问题 #

当前代码中，你在FETCH之后先执行DBMS_OUTPUT.put_line(sal)，再判断退出条件。这会导致两种异常情况：

• 如果emp表中没有任何数据，FETCH会直接触发cemp%NOTFOUND，但此时你仍然会执行PUT_LINE，输出的是NULL（空行），可能你误以为没有输出；
• 如果输入的a值大于表中总记录数，代码会输出所有记录后再退出，但过程中会多执行一次PUT_LINE输出NULL。

正确的逻辑应该是先判断退出条件，再输出薪资，这样可以避免输出无效的NULL值：

SET SERVEROUTPUT ON;
DECLARE
    CURSOR cemp IS
        SELECT esal FROM emp ORDER BY esal DESC;
    a NUMBER(10) := &a;
    sal emp.esal%TYPE;
BEGIN
    OPEN cemp;
    LOOP
        FETCH cemp INTO sal;
        -- 先判断是否无数据，或者已获取到a条记录，满足任一条件则退出
        EXIT WHEN cemp%NOTFOUND OR cemp%ROWCOUNT > a;
        DBMS_OUTPUT.put_line(sal);
    END LOOP;
    CLOSE cemp;
END;
/

2. SQL Developer中DBMS_OUTPUT未启用 #

即使代码逻辑正确，如果你没有在SQL Developer中开启DBMS_OUTPUT显示，也看不到输出。可以按以下步骤检查：

• 点击顶部菜单栏的View -> DBMS Output，打开输出面板；
• 在输出面板中点击+按钮，选择你的数据库连接，启用输出功能。

3. 更简洁的替代方案 #

手动管理游标容易出错，你可以使用游标FOR循环或者直接用FETCH FIRST ... ROWS ONLY语法简化代码，同时避免游标操作的失误：

方案一：游标FOR循环 #

SET SERVEROUTPUT ON;
DECLARE
    a NUMBER(10) := &a;
BEGIN
    -- 直接在FOR循环中使用查询语句，自动处理游标打开/关闭
    FOR emp_rec IN (SELECT esal FROM emp ORDER BY esal DESC) LOOP
        EXIT WHEN emp_rec%ROWCOUNT > a;
        DBMS_OUTPUT.put_line(emp_rec.esal);
    END LOOP;
END;
/

方案二：使用FETCH FIRST语法（Oracle 12c及以上） #

SET SERVEROUTPUT ON;
DECLARE
    a NUMBER(10) := &a;
BEGIN
    -- 直接在查询中限制返回前a条记录，无需手动控制循环次数
    FOR emp_rec IN (SELECT esal FROM emp ORDER BY esal DESC FETCH FIRST a ROWS ONLY) LOOP
        DBMS_OUTPUT.put_line(emp_rec.esal);
    END LOOP;
END;
/

最后，还要确认emp表中确实存在数据，且esal字段有非空值，否则即使代码正确也不会有有效输出。

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