[Home] [Help]
26: -- List of source obj of evolved-types
27: g_evolved_types_src_list evolved_type_src_tab;
28: g_evolved_type_index number;
29:
30: g_obj_list_to_recompile sys.dbms_objects_utils_tnamearr := sys.dbms_objects_utils_tnamearr();
31:
32: -- ************************************************************************
33: --
34: -- Private: Utility or Validation APIs
242: begin
243: log(l_module, 'PROCEDURE', 'begin');
244: --
245: -- Bug 12747238 : If hash-code conforming to 10g db
246: -- then sys.dbms_objects_utils.update_types will not work.
247: -- Solution is: recompile all such UDTs then it will have 11g db compatible hash-code.
248: --
249: if(g_obj_list_to_recompile is not null and
250: g_obj_list_to_recompile.count > 0 ) then
248: --
249: if(g_obj_list_to_recompile is not null and
250: g_obj_list_to_recompile.count > 0 ) then
251: log(l_module, 'STATEMENT', 'Recompiling Types');
252: sys.dbms_objects_utils.recompile_types(names=> g_obj_list_to_recompile);
253: end if;
254: log(l_module, 'PROCEDURE', 'end');
255: end recompile_types;
256:
259: -- This procedure populates g_obj_list_to_recompile
260: --
261: procedure put_obj_to_recompile(x_owner varchar2, x_type_name varchar2 )
262: is
263: l_type_names sys.dbms_objects_utils_tname;
264: begin
265:
266: l_type_names := sys.dbms_objects_utils_tname(x_owner, x_type_name);
267: g_obj_list_to_recompile.extend;
262: is
263: l_type_names sys.dbms_objects_utils_tname;
264: begin
265:
266: l_type_names := sys.dbms_objects_utils_tname(x_owner, x_type_name);
267: g_obj_list_to_recompile.extend;
268: g_obj_list_to_recompile(g_obj_list_to_recompile.last):= l_type_names;
269:
270: end put_obj_to_recompile;
580: end loop;
581:
582: log(l_module, 'EVENT', 'Update TYPE reference from '||x_source_schema||' to '||x_target_schema);
583: -- Without any specific TYPE
584: sys.dbms_objects_utils.update_types
585: ( schema1 => x_source_schema,
586: schema2 => x_target_schema,
587: typename => null,
588: check_update => true ) ;
587: typename => null,
588: check_update => true ) ;
589:
590: --NOTE: Not adding a CHECK here to make sure that none of the table are now dependent
591: -- on x_source_schema types, reason being: since sys.dbms_objects_utils.update_types
592: -- checkes if all TYPES from source schema are created in target scheam but if source
593: -- schema is SYSTEM then it does not fall true, so data-dictionary updates still would be
594: -- half-way, so let that validation be handled withih FIX_TYPE API.
595:
658: if l_found then
659: -- update column types to new owner
660: -- Note: "check_update" paremeter must be false for single type update
661: log(l_module, 'EVENT', 'Fixing table references to '||x_type_owner||'.'||x_type_name);
662: sys.dbms_objects_utils.update_types
663: ( schema1 => x_type_owner,
664: schema2 => 'APPS_NE',
665: typename => x_type_name,
666: check_update => false ) ;
996: end INSTALL_EVOLVED_TYPES;
997:
998: --
999: -- Gets the DDL of a given Evolved-Types by using
1000: -- sys.dbms_objects_utils.split_source() and replaces
1001: -- source schemas with APPS_NE.
1002: --
1003: -- TODO: If an APPS.evolved type dependent on another E-biz schema
1004: -- e.g. ECX then we need to check how dbms_objects_utils.split_source()
1000: -- sys.dbms_objects_utils.split_source() and replaces
1001: -- source schemas with APPS_NE.
1002: --
1003: -- TODO: If an APPS.evolved type dependent on another E-biz schema
1004: -- e.g. ECX then we need to check how dbms_objects_utils.split_source()
1005: -- returns and may be we have to replace them.
1006: --
1007: procedure COPY_EVOLVED_TYPE (X_OWNER varchar2,
1008: X_NAME varchar2,
1007: procedure COPY_EVOLVED_TYPE (X_OWNER varchar2,
1008: X_NAME varchar2,
1009: X_NEW_OWNER varchar2 )
1010: as
1011: e_source sys.dbms_objects_utils_tsource;
1012: l_source varchar2(4000);
1013: l_objid number;
1014: sql_count number; /* number of DDLs returned in e_source for an EVOLVED type */
1015: l_index number;
1016: l_module varchar2(80) := c_package || 'copy_evolved_type';
1017: begin
1018:
1019: log(l_module, 'PROCEDURE', 'begin: '||x_owner||'.'||x_name || ', '|| x_new_owner);
1020: sql_count := sys.dbms_objects_utils.split_source(x_owner, x_name, e_source);
1021:
1022: -- For each evolved type
1023: for cntr in 1..sql_count loop
1024: l_source := e_source(cntr).source;
1316: when no_data_found then
1317: l_flag := true; -- not in already updated list
1318: end;
1319: -- ST ([email protected]): Suggested to use
1320: -- sys.dbms_objects_utils.update_types('APPS', APPS_NE', NULL, TRUE) , instead of
1321: -- calling for specific TYPE
1322: --
1323: if(l_flag) then
1324: l_sql := 'begin ad_zd_prep.fix_types(' ||