如何验证PL/SQL包运行时是否从游标提取变量？

问题场景 #

你有一个PL/SQL包，其中定义的游标手动执行查询可得到结果，但包运行时无法从游标提取变量。游标及相关代码如下：

CURSOR dbvalue_cur  IS   
SELECT ABC_ACCOUNT_A, 
      ABC_ACCOUNT_B, 
      ABC_A_PREM_LOC, 
      ABC_A_SERV_CLASS, 
      ABC_B_PREM_LOC, 
      ABC_B_SERV_CLASS, 
      ABC_A_CUST_COUNT, 
      ABC_A_REP_CON, 
      ABC_B_CUST_COUNT, 
      ABC_B_REP_CON, 
      ABC_A_ASVC, 
      ABC_B_ASVC, 
      ABC_REV_IND
FROM DEF, ABC
WHERE utrglcl_code = ABC_glcl_code
 AND utrglcl_code  = d_GLCLASS_CODE;

dbValue            dbvalue_cur%ROWTYPE;
BEGIN  
  d_returnFieldsJSON := '';
  
  U$_OL_PROPERTY_DB.returnFieldsTable   := U$_OL_PROPERTY_DB.emptyReturnFieldsTable;
  d_GLCLASS_CODE    := NVL(U$_OL_PROPERTY_DB.getPageCacheValue('UTRGLCL_CODE'), 'NULL');
   
/*******************************************
 ** VALIDATION LOGIC START
 *******************************************/
Open dbvalue_cur;
FETCH dbvalue_cur INTO dbValue;

验证方法 #

1. 输出变量及游标状态 #

在FETCH语句后添加DBMS_OUTPUT代码，直接打印提取的变量值和游标状态：

Open dbvalue_cur;
FETCH dbvalue_cur INTO dbValue;

-- 打印游标状态
DBMS_OUTPUT.PUT_LINE('游标是否找到数据: ' || CASE WHEN dbvalue_cur%FOUND THEN '是' ELSE '否' END);
DBMS_OUTPUT.PUT_LINE('游标提取行数: ' || dbvalue_cur%ROWCOUNT);

-- 打印具体字段值（按需选择字段）
DBMS_OUTPUT.PUT_LINE('ABC_ACCOUNT_A: ' || dbValue.ABC_ACCOUNT_A);
DBMS_OUTPUT.PUT_LINE('ABC_REV_IND: ' || dbValue.ABC_REV_IND);

执行包前需开启服务器输出：SET SERVEROUTPUT ON;，查看输出结果判断是否提取到数据。

2. 捕获游标相关异常 #

在代码块中添加异常处理，捕获游标操作可能出现的错误：

BEGIN
  -- 原有代码...
  Open dbvalue_cur;
  FETCH dbvalue_cur INTO dbValue;
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    DBMS_OUTPUT.PUT_LINE('错误：游标无数据可提取');
  WHEN TOO_MANY_ROWS THEN
    DBMS_OUTPUT.PUT_LINE('错误：游标返回多行数据，无法存入单行变量');
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('错误代码：' || SQLCODE || '，错误信息：' || SQLERRM);
END;

3. 写入临时表验证 #

创建临时表存储提取的变量，后续查询临时表确认数据：

-- 先创建临时表（仅需执行一次）
CREATE GLOBAL TEMPORARY TABLE temp_dbvalue (
  ABC_ACCOUNT_A VARCHAR2(100),
  ABC_ACCOUNT_B VARCHAR2(100),
  ABC_REV_IND CHAR(1)
  -- 其他字段按需添加
) ON COMMIT PRESERVE ROWS;

-- 包内FETCH后插入数据
Open dbvalue_cur;
FETCH dbvalue_cur INTO dbValue;
IF dbvalue_cur%FOUND THEN
  INSERT INTO temp_dbvalue (ABC_ACCOUNT_A, ABC_ACCOUNT_B, ABC_REV_IND)
  VALUES (dbValue.ABC_ACCOUNT_A, dbValue.ABC_ACCOUNT_B, dbValue.ABC_REV_IND);
END IF;

执行包后查询临时表：SELECT * FROM temp_dbvalue;，确认是否有数据插入。

4. 调试工具跟踪 #

使用Oracle SQL Developer或PL/SQL Developer的调试功能：

• 在FETCH语句处设置断点
• 启动调试模式运行包
• 查看dbValue变量的实时值，以及d_GLCLASS_CODE的实际取值

额外排查点 #

注意代码中d_GLCLASS_CODE := NVL(U$_OL_PROPERTY_DB.getPageCacheValue('UTRGLCL_CODE'), 'NULL');，这里赋值的是字符串'NULL'而非SQL的NULL值。如果手动执行时用的是实际业务代码而非'NULL'，会导致包运行时查询条件不匹配，需确认d_GLCLASS_CODE的实际取值是否正确。

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