The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE delete_runs(p_run_id_tbl tRunId) IS
l_schema_owner dba_tables.owner%TYPE := 'CZ';
SELECT TO_NUMBER(VALUE) INTO CZ_IMP_MGR.BATCH_SIZE
FROM cz_db_settings
WHERE UPPER(setting_id)='BATCHSIZE';
l_tab_name_tbl.DELETE;
SELECT table_name BULK COLLECT INTO l_tab_name_tbl
FROM dba_tables
WHERE table_name like 'CZ_IMP%' AND owner = UPPER(l_schema_owner);
l_str := 'DELETE FROM '||l_tab_name_tbl(j) || ' WHERE run_id = :1';
l_str := 'DELETE FROM cz_xfr_run_results WHERE run_id = :1';
l_str := 'DELETE FROM cz_xfr_run_infos WHERE run_id = :1';
END delete_runs;
FOR i IN (SELECT table_name FROM dba_tables WHERE table_name like 'CZ_IMP%' AND owner = UPPER(l_schema_owner)) LOOP
EXECUTE IMMEDIATE 'TRUNCATE TABLE '||l_schema_owner||'.'|| i.table_name;
l_run_id_tbl.DELETE;
SELECT run_id BULK COLLECT INTO l_run_id_tbl
FROM cz_xfr_run_infos
WHERE TRUNC(started) < (SELECT TRUNC(SYSDATE) - p_days FROM DUAL);
delete_runs(l_run_id_tbl);
l_run_id_tbl.DELETE;
SELECT run_id BULK COLLECT INTO l_run_id_tbl
FROM cz_xfr_run_infos
WHERE run_id <= p_run_id;
delete_runs(l_run_id_tbl);