PL/SQL运行余额计算程序异常：仅前两行生效，求排查与解决

核心错误点 #

• 循环次数硬编码为2次：FOR k IN 1..2 LOOP 只处理前两条记录，后面的记录完全没被遍历，这就是只有前两行正常的直接原因。
• UPDATE语句条件错误：比如WHERE cod_drcr='C'会把表中所有cod_drcr为'C'的记录都更新成当前的total值，而不是仅更新当前正在处理的那条交易记录，导致同类型交易的运行余额全部相同，逻辑完全错误。
• 游标未指定排序规则：运行余额需要严格按照交易发生的顺序计算，但你的游标SELECT语句没有加ORDER BY，数据库返回记录的顺序是不确定的，会导致余额计算逻辑混乱。
• 冗余变量与低效游标操作：手动OPEN/FETCH/CLOSE游标容易出错，而且c_cod_acct_no变量定义后未使用，属于冗余代码。

修正后的PL/SQL代码 #

假设你的表chnos1有一个唯一标识每条交易的主键（比如txn_id），或者有交易时间字段（比如txn_date）用于排序，以下是修正后的代码：

DECLARE
   total NUMBER := 1000000;
BEGIN
   -- 使用游标FOR循环自动处理所有记录，无需手动OPEN/FETCH/CLOSE
   FOR rec IN (
      SELECT cod_drcr, amt_txn, txn_id  -- 假设txn_id是每条交易的唯一标识
      FROM chnos1
      ORDER BY txn_id  -- 必须按交易顺序排序，比如用主键或交易时间
   ) LOOP
      -- 计算当前交易后的运行余额
      IF rec.cod_drcr = 'C' THEN
         total := total + rec.amt_txn;
      ELSIF rec.cod_drcr = 'D' THEN
         total := total - rec.amt_txn;
      ELSE
         -- 未知类型默认按C处理，可根据实际需求调整
         total := total + rec.amt_txn;
      END IF;
      
      -- 仅更新当前处理的这条交易记录
      UPDATE chnos1 
      SET amt_running_bal = total 
      WHERE txn_id = rec.txn_id;  -- 用唯一标识定位当前记录
   END LOOP;
   COMMIT;  -- 记得提交事务，否则更新不会持久化
END;
/

额外优化建议 #

• 如果表中没有唯一主键，也可以用ROWID来定位当前记录，但ROWID是物理地址，不如逻辑主键可靠。
• 若数据量较大，逐行UPDATE效率较低，可以考虑用窗口函数一次性计算运行余额，避免PL/SQL循环，示例SQL如下：

UPDATE chnos1 t1
SET amt_running_bal = (
   SELECT 1000000 + SUM(
      CASE cod_drcr 
         WHEN 'C' THEN amt_txn 
         WHEN 'D' THEN -amt_txn 
         ELSE amt_txn 
      END
   ) OVER (ORDER BY txn_id ROWS BETWEEN UNBOUNDED PRECEDING AND CURRENT ROW)
   FROM chnos1 t2
   WHERE t2.txn_id = t1.txn_id
);
COMMIT;

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