DBA Data[Home] [Help]

APPS.MSC_ATP_PUB dependencies on DBMS_SQL

Line 130: C := DBMS_SQL.OPEN_CURSOR;

126: BEGIN
127: IF PG_DEBUG in ('Y', 'C') THEN
128: msc_sch_wb.atp_debug('enable_trace: ' || 'Database Trace being enabled');
129: END IF;
130: C := DBMS_SQL.OPEN_CURSOR;
131: -- STATEMENT := 'ALTER SESSION SET SQL_TRACE=TRUE';
132: STATEMENT := 'ALTER SESSION SET events ' || '''' || '10046 trace name context forever, level 12' || '''' ;
133: DBMS_SQL.PARSE(C, STATEMENT, DBMS_SQL.NATIVE);
134: ROWS_PROCESSED := DBMS_SQL.EXECUTE(C);

Line 133: DBMS_SQL.PARSE(C, STATEMENT, DBMS_SQL.NATIVE);

129: END IF;
130: C := DBMS_SQL.OPEN_CURSOR;
131: -- STATEMENT := 'ALTER SESSION SET SQL_TRACE=TRUE';
132: STATEMENT := 'ALTER SESSION SET events ' || '''' || '10046 trace name context forever, level 12' || '''' ;
133: DBMS_SQL.PARSE(C, STATEMENT, DBMS_SQL.NATIVE);
134: ROWS_PROCESSED := DBMS_SQL.EXECUTE(C);
135: DBMS_SQL.CLOSE_CURSOR(C);
136: EXCEPTION
137: WHEN others THEN

Line 134: ROWS_PROCESSED := DBMS_SQL.EXECUTE(C);

130: C := DBMS_SQL.OPEN_CURSOR;
131: -- STATEMENT := 'ALTER SESSION SET SQL_TRACE=TRUE';
132: STATEMENT := 'ALTER SESSION SET events ' || '''' || '10046 trace name context forever, level 12' || '''' ;
133: DBMS_SQL.PARSE(C, STATEMENT, DBMS_SQL.NATIVE);
134: ROWS_PROCESSED := DBMS_SQL.EXECUTE(C);
135: DBMS_SQL.CLOSE_CURSOR(C);
136: EXCEPTION
137: WHEN others THEN
138: x_return_status :=-1;

Line 135: DBMS_SQL.CLOSE_CURSOR(C);

131: -- STATEMENT := 'ALTER SESSION SET SQL_TRACE=TRUE';
132: STATEMENT := 'ALTER SESSION SET events ' || '''' || '10046 trace name context forever, level 12' || '''' ;
133: DBMS_SQL.PARSE(C, STATEMENT, DBMS_SQL.NATIVE);
134: ROWS_PROCESSED := DBMS_SQL.EXECUTE(C);
135: DBMS_SQL.CLOSE_CURSOR(C);
136: EXCEPTION
137: WHEN others THEN
138: x_return_status :=-1;
139: IF PG_DEBUG in ('Y', 'C') THEN

Line 158: C := DBMS_SQL.OPEN_CURSOR;

154: BEGIN
155: IF PG_DEBUG in ('Y', 'C') THEN
156: msc_sch_wb.atp_debug('disable_trace: ' || 'Database Trace disabled');
157: END IF;
158: C := DBMS_SQL.OPEN_CURSOR;
159: STATEMENT := 'ALTER SESSION SET SQL_TRACE=FALSE';
160: DBMS_SQL.PARSE(C, STATEMENT, DBMS_SQL.NATIVE);
161: ROWS_PROCESSED := DBMS_SQL.EXECUTE(C);
162: DBMS_SQL.CLOSE_CURSOR(C);

Line 160: DBMS_SQL.PARSE(C, STATEMENT, DBMS_SQL.NATIVE);

156: msc_sch_wb.atp_debug('disable_trace: ' || 'Database Trace disabled');
157: END IF;
158: C := DBMS_SQL.OPEN_CURSOR;
159: STATEMENT := 'ALTER SESSION SET SQL_TRACE=FALSE';
160: DBMS_SQL.PARSE(C, STATEMENT, DBMS_SQL.NATIVE);
161: ROWS_PROCESSED := DBMS_SQL.EXECUTE(C);
162: DBMS_SQL.CLOSE_CURSOR(C);
163: EXCEPTION
164: WHEN others THEN

Line 161: ROWS_PROCESSED := DBMS_SQL.EXECUTE(C);

157: END IF;
158: C := DBMS_SQL.OPEN_CURSOR;
159: STATEMENT := 'ALTER SESSION SET SQL_TRACE=FALSE';
160: DBMS_SQL.PARSE(C, STATEMENT, DBMS_SQL.NATIVE);
161: ROWS_PROCESSED := DBMS_SQL.EXECUTE(C);
162: DBMS_SQL.CLOSE_CURSOR(C);
163: EXCEPTION
164: WHEN others THEN
165: x_return_status :=-1;

Line 162: DBMS_SQL.CLOSE_CURSOR(C);

158: C := DBMS_SQL.OPEN_CURSOR;
159: STATEMENT := 'ALTER SESSION SET SQL_TRACE=FALSE';
160: DBMS_SQL.PARSE(C, STATEMENT, DBMS_SQL.NATIVE);
161: ROWS_PROCESSED := DBMS_SQL.EXECUTE(C);
162: DBMS_SQL.CLOSE_CURSOR(C);
163: EXCEPTION
164: WHEN others THEN
165: x_return_status :=-1;
166: IF PG_DEBUG in ('Y', 'C') THEN

Line 381: cursor_name := dbms_sql.open_cursor;

377: IF l_a2m_dblink IS NOT NULL THEN --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
378: IF PG_DEBUG in ('Y', 'C') THEN
379: msc_sch_wb.atp_debug('Call_ATP_Commit: ' || 'after commit, before closing DB Link');
380: END IF;
381: cursor_name := dbms_sql.open_cursor;
382: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink, --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
383: dbms_sql.native);
384:
385: -- Added this block to handle the exception in case DB LInk wasn't open.

Line 382: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink, --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink

378: IF PG_DEBUG in ('Y', 'C') THEN
379: msc_sch_wb.atp_debug('Call_ATP_Commit: ' || 'after commit, before closing DB Link');
380: END IF;
381: cursor_name := dbms_sql.open_cursor;
382: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink, --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
383: dbms_sql.native);
384:
385: -- Added this block to handle the exception in case DB LInk wasn't open.
386: -- If not handled, this causes ORA-02081.

Line 383: dbms_sql.native);

379: msc_sch_wb.atp_debug('Call_ATP_Commit: ' || 'after commit, before closing DB Link');
380: END IF;
381: cursor_name := dbms_sql.open_cursor;
382: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink, --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
383: dbms_sql.native);
384:
385: -- Added this block to handle the exception in case DB LInk wasn't open.
386: -- If not handled, this causes ORA-02081.
387: BEGIN

Line 388: rows_processed := dbms_sql.execute(cursor_name);

384:
385: -- Added this block to handle the exception in case DB LInk wasn't open.
386: -- If not handled, this causes ORA-02081.
387: BEGIN
388: rows_processed := dbms_sql.execute(cursor_name);
389: EXCEPTION
390: WHEN DBLINK_NOT_OPEN THEN
391: IF PG_DEBUG in ('Y', 'C') THEN
392: msc_sch_wb.atp_debug('Call_ATP_Commit: ' || 'inside DBLINK_NOT_OPEN');

Line 396: DBMS_SQL.close_cursor(cursor_name);

392: msc_sch_wb.atp_debug('Call_ATP_Commit: ' || 'inside DBLINK_NOT_OPEN');
393: END IF;
394: END;
395:
396: DBMS_SQL.close_cursor(cursor_name);
397: IF PG_DEBUG in ('Y', 'C') THEN
398: msc_sch_wb.atp_debug('Call_ATP_Commit: ' || 'after commit, after closing DB Link');
399: END IF;
400: END IF;

Line 438: cursor_name := dbms_sql.open_cursor;

434: -- finished by commit or rollback.
435: --l_db_profile := FND_PROFILE.value('MRP_ATP_DATABASE_LINK');
436: IF l_a2m_dblink IS NOT NULL THEN --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
437:
438: cursor_name := dbms_sql.open_cursor;
439: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink, --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
440: dbms_sql.native);
441:
442: -- Added this block to handle the exception in case DB LInk wasn't open.

Line 439: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink, --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink

435: --l_db_profile := FND_PROFILE.value('MRP_ATP_DATABASE_LINK');
436: IF l_a2m_dblink IS NOT NULL THEN --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
437:
438: cursor_name := dbms_sql.open_cursor;
439: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink, --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
440: dbms_sql.native);
441:
442: -- Added this block to handle the exception in case DB LInk wasn't open.
443: -- If not handled, this causes ORA-02081.

Line 440: dbms_sql.native);

436: IF l_a2m_dblink IS NOT NULL THEN --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
437:
438: cursor_name := dbms_sql.open_cursor;
439: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink, --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
440: dbms_sql.native);
441:
442: -- Added this block to handle the exception in case DB LInk wasn't open.
443: -- If not handled, this causes ORA-02081.
444: BEGIN

Line 445: rows_processed := dbms_sql.execute(cursor_name);

441:
442: -- Added this block to handle the exception in case DB LInk wasn't open.
443: -- If not handled, this causes ORA-02081.
444: BEGIN
445: rows_processed := dbms_sql.execute(cursor_name);
446: EXCEPTION
447: WHEN DBLINK_NOT_OPEN THEN
448: IF PG_DEBUG in ('Y', 'C') THEN
449: msc_sch_wb.atp_debug('Call_ATP_Commit: ' || 'inside DBLINK_NOT_OPEN exception');

Line 453: DBMS_SQL.close_cursor(cursor_name);

449: msc_sch_wb.atp_debug('Call_ATP_Commit: ' || 'inside DBLINK_NOT_OPEN exception');
450: END IF;
451: END;
452:
453: DBMS_SQL.close_cursor(cursor_name);
454: IF PG_DEBUG in ('Y', 'C') THEN
455: msc_sch_wb.atp_debug('Call_ATP_Commit: ' || 'after rollback, after closing DB Link');
456: END IF;
457: END IF;

Line 691: cursor_name := dbms_sql.open_cursor;

687: IF l_a2m_dblink IS NOT NULL THEN
688: IF PG_DEBUG in ('Y', 'C') THEN
689: msc_sch_wb.atp_debug(' before closing DB Link');
690: END IF;
691: cursor_name := dbms_sql.open_cursor;
692: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink,
693: dbms_sql.native);
694: -- Added this block to handle the exception in case DB LInk wasn't open.
695: -- If not handled, this causes ORA-02081.

Line 692: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink,

688: IF PG_DEBUG in ('Y', 'C') THEN
689: msc_sch_wb.atp_debug(' before closing DB Link');
690: END IF;
691: cursor_name := dbms_sql.open_cursor;
692: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink,
693: dbms_sql.native);
694: -- Added this block to handle the exception in case DB LInk wasn't open.
695: -- If not handled, this causes ORA-02081.
696: BEGIN

Line 693: dbms_sql.native);

689: msc_sch_wb.atp_debug(' before closing DB Link');
690: END IF;
691: cursor_name := dbms_sql.open_cursor;
692: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink,
693: dbms_sql.native);
694: -- Added this block to handle the exception in case DB LInk wasn't open.
695: -- If not handled, this causes ORA-02081.
696: BEGIN
697: rows_processed := dbms_sql.execute(cursor_name);

Line 697: rows_processed := dbms_sql.execute(cursor_name);

693: dbms_sql.native);
694: -- Added this block to handle the exception in case DB LInk wasn't open.
695: -- If not handled, this causes ORA-02081.
696: BEGIN
697: rows_processed := dbms_sql.execute(cursor_name);
698: EXCEPTION
699: WHEN DBLINK_NOT_OPEN THEN
700: IF PG_DEBUG in ('Y', 'C') THEN
701: msc_sch_wb.atp_debug('inside DBLINK_NOT_OPEN');

Line 704: DBMS_SQL.close_cursor(cursor_name);

700: IF PG_DEBUG in ('Y', 'C') THEN
701: msc_sch_wb.atp_debug('inside DBLINK_NOT_OPEN');
702: END IF;
703: END;
704: DBMS_SQL.close_cursor(cursor_name);
705: IF PG_DEBUG in ('Y', 'C') THEN
706: msc_sch_wb.atp_debug('after commit, after closing DB Link');
707: END IF;
708: END IF;

Line 849: cursor_name := dbms_sql.open_cursor;

845: IF PG_DEBUG in ('Y', 'C') THEN
846: msc_sch_wb.atp_debug('after rollback, before closing DB Link');
847: END IF;
848: IF l_a2m_dblink IS NOT NULL THEN
849: cursor_name := dbms_sql.open_cursor;
850: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink,
851: dbms_sql.native);
852: BEGIN
853: rows_processed := dbms_sql.execute(cursor_name);

Line 850: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink,

846: msc_sch_wb.atp_debug('after rollback, before closing DB Link');
847: END IF;
848: IF l_a2m_dblink IS NOT NULL THEN
849: cursor_name := dbms_sql.open_cursor;
850: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink,
851: dbms_sql.native);
852: BEGIN
853: rows_processed := dbms_sql.execute(cursor_name);
854: EXCEPTION

Line 851: dbms_sql.native);

847: END IF;
848: IF l_a2m_dblink IS NOT NULL THEN
849: cursor_name := dbms_sql.open_cursor;
850: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink,
851: dbms_sql.native);
852: BEGIN
853: rows_processed := dbms_sql.execute(cursor_name);
854: EXCEPTION
855: WHEN DBLINK_NOT_OPEN THEN

Line 853: rows_processed := dbms_sql.execute(cursor_name);

849: cursor_name := dbms_sql.open_cursor;
850: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink,
851: dbms_sql.native);
852: BEGIN
853: rows_processed := dbms_sql.execute(cursor_name);
854: EXCEPTION
855: WHEN DBLINK_NOT_OPEN THEN
856: IF PG_DEBUG in ('Y', 'C') THEN
857: msc_sch_wb.atp_debug('inside DBLINK_NOT_OPEN exception');

Line 860: DBMS_SQL.close_cursor(cursor_name);

856: IF PG_DEBUG in ('Y', 'C') THEN
857: msc_sch_wb.atp_debug('inside DBLINK_NOT_OPEN exception');
858: END IF;
859: END;
860: DBMS_SQL.close_cursor(cursor_name);
861: IF PG_DEBUG in ('Y', 'C') THEN
862: msc_sch_wb.atp_debug('after rollback, after closing DB Link');
863: END IF;
864: END IF;