26: l_statement VARCHAR2(200);
27: l_session_id NUMBER;
28: BEGIN
29:
30: cursor_name := dbms_sql.open_cursor;
31: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||p_dblink, dbms_sql.native);
32:
33: cursor_c1 := dbms_sql.open_cursor;
34: DBMS_SQL.PARSE(cursor_c1, 'Select MRP_ATP_SCHEDULE_TEMP_S.NextVal@' || p_dblink ||' From Dual', dbms_sql.native);
27: l_session_id NUMBER;
28: BEGIN
29:
30: cursor_name := dbms_sql.open_cursor;
31: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||p_dblink, dbms_sql.native);
32:
33: cursor_c1 := dbms_sql.open_cursor;
34: DBMS_SQL.PARSE(cursor_c1, 'Select MRP_ATP_SCHEDULE_TEMP_S.NextVal@' || p_dblink ||' From Dual', dbms_sql.native);
35:
29:
30: cursor_name := dbms_sql.open_cursor;
31: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||p_dblink, dbms_sql.native);
32:
33: cursor_c1 := dbms_sql.open_cursor;
34: DBMS_SQL.PARSE(cursor_c1, 'Select MRP_ATP_SCHEDULE_TEMP_S.NextVal@' || p_dblink ||' From Dual', dbms_sql.native);
35:
36: BEGIN
37: dbms_sql.define_column( cursor_c1, 1, l_session_id );
30: cursor_name := dbms_sql.open_cursor;
31: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||p_dblink, dbms_sql.native);
32:
33: cursor_c1 := dbms_sql.open_cursor;
34: DBMS_SQL.PARSE(cursor_c1, 'Select MRP_ATP_SCHEDULE_TEMP_S.NextVal@' || p_dblink ||' From Dual', dbms_sql.native);
35:
36: BEGIN
37: dbms_sql.define_column( cursor_c1, 1, l_session_id );
38: rows_1 := dbms_sql.execute(cursor_c1);
33: cursor_c1 := dbms_sql.open_cursor;
34: DBMS_SQL.PARSE(cursor_c1, 'Select MRP_ATP_SCHEDULE_TEMP_S.NextVal@' || p_dblink ||' From Dual', dbms_sql.native);
35:
36: BEGIN
37: dbms_sql.define_column( cursor_c1, 1, l_session_id );
38: rows_1 := dbms_sql.execute(cursor_c1);
39: if dbms_sql.fetch_rows( cursor_c1 ) > 0 then
40: dbms_sql.column_value( cursor_c1, 1, l_session_id );
41:
34: DBMS_SQL.PARSE(cursor_c1, 'Select MRP_ATP_SCHEDULE_TEMP_S.NextVal@' || p_dblink ||' From Dual', dbms_sql.native);
35:
36: BEGIN
37: dbms_sql.define_column( cursor_c1, 1, l_session_id );
38: rows_1 := dbms_sql.execute(cursor_c1);
39: if dbms_sql.fetch_rows( cursor_c1 ) > 0 then
40: dbms_sql.column_value( cursor_c1, 1, l_session_id );
41:
42: end if;
35:
36: BEGIN
37: dbms_sql.define_column( cursor_c1, 1, l_session_id );
38: rows_1 := dbms_sql.execute(cursor_c1);
39: if dbms_sql.fetch_rows( cursor_c1 ) > 0 then
40: dbms_sql.column_value( cursor_c1, 1, l_session_id );
41:
42: end if;
43: p_session_id := l_session_id;
36: BEGIN
37: dbms_sql.define_column( cursor_c1, 1, l_session_id );
38: rows_1 := dbms_sql.execute(cursor_c1);
39: if dbms_sql.fetch_rows( cursor_c1 ) > 0 then
40: dbms_sql.column_value( cursor_c1, 1, l_session_id );
41:
42: end if;
43: p_session_id := l_session_id;
44: END;
43: p_session_id := l_session_id;
44: END;
45:
46:
47: DBMS_SQL.close_cursor(cursor_c1);
48: commit;
49:
50: BEGIN
51: rows_2 := dbms_sql.execute(cursor_name);
47: DBMS_SQL.close_cursor(cursor_c1);
48: commit;
49:
50: BEGIN
51: rows_2 := dbms_sql.execute(cursor_name);
52: EXCEPTION
53: WHEN OTHERS THEN
54: null;
55: END;
53: WHEN OTHERS THEN
54: null;
55: END;
56:
57: DBMS_SQL.close_cursor(cursor_name);
58:
59:
60: END Call_ATP_Commit;
61: