PLS-00201：識別子 'R_CUR'は動的SQLで宣言する必要があります

Question

要件：カーソルを動的に実行し、変数varを列値に基づいてtrueまたはfalseに設定します。

問題：しかし、私はその私に示すエラー以下のコードを実行していながら：

Error at line 4
ORA-06550: line 1, column 10:
PLS-00201: identifier 'R_CUR' must be declared
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored
ORA-06512: at line 61`

set serveroutput on; 

DECLARE 
    CURSOR cur 
    IS 
     SELECT EMPNO, 
       ENAME, 
       JOB, 
       MGR 
     FROM emp 
     WHERE EMPNO = 7839; 

    TYPE t_cur IS TABLE OF cur%ROWTYPE; 

    r_cur t_cur; 

    TYPE t IS TABLE OF VARCHAR2 (20); 

    r t 
    := t ('EMPNO', 
      'ENAME', 
      'JOB', 
      'MGR') ; 



    v_if_statement VARCHAR2 (1000); 
    v_sql_statement VARCHAR2 (1000); 
    var VARCHAR2 (10) := 'false'; 
    v VARCHAR2 (10) := 'r'; 
    rc VARCHAR2 (10) := 'r(j)'; 
    vr VARCHAR2 (10) := 'v'; 
    r1 VARCHAR2 (10); 
BEGIN 
    OPEN cur; 

    LOOP 
     FETCH cur BULK COLLECT INTO r_cur; 

     EXIT WHEN cur%NOTFOUND; 
    END LOOP; 

    CLOSE cur; 

    FOR i IN r_cur.FIRST .. r_cur.LAST 
    LOOP 
     FOR j IN r.FIRST .. r.LAST 
     LOOP 
     v_if_statement := 
       'IF r_cur('||i||').' 
      || r (j) 
      || ' ' 
      || 'IS NOT NULL' 
      || ' ' 
      || 'THEN :var:=''true'';' 
      || ' ' 
      || 'dbms_output.put_line(''inside stmt'');' 
      || 'END IF;'; 
      v_sql_statement := 'BEGIN ' || v_if_statement || ' END;'; 

      EXECUTE IMMEDIATE v_sql_statement USING OUT var; 

     DBMS_OUTPUT.put_line ('var : ' || var); 
    END LOOP; 
    END LOOP; 
END; 

Answer 1

エラーがここに有効です。 execute immediateステートメントを見ると、解決されて実行されると、beginブロックから始まります。その開始ブロックでr_curの宣言は範囲外であるため、問題が発生します。よろしくお願いします。r_curの宣言をブロックする必要があります。私のコメント部分を参照してください。

FOR j IN r.FIRST .. r.LAST 
     LOOP 
     v_if_statement := 
       'IF r_cur('||i||').' 
      || r (j) 
      || ' ' 
      || 'IS NOT NULL' 
      || ' ' 
      || 'THEN :var:=''true'';' 
      || ' ' 
      || 'dbms_output.put_line(''inside stmt'');' 
      || 'END IF;'; 

      ----**Here when the begin block gets resolved the r_cur decalration is needed.**  
      v_sql_statement := 'BEGIN ' || v_if_statement || ' END;'; 

      EXECUTE IMMEDIATE v_sql_statement USING OUT var; 

     DBMS_OUTPUT.put_line ('var : ' || var);