Gettig错误PLS-00364

Question

我正在尝试创建一个存储过程，其中我将select语句传递给for循环，我使用的是动态表，它在运行时传递，并出现以下错误：

第23行PLS-00364:循环索引变量'I‘的使用无效 第19行PL/SQL: ORA-00942:表或视图不存在

CREATE OR REPLACE PROCEDURE CREATE_TEST(TBL_NM IN VARCHAR2) 
IS

SRC_ID NUMBER(38);
SQL_Q VARCHAR2(250);
DEL_F VARCHAR2(250);

BEGIN 



    FOR I in (SELECT DEL_IND  FROM  TBL_NM) 
    LOOP
        SRC_ID := SRC_FILE_ID_SEQ.NEXTVAL;

        IF I.DEL_IND = 0
        THEN 
            execute immediate 'INSERT INTO TEST_HIST ' || ' (a,b,c,d,e,DEL_IND) ' ||
            ' SELECT a,b,c,d,e, '|| 0  || ' || ' FROM ' || TBL_NM;

        ELSIF I.DEL_IND = 1 
        THEN

            execute immediate 'INSERT INTO JESTX_IGNR ' || ' (a,b,c,d,e,DEL_IND,SRC_ID_NO) ' ||
            ' SELECT a,b,c,d,e, '|| 2 ||' , '|| SRC_ID || ' FROM ' || TBL_NM;

        END IF ;

     END LOOP;
     COMMIT;

END;

我称这一程序为：

EXEC CREATE_TEST('abc');

Answer 1

您需要的是引用游标，因为您不能在动态sql中使用游标for循环。

我不知道您的专栏DEL_IND的确切数据类型。请按此声明。这里是关于Oracle游标的更多信息。

试着在下面

 CREATE OR REPLACE PROCEDURE CREATE_TEST(TBL_NM IN VARCHAR2) 
IS
TYPE c1ref is REF CURSOR;
SRC_ID NUMBER(38);
SQL_Q VARCHAR2(250);
DEL_F VARCHAR2(250);
DEL_IND NUMBER(5);
BEGIN 

    vsql_text := 'select DEL_IND from ' || TBL_NM;

    open c1ref for vsql_text;

    LOOP
        SRC_ID := SRC_FILE_ID_SEQ.NEXTVAL;
        fetch c1ref into DEL_IND;
         exit when c1ref%NOTFOUND;
        IF (DEL_IND = 0)
        THEN 
            execute immediate 'INSERT INTO TEST_HIST ' || ' (a,b,c,d,e,DEL_IND) ' ||
            ' SELECT a,b,c,d,e, '|| 0  || ' ||  FROM ' || TBL_NM;

        ELSIF (DEL_IND = 1) 
        THEN

            execute immediate 'INSERT INTO JESTX_IGNR ' || ' (a,b,c,d,e,DEL_IND) ' ||
            ' SELECT a,b,c,d,e, '|| 2 ||' , '|| SRC_ID || ' FROM ' || TBL_NM;

        END IF ;

     END LOOP;
    CLOSE c1ref;
   COMMIT;

END;