[Home] [Help]
111: ,'MSC_DELIVERY_DETAILS','MSC_REGIONS','MSC_REGION_LOCATIONS','MSC_ZONE_REGIONS')) THEN
112: l_partition_name := partitioned_tables(i) || '_' || to_char(p_plan_id);
113: l_sql_stmt := 'Lock Table '||l_cur_table||' Partition ('||l_partition_name||') In Exclusive Mode Nowait';
114:
115: msc_util.msc_debug(l_sql_stmt);
116:
117: execute immediate l_sql_stmt;
118: END IF;
119: END LOOP;
121: RETURN FND_API.G_RET_STS_SUCCESS;
122:
123: EXCEPTION
124: WHEN NON_EXISTING_PARTITION THEN
125: msc_util.msc_debug('Partition '||l_partition_name||'does not exist.');
126: RETURN FND_API.G_RET_STS_ERROR;
127: WHEN OTHERS THEN
128: l_sql_stmt := to_char(sqlcode) ||':'|| substr(sqlerrm,1,90);
129: msc_util.msc_debug(l_sql_stmt);
125: msc_util.msc_debug('Partition '||l_partition_name||'does not exist.');
126: RETURN FND_API.G_RET_STS_ERROR;
127: WHEN OTHERS THEN
128: l_sql_stmt := to_char(sqlcode) ||':'|| substr(sqlerrm,1,90);
129: msc_util.msc_debug(l_sql_stmt);
130: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
131: END check_partition_pvt;
132:
133: --
436: part_created := 1;
437:
438: FOR i in 1..g_inst_partition_count LOOP
439:
440: --msc_util.log_msg(MSC_UTIL.G_D_STATUS,'db0-'||partitioned_tables(i));
441: cur_table := 'MSC_'|| partitioned_tables(i) ;
442: l_dummy_partition_name := partitioned_tables(i) || '_0';
443: l_partition_name := partitioned_tables(i) || '__' || to_char(p_instance_id);
444:
464: || ' PARTITION '||l_dummy_partition_name||')';
465: END IF;
466:
467: -- execute immediate sql_stmt;
468: -- msc_util.log_msg(MSC_UTIL.G_D_STATUS,'db1-'||sql_stmt);
469:
470: ad_ddl.do_ddl(l_applsys_schema,'MSC',
471: ad_ddl.alter_table,sql_stmt,cur_table);
472: -- msc_util.log_msg(MSC_UTIL.G_D_STATUS,'db1-competed');
468: -- msc_util.log_msg(MSC_UTIL.G_D_STATUS,'db1-'||sql_stmt);
469:
470: ad_ddl.do_ddl(l_applsys_schema,'MSC',
471: ad_ddl.alter_table,sql_stmt,cur_table);
472: -- msc_util.log_msg(MSC_UTIL.G_D_STATUS,'db1-competed');
473: part_created := part_created +1;
474:
475: END LOOP;
476: --dbms_output.put_line('****returning success****'||x_msg_data);
881: FROM MSC_INST_PARTITIONS
882: WHERE instance_id = P_instance_id;
883:
884: BEGIN
885: msc_util.msc_debug('P_table_name = '||P_table_name );
886: for i in 1..g_partition_count LOOP
887:
888: cur_table_name := 'MSC_' || partitioned_tables(i);
889: if (cur_table_name = P_table_name) then
1426: AND owner = lv_msc_schema;
1427: */
1428:
1429: BEGIN
1430: msc_util.msc_debug('starting atp snapshot refresh');
1431: retcode := G_SUCCESS;
1432:
1433: OPEN msc_schema;
1434: FETCH msc_schema INTO lv_msc_schema;
1451: --
1452: -- refresh the snapshot if it exists
1453: --
1454: if v_snap_exist =1 then
1455: MSC_UTIL.msc_debug('---- complete refresh of snapshot----');
1456: DBMS_SNAPSHOT.REFRESH( lv_msc_schema||'.MSC_ATP_PLAN_SN', 'C');
1457: end if;
1458:
1459: */
1468: -- do not analyze partitions if the db is not partitioned
1469: --
1470: if (is_partitioned = 'YES' AND x_plan_id <> 0) then
1471:
1472: msc_util.msc_debug('analyzing plan '||to_char(x_plan_id));
1473:
1474: FOR i in 1..g_partition_count LOOP
1475:
1476:
1494: -- CTO ODR Simplified Pegging MSC_ATP_PEGGING not analyzed here
1495: 'MSC_EXC_DETAILS_ALL', 'MSC_ATP_PEGGING'
1496: ,'MSC_DELIVERY_DETAILS','MSC_REGIONS','MSC_REGION_LOCATIONS','MSC_ZONE_REGIONS')) then
1497:
1498: msc_util.msc_debug('analyzing partition '||l_partition_name);
1499: IF v_analyze_plan_scope = 2 THEN
1500: fnd_stats.gather_table_stats(ownname=>'MSC',tabname=>cur_table,
1501: partname=>l_partition_name,
1502: granularity=>'PARTITION',
1527: null,
1528: false,
1529: x_plan_id);
1530: commit;
1531: msc_util.msc_debug('launch UI Post Plan Program, request_id ='||p_out);
1532: end;
1533:
1534: end if;
1535: */