PL/SQL循环拆分男女好友列表报错06550，请求排查问题

编译错误原因 #

• 外层FOR i循环未闭合：代码末尾仅包含内层循环的END LOOP;，外层循环缺少对应的闭合语句，导致语法结构不完整。
• 列引用未指定游标别名：内层循环中first_name、last_name未添加游标别名j.，PL/SQL无法识别这些列的归属。

逻辑冗余问题 #

原代码外层遍历所有好友后，内层又重复遍历整个表，会导致数据被多次重复输出，完全不符合“分别打印男性和女性好友列表”的需求。

修复编译错误的代码（仅解决语法问题） #

DECLARE
 v_gender VARCHAR2(500);
 v_male VARCHAR2(1);
 v_female VARCHAR2(1);
BEGIN
    FOR i IN (select * from friend_name) LOOP
        v_gender := 'Gender ' || i.gender ||', '|| i.first_name ||', '|| i.last_name;
        dbms_output.put_line(v_gender);
        
        v_male      := null;
        v_female    := null;  
        
        FOR J IN (SELECT * FROM friend_name) LOOP
            IF(j.gender = 'M') THEN 
                dbms_output.put_line(j.first_name ||', '|| j.last_name ||', '|| v_male);
            ELSE
                dbms_output.put_line(j.first_name ||', '|| j.last_name ||', '|| v_female); 
            END IF;
        END LOOP;
    END LOOP; -- 补充外层循环的闭合语句
END;
/

优化后的代码（满足“分别打印男女好友列表”需求） #

DECLARE
BEGIN
    -- 打印男性好友列表
    dbms_output.put_line('=== 男性好友列表 ===');
    FOR male_friend IN (SELECT first_name, last_name FROM friend_name WHERE gender = 'M') LOOP
        dbms_output.put_line(male_friend.first_name || ', ' || male_friend.last_name);
    END LOOP;
    
    -- 打印女性好友列表
    dbms_output.put_line('=== 女性好友列表 ===');
    FOR female_friend IN (SELECT first_name, last_name FROM friend_name WHERE gender = 'F') LOOP
        dbms_output.put_line(female_friend.first_name || ', ' || female_friend.last_name);
    END LOOP;
END;
/

优化说明

• 拆分两个独立游标，分别查询男性、女性好友，避免重复遍历整张表。
• 移除冗余变量，简化代码逻辑。
• 添加分组标题，让输出结果更清晰易读。

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