PL SQL числовое или значение ошибки

Question

Вкл. При выполнении этого запроса у меня возникает ошибка:

* Отчет об ошибке:ORA-06502: PL / SQL: ошибка числа или значенияORA-06512: в строке 3406502. 00000 - «PL / SQL: ошибка числа или значения% s» *, Моя версия оракула: Oracle9i Enterprise Edition Release 9.2.0.1.0 - Рабочая версия
PL / SQL Release 9.2.0.1.0 - Рабочая версия

Пожалуйста, помогите мне .. С уважением,

 DECLARE CURSOR c1 is SELECT TABLE_NAME FROM All_Tables WHERE TABLE_NAME NOT LIKE '%$%' AND Owner NOT IN ('WMSYS', 'EXFSYS', 'CTXSYS', 'WKSYS', 'SYSMAN', 'SYSTEM', 'FLOWS_030000', 'MDSYS', 'ORDSYS', 'DBSNMP', 'XDB', 'OLAPSYS');  
    col_names SYS_REFCURSOR; TYPE dat_res IS RECORD(tab_name VARCHAR2(1000),col_name VARCHAR2(1000)); 
    TYPE dr is table of dat_res; 
    act_dat dr:= dr(); 
    status NUMBER := 0; 
    cnt NUMBER := 1; 
    sql_stmt VARCHAR2(10000); 
    tab_name1 VARCHAR2(100); 
    col_name1 VARCHAR2(100); 

BEGIN 

FOR I IN C1 LOOP sql_stmt:= 'SELECT table_name,column_name FROM all_Tab_cols WHERE table_name = '||CHR(39)||I.table_name||CHR(39); 
OPEN col_names FOR sql_stmt; LOOP FETCH col_names INTO tab_name1,col_name1; 
EXIT WHEN col_names%NOTFOUND; 
BEGIN 


EXECUTE IMMEDIATE 
'SELECT 1 FROM '||tab_name1|| ' WHERE REGEXP_LIKE('||'TO_CHAR('||col_name1||'), '||CHR(39)||'^[%][a-bA-B]'||CHR(39)||') ' 
INTO status;


EXCEPTION 
WHEN VALUE_ERROR THEN NULL;
WHEN NO_DATA_FOUND THEN NULL; 
WHEN OTHERS THEN NULL; 
END; 
IF (status = 1) THEN act_dat.extend; act_dat(cnt).tab_name:= tab_name1; act_dat(cnt).col_name:= col_name1; status := 0; cnt:= cnt + 1; 
END IF; END LOOP; 
CLOSE col_names; 
END LOOP; 
dbms_output.put_line('Table Name : Column Name'); 
FOR K IN act_dat.FIRST..act_dat.LAST LOOP insert into my_SAuditor_table VALUES (act_dat(K).tab_name, act_dat(K).col_name); 
END LOOP; 
Execute IMMEDIATE 'SELECT * FROM my_SAuditor_table';
END;

Answer 1

Возможно, вы перебираете пустую коллекцию.
Перед использованием act_dr.FIRST и act_dr.LAST вам нужно проверить, что в act_dr есть несколько строк, в противном случае вы получите ноль, который не является числом.

Это можно сделать с помощью:

if act_dr.count > 0 then
FOR K IN act_dat.FIRST..act_dat.LAST LOOP 
   insert into my_SAuditor_table VALUES (act_dat(K).tab_name, act_dat(K).col_name); 
END LOOP;
end if;

Answer 2

Проблема в том, что определения имен таблиц столбцов не согласованы. В конце концов вы вставляете столбец 1000 байтов в столбец 512 байтов, и самое забавное, вы читаете только столбец с максимальной длиной 100 байтов.

Я бы посоветовал очистить код.