循环遍历带有更新字段条件的游标 [PLSQL]

Question

我目前正在实现一个 PL/SQL 过程，它可以平衡两个列表中的值。

将此示例视为背景：

• Rec_1 | 2
• Rec_2 | 1
• Rec_3 | 2

---

• Rec_A | -1
• Rec_B | -3
• Rec_C | -2

我想逐个循环遍历所有这些值并尽可能多地结算，即第一次结算后 Rec_1 应该是 1，Rec_A 应该是 0。之后，Rec_1 将与 Rec_B 结算，这样它得到 1，Rec_B 得到 -2，以此类推。

我想使用两个游标来执行此操作，并在它自己的过程（或函数，如果有必要的话）中更新值，因为除了更新这个值之外，还有更多工作要做。

现在，这是我的挑战： 在结算发生后，我如何知道要获取哪个光标？

现在，我的这个函数的代码如下所示：

PROCEDURE SettleLists (
  ListNegV SYS_REFCURSOR,
  ListPosV SYS_REFCURSOR
) IS
  currentNegV TABLENAME%ROWTYPE;
  currentPosV TABLENAME%ROWTYPE;
BEGIN
  FETCH ListNegV INTO currentNegV;
  FETCH ListPosV INTO currentPosV;
  LOOP
    EXIT WHEN ListNegV%NOTFOUND;
    EXIT WHEN ListPosV%NOTFOUND;
    IF (currentNegV.NUMERICVALUE < 0)
    THEN
      IF (currentPosV.NUMERICVALUE > 0)
      THEN
        Settle(currentPosV, currentNegV);
      ELSE 
        FETCH ListPosV INTO currentPosV;
      END IF;
    ELSE 
      FETCH ListNegV INTO currentNegV;
    END IF;  
  END LOOP;
END;

在结算过程中，两条记录都会有更新。由于变量和游标值没有更新，这将产生一个无限循环。我也可以在数据库中更新记录时更新结算参数，但由于我不习惯游标，您可能会有更好的主意。

我可以认为光标是强类型的，如果这有什么不同的话。如果有比使用光标更好的方法，请随时提出建议。

最后，我在玩 SELECT FOR UPDATE 和 UPDATE WHERE CURRENT OF，但在将游标传递给介于两者之间的过程时，它似乎不起作用。如果有人对此有一些想法，我也将感谢您的帮助。

Answer 1

这是我要做的。我一定会添加一些cmets。

这在 Oracle 11Gr2 中运行良好，我希望即使在 7i 中也能正常运行 :)。

declare
    cursor c1 is 
        select 'REC_1' HEader,2 Val from dual
        union 
        select 'REC_2' HEader,1 Val from dual
        union 
        select 'REC_3' HEader,2 Val from dual;
    cursor c2 is
        select 'REC_A' HEader,-1 Val from dual
        union 
        select 'REC_B' HEader,-3 Val from dual
        union 
        select 'REC_C' HEader,-2 Val from dual;
    num_bal1 number;
    num_bal2 number;
    num_settle_amt number;
    rec_type_c1 c1%rowtype;
    rec_type_c2 c2%rowtype;
begin

    Open c1;
    open c2;
    fetch c1 into rec_type_c1;
    fetch c2 into rec_type_c2;
    num_bal1 := nvl(rec_type_c1.val,0);
    num_bal2 := rec_type_c2.val;
    Loop

        exit when c1%notfound or c2%notfound;
        Loop
            dbms_output.put_line('Processing ' || rec_type_c1.header || ' with ' || num_bal1);
            --In your example there are only +ve for 1 and -ve for 2. But if that is not correct, check for signs and next 3 statements
            num_settle_amt := least(abs(num_bal1), abs(num_bal2) );
            num_bal1 := num_bal1 - num_settle_amt;
            num_bal2 := num_bal2 + num_settle_amt;
            dbms_output.put_line('Setteled ' || num_settle_amt || ' of ' || rec_type_c1.header  || ' with ' || rec_type_c2.header );
            if num_bal1 = 0 then
                --Update in the table. It will not impact variable.
                fetch c1 into rec_type_c1;
                num_bal1 := nvl(rec_type_c1.val,0);
            end if;

            if num_bal2 = 0 then
                --Update in the table. It will not impact variable.
                fetch c2 into rec_type_c2;
                num_bal2 := nvl(rec_type_c2.val,0);
            end if;

        End loop;
    end loop;
    close c1;
    close c2;
end;