APPS.AD_ZD_PARALLEL_EXEC dependencies on DBMS_SQL

Line 49: l_cur := dbms_sql.open_cursor(security_level=>2);

45: begin
46:
47: --log(x_log_mod, 'STATEMENT', 'SQL(CLOB): '||dbms_lob.substr(x_sql, 3900));
48:
49: l_cur := dbms_sql.open_cursor(security_level=>2);
50: dbms_sql.parse(l_cur, x_sql, dbms_sql.native, x_edition_name, null, false);
51: l_ret := dbms_sql.execute(l_cur);
52: dbms_sql.close_cursor(l_cur);
53: commit;

Line 50: dbms_sql.parse(l_cur, x_sql, dbms_sql.native, x_edition_name, null, false);

46:
47: --log(x_log_mod, 'STATEMENT', 'SQL(CLOB): '||dbms_lob.substr(x_sql, 3900));
48:
49: l_cur := dbms_sql.open_cursor(security_level=>2);
50: dbms_sql.parse(l_cur, x_sql, dbms_sql.native, x_edition_name, null, false);
51: l_ret := dbms_sql.execute(l_cur);
52: dbms_sql.close_cursor(l_cur);
53: commit;
54:

Line 51: l_ret := dbms_sql.execute(l_cur);

47: --log(x_log_mod, 'STATEMENT', 'SQL(CLOB): '||dbms_lob.substr(x_sql, 3900));
48:
49: l_cur := dbms_sql.open_cursor(security_level=>2);
50: dbms_sql.parse(l_cur, x_sql, dbms_sql.native, x_edition_name, null, false);
51: l_ret := dbms_sql.execute(l_cur);
52: dbms_sql.close_cursor(l_cur);
53: commit;
54:
55: exception

Line 52: dbms_sql.close_cursor(l_cur);

48:
49: l_cur := dbms_sql.open_cursor(security_level=>2);
50: dbms_sql.parse(l_cur, x_sql, dbms_sql.native, x_edition_name, null, false);
51: l_ret := dbms_sql.execute(l_cur);
52: dbms_sql.close_cursor(l_cur);
53: commit;
54:
55: exception
56:

Line 58: if dbms_sql.is_open(l_cur) then

54:
55: exception
56:
57: when others then
58: if dbms_sql.is_open(l_cur) then
59: dbms_sql.close_cursor(l_cur);
60: end if;
61: if x_ignore then
62: log(x_log_mod, 'STATEMENT', 'Ignored: '||SQLERRM);

Line 59: dbms_sql.close_cursor(l_cur);

55: exception
56:
57: when others then
58: if dbms_sql.is_open(l_cur) then
59: dbms_sql.close_cursor(l_cur);
60: end if;
61: if x_ignore then
62: log(x_log_mod, 'STATEMENT', 'Ignored: '||SQLERRM);
63: else

Line 405: l_cur := dbms_sql.open_cursor;

401:
402: dbms_application_info.set_module('AD_ZD', x_phase);
403:
404: -- Open cursor
405: l_cur := dbms_sql.open_cursor;
406:
407: -- Loop over Jobs
408: for job in c_jobs(x_phase) loop
409: -- if job needs to be executed

Line 435: sys.dbms_sql.parse(l_cur, job.sql_lob, dbms_sql.native, job.edition_name, null, false);

431: continue;
432: end if;
433:
434: -- Execute Job
435: sys.dbms_sql.parse(l_cur, job.sql_lob, dbms_sql.native, job.edition_name, null, false);
436: -- Note: explicit execute required for non-DDL statements
437: -- TODO: gross
438: l_sql_substr := upper(dbms_lob.substr(job.sql_lob, 10, 1));
439: if (l_sql_substr is not null and not

Line 445: l_ret := sys.dbms_sql.execute(l_cur);

441: instr(l_sql_substr, 'DROP ') > 0 OR
442: instr(l_sql_substr, 'ALTER ') > 0 OR
443: instr(l_sql_substr, 'TRUNCATE ') > 0 OR
444: instr(l_sql_substr, 'RENAME ') > 0 )) then
445: l_ret := sys.dbms_sql.execute(l_cur);
446: end if;
447:
448: -- record success
449: update ad_zd_ddl_handler

Line 500: if dbms_sql.is_open(l_cur) then

496: end if; /* Job needs to be executed */
497: end loop; /* Job Loop */
498:
499: commit;
500: if dbms_sql.is_open(l_cur) then
501: dbms_sql.close_cursor(l_cur);
502: end if;
503: log(c_module, 'PROCEDURE', l_worker_hdr||'end' );
504:

Line 501: dbms_sql.close_cursor(l_cur);

497: end loop; /* Job Loop */
498:
499: commit;
500: if dbms_sql.is_open(l_cur) then
501: dbms_sql.close_cursor(l_cur);
502: end if;
503: log(c_module, 'PROCEDURE', l_worker_hdr||'end' );
504:
505: exception

Line 507: if dbms_sql.is_open(l_cur) then

503: log(c_module, 'PROCEDURE', l_worker_hdr||'end' );
504:
505: exception
506: when others then
507: if dbms_sql.is_open(l_cur) then
508: dbms_sql.close_cursor(l_cur);
509: end if;
510: raise;
511: end EXECUTE;

Line 508: dbms_sql.close_cursor(l_cur);

504:
505: exception
506: when others then
507: if dbms_sql.is_open(l_cur) then
508: dbms_sql.close_cursor(l_cur);
509: end if;
510: raise;
511: end EXECUTE;
512: