カーソルのフェッチのプロシージャの呼び出し

Question

可能かどうかわかりませんが、問合せのフェッチ中に別のプロシージャのデータを参照するプロシージャを作成する必要があります。

例：以下は

は私の構造がどのように本物の別の例である：

TYPE T_CURSOR IS REF CURSOR; 

PROCEDURE PR_ACCOUNT_ACTIVE(CCURSOR OUT T_CURSOR) IS 

    CURSOR CURSOR_ACCOUNT IS 
     SELECT ID_ACCOUNT, NAME, 0 AS SUM_BALANCE 
      FROM ACCOUNT 
     WHERE STATUS = 'A' 
     ORDER BY DATE_CREATE DESC; 

    REG_ACCOUNT CURSOR_ACCOUNT%ROWTYPE; 

    BEGIN 

     OPEN CURSOR_ACCOUNT; 
     LOOP 

      FETCH CURSOR_ACCOUNT INTO REG_ACCOUNT; 
      EXIT WHEN CURSOR_ACCOUNT%NOTFOUND; 

      /*** 
      At this point I need to call the procedure PR_ACCOUNT_BALANCE (below) and 
      her return and use (field SUM_VAL_MONEY) to update the field SUM_BALANCE 
      this current cursor (CURSOR_ACCOUNT) and then return to the cursor CCURSOR 
      ***/ 

     END LOOP; 
     CLOSE CURSOR_ACCOUNT; 

    END; 

END PR_ACCOUNT_ACTIVE; 


PROCEDURE PR_ACCOUNT_BALANCE(P_ID_ACCOUNT IS NUMBER, CCURSOR OUT T_CURSOR) IS 

    BEGIN 

    OPEN CCURSOR FOR 

     SELECT ID_ACCOUNT 
     , SUM(VAL_MONEY) AS SUM_VAL_MONEY 
     FROM ACCOUNT_CONTRIBUTION 
     WHERE ID_ACCOUNT = P_ID_ACCOUNT 
     GROUP BY ID_ACCOUNT 

END PR_ACCOUNT_BALANCE; 

私の大きな問題は、両方の手順で、リターンは常にカーソルによって行われていることである、と私はできませんそれを変えなさい。

これを解決する方法はありますか？

Answer 1

PROCEDURE PR_ACCOUNT_ACTIVE(CCURSOR OUT T_CURSOR) IS 

CURSOR CURSOR_ACCOUNT IS 
    SELECT ID_ACCOUNT, NAME, 0 AS SUM_BALANCE 
     FROM ACCOUNT 
    WHERE STATUS = 'A' 
    ORDER BY DATE_CREATE DESC; 

REG_ACCOUNT CURSOR_ACCOUNT%ROWTYPE; 

--create a record to fetch the value of the cursor 
TYPE p_rec is RECORD 
(
    ID_ACCOUNT ACCOUNT.ID_ACCOUNT%TYPE 
,SUM_VAL PLS_INTEGER 
); 

v_rec p_rec; --variable of that record 

BEGIN 

    OPEN CURSOR_ACCOUNT; 
    LOOP 

     FETCH CURSOR_ACCOUNT INTO REG_ACCOUNT; 
     EXIT WHEN CURSOR_ACCOUNT%NOTFOUND; 
      PR_ACCOUNT_BALANCE(REG_ACCOUNT.ID_ACCOUNT,v_cursor); 
      FETCH v_cursor INTO v_rec; 
       UPDATE ACCOUNT SET sum_balance=v_rec.sum_val 
        WHERE id_account=v_rec.id_account --assuming id_account is primary key of accounts table 
      CLOSE v_cursor; 

    END LOOP; 
    CLOSE CURSOR_ACCOUNT; 

END; 

END PR_ACCOUNT_ACTIVE; 

PROCEDURE PR_ACCOUNT_BALANCE(P_ID_ACCOUNT IS NUMBER, CCURSOR OUT T_CURSOR) IS 

BEGIN 

    OPEN CCURSOR FOR 

    SELECT ID_ACCOUNT 
    , SUM(VAL_MONEY) AS SUM_VAL_MONEY 
    FROM ACCOUNT_CONTRIBUTION 
    WHERE ID_ACCOUNT = P_ID_ACCOUNT 
    GROUP BY ID_ACCOUNT 

END PR_ACCOUNT_BALANCE; 

私は、コードをコンパイルしていないが、私は、これはあなたのアプローチのアイデアを与えるだろうと思います。

提案

1. あなたはOracle11gを使用している場合、このプロシージャ・コールを最適化するために、automatic subprogramming inline機能を使用します。 link