[Home] [Help]
80: ,'MSC_DELIVERY_DETAILS','MSC_REGIONS','MSC_REGION_LOCATIONS','MSC_ZONE_REGIONS')) THEN
81: l_partition_name := partitioned_tables(i) || '_' || to_char(p_plan_id);
82: l_sql_stmt := 'Lock Table '||l_cur_table||' Partition ('||l_partition_name||') In Exclusive Mode Nowait';
83:
84: msc_util.msc_debug(l_sql_stmt);
85:
86: execute immediate l_sql_stmt;
87: END IF;
88: END LOOP;
90: RETURN FND_API.G_RET_STS_SUCCESS;
91:
92: EXCEPTION
93: WHEN NON_EXISTING_PARTITION THEN
94: msc_util.msc_debug('Partition '||l_partition_name||'does not exist.');
95: RETURN FND_API.G_RET_STS_ERROR;
96: WHEN OTHERS THEN
97: l_sql_stmt := to_char(sqlcode) ||':'|| substr(sqlerrm,1,90);
98: msc_util.msc_debug(l_sql_stmt);
94: msc_util.msc_debug('Partition '||l_partition_name||'does not exist.');
95: RETURN FND_API.G_RET_STS_ERROR;
96: WHEN OTHERS THEN
97: l_sql_stmt := to_char(sqlcode) ||':'|| substr(sqlerrm,1,90);
98: msc_util.msc_debug(l_sql_stmt);
99: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
100: END check_partition_pvt;
101:
102: --
391: part_created := 1;
392:
393: FOR i in 1..g_inst_partition_count LOOP
394:
395: --msc_util.log_msg(MSC_UTIL.G_D_STATUS,'db0-'||partitioned_tables(i));
396: cur_table := 'MSC_'|| partitioned_tables(i) ;
397: l_dummy_partition_name := partitioned_tables(i) || '_0';
398: l_partition_name := partitioned_tables(i) || '__' || to_char(p_instance_id);
399:
415: || ' PARTITION '||l_dummy_partition_name||')';
416: END IF;
417:
418: -- execute immediate sql_stmt;
419: -- msc_util.log_msg(MSC_UTIL.G_D_STATUS,'db1-'||sql_stmt);
420:
421: ad_ddl.do_ddl(l_applsys_schema,'MSC',
422: ad_ddl.alter_table,sql_stmt,cur_table);
423: -- msc_util.log_msg(MSC_UTIL.G_D_STATUS,'db1-competed');
419: -- msc_util.log_msg(MSC_UTIL.G_D_STATUS,'db1-'||sql_stmt);
420:
421: ad_ddl.do_ddl(l_applsys_schema,'MSC',
422: ad_ddl.alter_table,sql_stmt,cur_table);
423: -- msc_util.log_msg(MSC_UTIL.G_D_STATUS,'db1-competed');
424: part_created := part_created +1;
425:
426: END LOOP;
427: --dbms_output.put_line('****returning success****'||x_msg_data);
832: FROM MSC_INST_PARTITIONS
833: WHERE instance_id = P_instance_id;
834:
835: BEGIN
836: msc_util.msc_debug('P_table_name = '||P_table_name );
837: for i in 1..g_partition_count LOOP
838:
839: cur_table_name := 'MSC_' || partitioned_tables(i);
840: if (cur_table_name = P_table_name) then
1376: AND owner = lv_msc_schema;
1377: */
1378:
1379: BEGIN
1380: msc_util.msc_debug('starting atp snapshot refresh');
1381: retcode := G_SUCCESS;
1382:
1383: OPEN msc_schema;
1384: FETCH msc_schema INTO lv_msc_schema;
1401: --
1402: -- refresh the snapshot if it exists
1403: --
1404: if v_snap_exist =1 then
1405: MSC_UTIL.msc_debug('---- complete refresh of snapshot----');
1406: DBMS_SNAPSHOT.REFRESH( lv_msc_schema||'.MSC_ATP_PLAN_SN', 'C');
1407: end if;
1408:
1409: */
1418: -- do not analyze partitions if the db is not partitioned
1419: --
1420: if (is_partitioned = 'YES' AND x_plan_id <> 0) then
1421:
1422: msc_util.msc_debug('analyzing plan '||to_char(x_plan_id));
1423:
1424: FOR i in 1..g_partition_count LOOP
1425:
1426:
1440: -- CTO ODR Simplified Pegging MSC_ATP_PEGGING not analyzed here
1441: 'MSC_EXC_DETAILS_ALL', 'MSC_ATP_PEGGING'
1442: ,'MSC_DELIVERY_DETAILS','MSC_REGIONS','MSC_REGION_LOCATIONS','MSC_ZONE_REGIONS')) then
1443:
1444: msc_util.msc_debug('analyzing partition '||l_partition_name);
1445: IF v_analyze_plan_scope = 2 THEN
1446: fnd_stats.gather_table_stats(ownname=>'MSC',tabname=>cur_table,
1447: partname=>l_partition_name,
1448: granularity=>'PARTITION',
1473: null,
1474: false,
1475: x_plan_id);
1476: commit;
1477: msc_util.msc_debug('launch UI Post Plan Program, request_id ='||p_out);
1478: end;
1479:
1480: end if;
1481: */