【发布时间】：2018-01-20 23:59:34
【问题描述】：
在 PL/SQL 方面我还是个新手。
在 Linux RHEL 6.8 上使用 Oracle 12c，以下 shell 脚本将尝试激活表集合中的所有 RI 约束，如果它们因父键失败而失败，它将转储表的前 100 行（或更少）违规数据。或者至少这是目标。由于该脚本主要处理 12c 上的系统表（只有一个小的用户表列表，这是我的安装所独有的），所以我完全从我的环境中包含了整个内容。
主要工作发生在异常处理中，其中查询系统表的约束，并从这些数据形成用户查询。
作为一个额外的目标，输出相当混乱，我想清理它，但首先它必须工作:)
我的表格的输出/错误如下：
此处对表 NRNG_MTC_VST 约束名称进行错误处理： SYS_C0011790 最终 SQL = SELECT DISTINCT NRNG_MTC_VST.LOG_CRT_DT ， NRNG_MTC_VST.NRRNG_MTC_LG_ID 来自 ODB_PRIMARY.NRNG_MTC_VST 哪里没有 存在（从 ODB_PRIMARY.NRNG_MTC_LOG 中选择 1 NRNG_MTC_VST.LOG_CRT_DT = NRNG_MTC_LOG.LOG_CRT_DT 和 NRNG_MTC_VST.NRRNG_MTC_LG_ID = NRNG_MTC_LOG.NRRNG_MTC_LG_ID) FETCH 仅限前 100 行 ---xxx 结束 SQL DECLARE * 第 1 行出现错误：ORA-01001：无效游标 ORA-06512：第 111 行 ORA-02298：无法验证 (ODB_PRIMARY.SYS_C0011790) - 父键 没找到
我的 print_line 的输出 SQL 是正确的，如果直接粘贴到 SQLDeveloper 会话中就可以工作。我不明白光标的定义方式有点愚蠢。
脚本的全文。 BYW，如果您看到其他与错误无关的愚蠢更改，请也提出建议。
cd $OGGHOME/scripts
export ORACLE_SID=odbod07 $ORACLE_HOME/bin/sqlplus <<-EOF / as sysdba
alter session set container=p01_odbod07;
set echo on set feedback on
set heading off
set serveroutput on size 10000
DECLARE finalsql varchar2(2048);
part1sql varchar2(1024) ;
part2sql varchar2(1024) := ' ';
cownername varchar2(1024);
ctablename varchar2(1024);
pownername varchar2(1024);
ptablename varchar2(1024);
cnt number := 0;
-- Weak cursor defs
my_cursor sys_refcursor;
BEGIN FOR i in (
select owner, table_name, constraint_name
from dba_constraints
where constraint_type = 'R'
and status = 'DISABLED'
and owner = 'ODB_PRIMARY'
and TABLE_NAME in
-- enter user tables with RI constraints here
('RRNG_MTC_STN_CPLY',
'NRNG_MTC_VST_MTRL_USG',
'NRNG_MTC_VST',
'CAR_CORE',
'NRNG_MTC_LOG'))
-- end user table definitions, rest of code should rely only on system tables
LOOP BEGIN
dbms_output.put_line('alter table '||i.owner|| '.' ||
i.table_name || ' enable constraint '||i.constraint_name);
execute immediate 'alter table '||i.owner|| '.' ||
i.table_name || ' enable constraint '||i.constraint_name;
EXCEPTION
-- exception handling - dump offending data
WHEN OTHERS THEN -- take all exceptions for now
dbms_output.put_line ('ERROR Handling here for table ' ||
i.table_name || ' Constraint Name: ' ||i.constraint_name);
finalsql := 'SELECT DISTINCT ';
part1sql := '';
part2sql := ' ';
cnt := 0;
for constraint in (
SELECT ucc1.OWNER as childowner,
ucc1.TABLE_NAME as childtable,
ucc1.column_name as childcolumn,
ucc2.OWNER as parentowner,
ucc2.TABLE_NAME as parenttable,
ucc2.column_name as parentcolumn,
utc1.data_type as childdatatype,
utc1.data_length as childdatalen
FROM all_constraints uc ,
all_cons_columns ucc1 ,
all_cons_columns ucc2,
all_tab_columns utc1
WHERE
uc.constraint_name = ucc1.constraint_name
AND uc.r_constraint_name = ucc2.constraint_name
AND ucc1.POSITION = ucc2.POSITION
AND ucc1.table_name = utc1.table_name
AND ucc1.column_name = utc1.column_name
AND uc.constraint_type = 'R'
AND uc.constraint_name = i.constraint_name
ORDER BY ucc1.TABLE_NAME , uc.constraint_name)
loop
cownername := constraint.childowner;
ctablename := constraint.childtable;
pownername := constraint.parentowner;
ptablename := constraint.parenttable;
if cnt > 0 then
part1sql := part1sql || ' , ';
part2sql := part2sql || ' AND ';
end if;
part1sql := part1sql || constraint.childtable ||
'.'||constraint.childcolumn || ' ';
part2sql := part2sql || constraint.childtable || '.'
|| constraint.childcolumn || ' = '
|| constraint.parenttable || '.' ||
constraint.parentcolumn;
cnt := cnt + 1;
end loop;
finalsql := finalsql || part1sql ||
' FROM ' || ' ' || cownername ||
'.' || ctablename ||
' WHERE NOT EXISTS (SELECT 1 FROM ' ||
pownername || '.' || ptablename ||
' WHERE ' || part2sql || ') FETCH FIRST 100 rows only';
dbms_output.put_line ('Final SQL = ' || finalsql);
dbms_output.put_line ('---xxx End SQL');
open my_cursor for finalsql;
dbms_sql.return_result(my_cursor);
close my_cursor;
-- EXECUTE IMMEDIATE finalsql;
END;
end loop; end;
/
EOF
非常感谢您提供的任何帮助。 布赖恩
【问题讨论】：