1

上記のクエリの結果セットを含むレコード タイプを作成する必要があります。

V_SQL VARCHAR2(200) := 'SELECT T1.'||record_id||',T1.'||card_no||',T2.TEST_CARD_NO, T1.'||type_cc||' FROM '|| table_name||' T1 
                INNER JOIN TEST T2 ON 
                T2.ID = T1.'||record_id;

ループ実行ステートメント内で t1 C_BRNGB_EXTRACT%ROWTYPE (および l_BRNGB_EXTRACT 内の t2.col4%TYPE の別の列) を使用できるように

CREATE OR REPLACE PROCEDURE "GCCPMAINT"."FUNCTION_CURSOR"(table_name VARCHAR2,record_id VARCHAR2,card_no VARCHAR2,type_cc VARCHAR2)
AS
limit_in NUMBER:=100;
V_SQL VARCHAR2(200) := 'SELECT T1.'||record_id||',T1.'||card_no||',T2.TEST_CARD_NO, T1.'||type_cc||' FROM '|| table_name||' T1 
            INNER JOIN TEST T2 ON 
            T2.ID = T1.'||record_id;

  TYPE BRNGB_EXTRACT IS REF CURSOR;
  C_BRNGB_EXTRACT BRNGB_EXTRACT;
  TYPE BRNGB_EXTRACT1 IS TABLE OF C_BRNGB_EXTRACT%ROWTYPE;
  l_BRNGB_EXTRACT BRNGB_EXTRACT1;    

BEGIN

OPEN C_BRNGB_EXTRACT FOR V_SQL;

   LOOP
       FETCH C_BRNGB_EXTRACT BULK COLLECT INTO l_BRNGB_EXTRACT LIMIT limit_in;
               EXIT WHEN l_BRNGB_EXTRACT.COUNT = 0;
                           FORALL indx IN 1 .. l_BRNGB_EXTRACT.COUNT
        EXECUTE IMMEDIATE 'UPDATE table_name SET CARD_NO=:1 WHERE CARD_NO=:2 AND RECORD_ID=:3' USING l_BRNGB_EXTRACT(indx).test_card_no,l_BRNGB_EXTRACT(indx).CARD_NO,l_BRNGB_EXTRACT(indx).RECORD_ID;
END LOOP;
CLOSE C_BRNGB_EXTRACT;
COMMIT;
END;

上記のストアド プロシージャの場合、次のエラーが発生します

PLS-00320: この式の型の宣言が不完全または不正です PL/SQL: 項目は無視されました PLS-00597: INTO リスト内の式 'L_BRNGB_EXTRACT' の型が正しくありません PL/SQL: SQL 文は無視されました PLS-00487: 無効です変数 'C_BRNGB_EXTRACT%ROWTYPE' への参照

これを解決するのを手伝ってください。

4

1 に答える 1

0

私は解決策を得ました

 TYPE BRNGB_EXTRACT IS REF CURSOR;
  C_BRNGB_EXTRACT BRNGB_EXTRACT;
 -- TYPE BRNGB_EXTRACT1 IS TABLE OF C_BRNGB_EXTRACT%ROWTYPE;

  TYPE BRNGB_EXTRACT1 IS RECORD  (
  record_id varchar(30),
  card_no varchar(30),
  TEST_CARD_NO varchar(30)
  );
  type test_rec_arr is table of BRNGB_EXTRACT1 index by pls_integer;
  l_BRNGB_EXTRACT test_rec_arr;
于 2015-02-06T12:36:25.437 に答える