86: l_evname := p_obj_name;
87: return l_evname;
88: end if;
89:
90: CUR := DBMS_SQL.OPEN_CURSOR;
91: SELECT oracle_username
92: INTO l_apps_schema
93: FROM fnd_oracle_userid
94: WHERE read_only_flag='U';
93: FROM fnd_oracle_userid
94: WHERE read_only_flag='U';
95:
96: stmt := 'select ' ||l_apps_schema||'.AD_ZD_TABLE.EV_VIEW('''||p_obj_name||''') from DUAL';
97: DBMS_SQL.PARSE(CUR, STMT, DBMS_SQL.native);
98: DBMS_SQL.DEFINE_COLUMN (CUR, 1, l_evname, 30);
99: IGN := DBMS_SQL.execute(CUR);
100: LOOP
101: if DBMS_SQL.FETCH_ROWS(CUR)>0 then
94: WHERE read_only_flag='U';
95:
96: stmt := 'select ' ||l_apps_schema||'.AD_ZD_TABLE.EV_VIEW('''||p_obj_name||''') from DUAL';
97: DBMS_SQL.PARSE(CUR, STMT, DBMS_SQL.native);
98: DBMS_SQL.DEFINE_COLUMN (CUR, 1, l_evname, 30);
99: IGN := DBMS_SQL.execute(CUR);
100: LOOP
101: if DBMS_SQL.FETCH_ROWS(CUR)>0 then
102: DBMS_SQL.column_value(CUR, 1, l_evname);
95:
96: stmt := 'select ' ||l_apps_schema||'.AD_ZD_TABLE.EV_VIEW('''||p_obj_name||''') from DUAL';
97: DBMS_SQL.PARSE(CUR, STMT, DBMS_SQL.native);
98: DBMS_SQL.DEFINE_COLUMN (CUR, 1, l_evname, 30);
99: IGN := DBMS_SQL.execute(CUR);
100: LOOP
101: if DBMS_SQL.FETCH_ROWS(CUR)>0 then
102: DBMS_SQL.column_value(CUR, 1, l_evname);
103: else
97: DBMS_SQL.PARSE(CUR, STMT, DBMS_SQL.native);
98: DBMS_SQL.DEFINE_COLUMN (CUR, 1, l_evname, 30);
99: IGN := DBMS_SQL.execute(CUR);
100: LOOP
101: if DBMS_SQL.FETCH_ROWS(CUR)>0 then
102: DBMS_SQL.column_value(CUR, 1, l_evname);
103: else
104: exit;
105: end if;
98: DBMS_SQL.DEFINE_COLUMN (CUR, 1, l_evname, 30);
99: IGN := DBMS_SQL.execute(CUR);
100: LOOP
101: if DBMS_SQL.FETCH_ROWS(CUR)>0 then
102: DBMS_SQL.column_value(CUR, 1, l_evname);
103: else
104: exit;
105: end if;
106: end LOOP;
103: else
104: exit;
105: end if;
106: end LOOP;
107: DBMS_SQL.CLOSE_CURSOR(CUR);
108:
109: if (p_obj_owner is not null)
110: then
111: SELECT count(1)
292:
293: statement:=
294: 'begin '||schema_name||'.apps_array_ddl.glprogtext(:i) := :ddl_text; end;';
295:
296: l_cur := dbms_sql.open_cursor;
297: dbms_sql.parse (c => l_cur, language_flag => dbms_sql.native,
298: statement => statement, edition => l_patch_edition);
299:
300: dbms_sql.bind_variable(l_cur,'i',rowcount);
293: statement:=
294: 'begin '||schema_name||'.apps_array_ddl.glprogtext(:i) := :ddl_text; end;';
295:
296: l_cur := dbms_sql.open_cursor;
297: dbms_sql.parse (c => l_cur, language_flag => dbms_sql.native,
298: statement => statement, edition => l_patch_edition);
299:
300: dbms_sql.bind_variable(l_cur,'i',rowcount);
301: dbms_sql.bind_variable(l_cur,'ddl_text',ddl_text);
296: l_cur := dbms_sql.open_cursor;
297: dbms_sql.parse (c => l_cur, language_flag => dbms_sql.native,
298: statement => statement, edition => l_patch_edition);
299:
300: dbms_sql.bind_variable(l_cur,'i',rowcount);
301: dbms_sql.bind_variable(l_cur,'ddl_text',ddl_text);
302: status := dbms_sql.execute(l_cur);
303: dbms_sql.close_cursor(l_cur);
304:
297: dbms_sql.parse (c => l_cur, language_flag => dbms_sql.native,
298: statement => statement, edition => l_patch_edition);
299:
300: dbms_sql.bind_variable(l_cur,'i',rowcount);
301: dbms_sql.bind_variable(l_cur,'ddl_text',ddl_text);
302: status := dbms_sql.execute(l_cur);
303: dbms_sql.close_cursor(l_cur);
304:
305: exception
298: statement => statement, edition => l_patch_edition);
299:
300: dbms_sql.bind_variable(l_cur,'i',rowcount);
301: dbms_sql.bind_variable(l_cur,'ddl_text',ddl_text);
302: status := dbms_sql.execute(l_cur);
303: dbms_sql.close_cursor(l_cur);
304:
305: exception
306: when others then
299:
300: dbms_sql.bind_variable(l_cur,'i',rowcount);
301: dbms_sql.bind_variable(l_cur,'ddl_text',ddl_text);
302: status := dbms_sql.execute(l_cur);
303: dbms_sql.close_cursor(l_cur);
304:
305: exception
306: when others then
307: ad_apps_private.error_buf := 'do_array_assignment_patch_edn('||schema_name||','||
669: IF ( g_Un_Cache_Tbl.COUNT <> 0 AND g_Un_Cache_Tbl.EXISTS(ign||'_aol') ) THEN
670: l_apps_schema := g_Un_Cache_Tbl(ign||'_aol') ;
671: ELSE -- if cache check
672: BEGIN --Block 1
673: c := dbms_sql.open_cursor;
674: -- select APPS account for given IGN, or if IGN is 0 then the min
675: c_statement:= 'select oracle_username from '||
676: aol_or_apps_schema||'.fnd_oracle_userid '||
677: 'where (install_group_num = :install_group_num '||
680: aol_or_apps_schema||'.fnd_oracle_userid '||
681: ' where 1 = decode (:install_group_num,0,1,2) '||
682: ' and read_only_flag = ''U'')) '||
683: 'and read_only_flag = ''U'' ';
684: dbms_sql.parse(c, c_statement, dbms_sql.native);
685: dbms_sql.bind_variable(c,'install_group_num',ign);
686: dbms_sql.define_column(c,1,l_apps_schema,30);
687: rows_processed := dbms_sql.execute(c);
688: if dbms_sql.fetch_rows(c) > 0 then
681: ' where 1 = decode (:install_group_num,0,1,2) '||
682: ' and read_only_flag = ''U'')) '||
683: 'and read_only_flag = ''U'' ';
684: dbms_sql.parse(c, c_statement, dbms_sql.native);
685: dbms_sql.bind_variable(c,'install_group_num',ign);
686: dbms_sql.define_column(c,1,l_apps_schema,30);
687: rows_processed := dbms_sql.execute(c);
688: if dbms_sql.fetch_rows(c) > 0 then
689: dbms_sql.column_value(c,1,l_apps_schema);
682: ' and read_only_flag = ''U'')) '||
683: 'and read_only_flag = ''U'' ';
684: dbms_sql.parse(c, c_statement, dbms_sql.native);
685: dbms_sql.bind_variable(c,'install_group_num',ign);
686: dbms_sql.define_column(c,1,l_apps_schema,30);
687: rows_processed := dbms_sql.execute(c);
688: if dbms_sql.fetch_rows(c) > 0 then
689: dbms_sql.column_value(c,1,l_apps_schema);
690: else
683: 'and read_only_flag = ''U'' ';
684: dbms_sql.parse(c, c_statement, dbms_sql.native);
685: dbms_sql.bind_variable(c,'install_group_num',ign);
686: dbms_sql.define_column(c,1,l_apps_schema,30);
687: rows_processed := dbms_sql.execute(c);
688: if dbms_sql.fetch_rows(c) > 0 then
689: dbms_sql.column_value(c,1,l_apps_schema);
690: else
691: raise no_data_found;
684: dbms_sql.parse(c, c_statement, dbms_sql.native);
685: dbms_sql.bind_variable(c,'install_group_num',ign);
686: dbms_sql.define_column(c,1,l_apps_schema,30);
687: rows_processed := dbms_sql.execute(c);
688: if dbms_sql.fetch_rows(c) > 0 then
689: dbms_sql.column_value(c,1,l_apps_schema);
690: else
691: raise no_data_found;
692: end if;
685: dbms_sql.bind_variable(c,'install_group_num',ign);
686: dbms_sql.define_column(c,1,l_apps_schema,30);
687: rows_processed := dbms_sql.execute(c);
688: if dbms_sql.fetch_rows(c) > 0 then
689: dbms_sql.column_value(c,1,l_apps_schema);
690: else
691: raise no_data_found;
692: end if;
693: dbms_sql.close_cursor(c);
689: dbms_sql.column_value(c,1,l_apps_schema);
690: else
691: raise no_data_found;
692: end if;
693: dbms_sql.close_cursor(c);
694: --
695: -- Cache the result to the global collection
696: g_Un_Cache_Tbl(ign||'_aol') := l_apps_schema;
697: EXCEPTION
695: -- Cache the result to the global collection
696: g_Un_Cache_Tbl(ign||'_aol') := l_apps_schema;
697: EXCEPTION
698: when others then
699: dbms_sql.close_cursor(c);
700: ad_apps_private.error_buf := 'c_statement='||c_statement||': '||
701: ad_apps_private.error_buf;
702: raise;
703: END ; -- Block 1
714: IF ( g_Un_Cache_Tbl.COUNT <> 0 AND g_Un_Cache_Tbl.EXISTS (ign||'_mls') ) THEN
715: l_mls_apps_schema := g_Un_Cache_Tbl(ign||'_mls') ;
716: ELSE -- if cache check 2
717: BEGIN --BLock 2
718: c := dbms_sql.open_cursor;
719: c_statement:= 'select oracle_username from '||
720: aol_or_apps_schema||'.fnd_oracle_userid '||
721: 'where (install_group_num = :install_group_num '||
722: ' or install_group_num = '||
724: aol_or_apps_schema||'.fnd_oracle_userid '||
725: ' where 1 = decode (:install_group_num,0,1,2) '||
726: ' and read_only_flag = ''M'')) '||
727: 'and read_only_flag = ''M'' ';
728: dbms_sql.parse(c, c_statement, dbms_sql.native);
729: dbms_sql.bind_variable(c,'install_group_num',ign);
730: dbms_sql.define_column(c,1,l_mls_apps_schema,30);
731: rows_processed := dbms_sql.execute(c);
732: if dbms_sql.fetch_rows(c) > 0 then
725: ' where 1 = decode (:install_group_num,0,1,2) '||
726: ' and read_only_flag = ''M'')) '||
727: 'and read_only_flag = ''M'' ';
728: dbms_sql.parse(c, c_statement, dbms_sql.native);
729: dbms_sql.bind_variable(c,'install_group_num',ign);
730: dbms_sql.define_column(c,1,l_mls_apps_schema,30);
731: rows_processed := dbms_sql.execute(c);
732: if dbms_sql.fetch_rows(c) > 0 then
733: dbms_sql.column_value(c,1,l_mls_apps_schema);
726: ' and read_only_flag = ''M'')) '||
727: 'and read_only_flag = ''M'' ';
728: dbms_sql.parse(c, c_statement, dbms_sql.native);
729: dbms_sql.bind_variable(c,'install_group_num',ign);
730: dbms_sql.define_column(c,1,l_mls_apps_schema,30);
731: rows_processed := dbms_sql.execute(c);
732: if dbms_sql.fetch_rows(c) > 0 then
733: dbms_sql.column_value(c,1,l_mls_apps_schema);
734: else
727: 'and read_only_flag = ''M'' ';
728: dbms_sql.parse(c, c_statement, dbms_sql.native);
729: dbms_sql.bind_variable(c,'install_group_num',ign);
730: dbms_sql.define_column(c,1,l_mls_apps_schema,30);
731: rows_processed := dbms_sql.execute(c);
732: if dbms_sql.fetch_rows(c) > 0 then
733: dbms_sql.column_value(c,1,l_mls_apps_schema);
734: else
735: raise no_data_found;
728: dbms_sql.parse(c, c_statement, dbms_sql.native);
729: dbms_sql.bind_variable(c,'install_group_num',ign);
730: dbms_sql.define_column(c,1,l_mls_apps_schema,30);
731: rows_processed := dbms_sql.execute(c);
732: if dbms_sql.fetch_rows(c) > 0 then
733: dbms_sql.column_value(c,1,l_mls_apps_schema);
734: else
735: raise no_data_found;
736: end if;
729: dbms_sql.bind_variable(c,'install_group_num',ign);
730: dbms_sql.define_column(c,1,l_mls_apps_schema,30);
731: rows_processed := dbms_sql.execute(c);
732: if dbms_sql.fetch_rows(c) > 0 then
733: dbms_sql.column_value(c,1,l_mls_apps_schema);
734: else
735: raise no_data_found;
736: end if;
737: dbms_sql.close_cursor(c);
733: dbms_sql.column_value(c,1,l_mls_apps_schema);
734: else
735: raise no_data_found;
736: end if;
737: dbms_sql.close_cursor(c);
738: g_Un_Cache_Tbl(ign||'_mls') := l_mls_apps_schema ;
739: EXCEPTION
740: when others then
741: dbms_sql.close_cursor(c);
737: dbms_sql.close_cursor(c);
738: g_Un_Cache_Tbl(ign||'_mls') := l_mls_apps_schema ;
739: EXCEPTION
740: when others then
741: dbms_sql.close_cursor(c);
742: ad_apps_private.error_buf := 'c_statement='||c_statement||': '||
743: ad_apps_private.error_buf;
744: raise;
745: END ; -- Block 2
779: begin
780: -- don't use apps_ddl here because this is called in the
781: -- procedure that creates the apps_ddl code, so apps_ddl cannot be
782: -- called before it is created
783: c := dbms_sql.open_cursor;
784: statement :='drop '||object_type||' '||target_schema||'."'||object_name||'"';
785: dbms_sql.parse(c, statement, dbms_sql.native);
786: rows_processed := dbms_sql.execute(c);
787: dbms_sql.close_cursor(c);
781: -- procedure that creates the apps_ddl code, so apps_ddl cannot be
782: -- called before it is created
783: c := dbms_sql.open_cursor;
784: statement :='drop '||object_type||' '||target_schema||'."'||object_name||'"';
785: dbms_sql.parse(c, statement, dbms_sql.native);
786: rows_processed := dbms_sql.execute(c);
787: dbms_sql.close_cursor(c);
788:
789: if (object_type='TABLE' and
782: -- called before it is created
783: c := dbms_sql.open_cursor;
784: statement :='drop '||object_type||' '||target_schema||'."'||object_name||'"';
785: dbms_sql.parse(c, statement, dbms_sql.native);
786: rows_processed := dbms_sql.execute(c);
787: dbms_sql.close_cursor(c);
788:
789: if (object_type='TABLE' and
790: is_edition_enabled = 'Y')
783: c := dbms_sql.open_cursor;
784: statement :='drop '||object_type||' '||target_schema||'."'||object_name||'"';
785: dbms_sql.parse(c, statement, dbms_sql.native);
786: rows_processed := dbms_sql.execute(c);
787: dbms_sql.close_cursor(c);
788:
789: if (object_type='TABLE' and
790: is_edition_enabled = 'Y')
791: then
798: AND owner=upper(target_schema);
799:
800: if (l_evexist > 0)
801: then
802: c := dbms_sql.open_cursor;
803: statement :='drop view '||target_schema||'."'||l_evname||'"';
804: dbms_sql.parse(c, statement, dbms_sql.native);
805: rows_processed := dbms_sql.execute(c);
806: dbms_sql.close_cursor(c);
800: if (l_evexist > 0)
801: then
802: c := dbms_sql.open_cursor;
803: statement :='drop view '||target_schema||'."'||l_evname||'"';
804: dbms_sql.parse(c, statement, dbms_sql.native);
805: rows_processed := dbms_sql.execute(c);
806: dbms_sql.close_cursor(c);
807: end if;
808: end if;
801: then
802: c := dbms_sql.open_cursor;
803: statement :='drop view '||target_schema||'."'||l_evname||'"';
804: dbms_sql.parse(c, statement, dbms_sql.native);
805: rows_processed := dbms_sql.execute(c);
806: dbms_sql.close_cursor(c);
807: end if;
808: end if;
809:
802: c := dbms_sql.open_cursor;
803: statement :='drop view '||target_schema||'."'||l_evname||'"';
804: dbms_sql.parse(c, statement, dbms_sql.native);
805: rows_processed := dbms_sql.execute(c);
806: dbms_sql.close_cursor(c);
807: end if;
808: end if;
809:
810: if (upper(object_type) = 'PROCEDURE' or
820: exception
821: -- trap ora -4043 (Object xxx does not exist)
822: when object_not_exist then
823: -- Bug 13940203
824: if (dbms_sql.is_open(c)) then
825: dbms_sql.close_cursor(c);
826: end if;
827: if upper(object_type) = 'PROCEDURE' or
828: upper(object_type) = 'PACKAGE' or
821: -- trap ora -4043 (Object xxx does not exist)
822: when object_not_exist then
823: -- Bug 13940203
824: if (dbms_sql.is_open(c)) then
825: dbms_sql.close_cursor(c);
826: end if;
827: if upper(object_type) = 'PROCEDURE' or
828: upper(object_type) = 'PACKAGE' or
829: upper(object_type) = 'PACKAGE BODY' then
836: end if;
837: -- trap ora -942 (Table or view xxx does not exist)
838: when table_view_not_exist then
839: -- Bug 13940203
840: if (dbms_sql.is_open(c)) then
841: dbms_sql.close_cursor(c);
842: end if;
843: null;
844: -- trap ora -4080 (Trigger does not exist)
837: -- trap ora -942 (Table or view xxx does not exist)
838: when table_view_not_exist then
839: -- Bug 13940203
840: if (dbms_sql.is_open(c)) then
841: dbms_sql.close_cursor(c);
842: end if;
843: null;
844: -- trap ora -4080 (Trigger does not exist)
845: when trigger_not_exist then
843: null;
844: -- trap ora -4080 (Trigger does not exist)
845: when trigger_not_exist then
846: -- Bug 13940203
847: if (dbms_sql.is_open(c)) then
848: dbms_sql.close_cursor(c);
849: end if;
850: if upper(object_type) = 'TRIGGER' then
851: null;
844: -- trap ora -4080 (Trigger does not exist)
845: when trigger_not_exist then
846: -- Bug 13940203
847: if (dbms_sql.is_open(c)) then
848: dbms_sql.close_cursor(c);
849: end if;
850: if upper(object_type) = 'TRIGGER' then
851: null;
852: else
857: end if;
858: -- trap ora -1434 (Synonym does not exist)
859: when synonym_not_exist then
860: -- Bug 13940203
861: if (dbms_sql.is_open(c)) then
862: dbms_sql.close_cursor(c);
863: end if;
864: if upper(object_type) = 'SYNONYM' then
865: null;
858: -- trap ora -1434 (Synonym does not exist)
859: when synonym_not_exist then
860: -- Bug 13940203
861: if (dbms_sql.is_open(c)) then
862: dbms_sql.close_cursor(c);
863: end if;
864: if upper(object_type) = 'SYNONYM' then
865: null;
866: else
871: end if;
872: -- trap ora -2289 (Sequence does not exist)
873: when sequence_not_exist then
874: -- Bug 13940203
875: if (dbms_sql.is_open(c)) then
876: dbms_sql.close_cursor(c);
877: end if;
878: if upper(object_type) = 'SEQUENCE' then
879: null;
872: -- trap ora -2289 (Sequence does not exist)
873: when sequence_not_exist then
874: -- Bug 13940203
875: if (dbms_sql.is_open(c)) then
876: dbms_sql.close_cursor(c);
877: end if;
878: if upper(object_type) = 'SEQUENCE' then
879: null;
880: else
884: raise;
885: end if;
886: when others then
887: -- Bug 13940203
888: if (dbms_sql.is_open(c)) then
889: dbms_sql.close_cursor(c);
890: end if;
891: ad_apps_private.error_buf := 'drop_object('||target_schema||','||
892: object_name||
885: end if;
886: when others then
887: -- Bug 13940203
888: if (dbms_sql.is_open(c)) then
889: dbms_sql.close_cursor(c);
890: end if;
891: ad_apps_private.error_buf := 'drop_object('||target_schema||','||
892: object_name||
893: ','||object_type||'): '||ad_apps_private.error_buf;
1203: statement := 'select text into :view_text from dba_views '||
1204: 'where owner='''||copy_huge_view.fromschema||''' '||
1205: 'and view_name='''||copy_huge_view.view_name||'''';
1206:
1207: sys.dbms_sys_sql.parse(c, statement, dbms_sql.native);
1208: sys.dbms_sys_sql.define_column_long(c,1);
1209: rows_processed := sys.dbms_sys_sql.execute(c);
1210:
1211: if sys.dbms_sys_sql.fetch_rows(c) > 0 then
1337: 'where owner=upper('''||fromschema||''') '||
1338: 'and view_name=upper('''||view_name||''') '||
1339: 'and text_length='||from_len;
1340:
1341: sys.dbms_sys_sql.parse(c1, statement1, dbms_sql.native);
1342: sys.dbms_sys_sql.define_column_long(c1,1);
1343: rows_processed := sys.dbms_sys_sql.execute(c1);
1344:
1345: if sys.dbms_sys_sql.fetch_rows(c1) <= 0 then
1360: 'where owner=upper('''||toschema||''') '||
1361: 'and view_name=upper('''||view_name||''') '||
1362: 'and text_length='||to_len;
1363:
1364: sys.dbms_sys_sql.parse(c2, statement2, dbms_sql.native);
1365: sys.dbms_sys_sql.define_column_long(c2,1);
1366: rows_processed := sys.dbms_sys_sql.execute(c2);
1367:
1368: if sys.dbms_sys_sql.fetch_rows(c2) <= 0 then
2335: aol_schema||ign_schema_select_part2||aol_schema||
2336: ign_schema_select_part3||' in (to_char(:install_g_num), 0 )';
2337: begin
2338:
2339: oracle_id_cursor := dbms_sql.open_cursor;
2340: dbms_sql.parse(oracle_id_cursor, oracle_id_sql, dbms_sql.native);
2341: dbms_sql.bind_variable(oracle_id_cursor,'install_g_num',
2342: create_special_views.install_group_num);
2343: dbms_sql.define_column(oracle_id_cursor,1,table_schema,30);
2336: ign_schema_select_part3||' in (to_char(:install_g_num), 0 )';
2337: begin
2338:
2339: oracle_id_cursor := dbms_sql.open_cursor;
2340: dbms_sql.parse(oracle_id_cursor, oracle_id_sql, dbms_sql.native);
2341: dbms_sql.bind_variable(oracle_id_cursor,'install_g_num',
2342: create_special_views.install_group_num);
2343: dbms_sql.define_column(oracle_id_cursor,1,table_schema,30);
2344: rows_processed := dbms_sql.execute(oracle_id_cursor);
2337: begin
2338:
2339: oracle_id_cursor := dbms_sql.open_cursor;
2340: dbms_sql.parse(oracle_id_cursor, oracle_id_sql, dbms_sql.native);
2341: dbms_sql.bind_variable(oracle_id_cursor,'install_g_num',
2342: create_special_views.install_group_num);
2343: dbms_sql.define_column(oracle_id_cursor,1,table_schema,30);
2344: rows_processed := dbms_sql.execute(oracle_id_cursor);
2345: loop
2339: oracle_id_cursor := dbms_sql.open_cursor;
2340: dbms_sql.parse(oracle_id_cursor, oracle_id_sql, dbms_sql.native);
2341: dbms_sql.bind_variable(oracle_id_cursor,'install_g_num',
2342: create_special_views.install_group_num);
2343: dbms_sql.define_column(oracle_id_cursor,1,table_schema,30);
2344: rows_processed := dbms_sql.execute(oracle_id_cursor);
2345: loop
2346: if dbms_sql.fetch_rows(oracle_id_cursor) > 0 then
2347: dbms_sql.column_value(oracle_id_cursor,1,table_schema);
2340: dbms_sql.parse(oracle_id_cursor, oracle_id_sql, dbms_sql.native);
2341: dbms_sql.bind_variable(oracle_id_cursor,'install_g_num',
2342: create_special_views.install_group_num);
2343: dbms_sql.define_column(oracle_id_cursor,1,table_schema,30);
2344: rows_processed := dbms_sql.execute(oracle_id_cursor);
2345: loop
2346: if dbms_sql.fetch_rows(oracle_id_cursor) > 0 then
2347: dbms_sql.column_value(oracle_id_cursor,1,table_schema);
2348: -- for each schema see if any of the listed tables exist in
2342: create_special_views.install_group_num);
2343: dbms_sql.define_column(oracle_id_cursor,1,table_schema,30);
2344: rows_processed := dbms_sql.execute(oracle_id_cursor);
2345: loop
2346: if dbms_sql.fetch_rows(oracle_id_cursor) > 0 then
2347: dbms_sql.column_value(oracle_id_cursor,1,table_schema);
2348: -- for each schema see if any of the listed tables exist in
2349: -- that schema and create the view in the apps schema
2350: declare
2343: dbms_sql.define_column(oracle_id_cursor,1,table_schema,30);
2344: rows_processed := dbms_sql.execute(oracle_id_cursor);
2345: loop
2346: if dbms_sql.fetch_rows(oracle_id_cursor) > 0 then
2347: dbms_sql.column_value(oracle_id_cursor,1,table_schema);
2348: -- for each schema see if any of the listed tables exist in
2349: -- that schema and create the view in the apps schema
2350: declare
2351: c integer;
2368: c integer;
2369: rows_processed integer;
2370: statement varchar2(500);
2371: begin
2372: c := dbms_sql.open_cursor;
2373: statement :=
2374: 'select nvl(max(last_update_date), '||
2375: ' to_date(''01/01/1970'',''DD/MM/YYYY'')) '||
2376: ' from '||aol_schema||'.ak_translated_columns';
2373: statement :=
2374: 'select nvl(max(last_update_date), '||
2375: ' to_date(''01/01/1970'',''DD/MM/YYYY'')) '||
2376: ' from '||aol_schema||'.ak_translated_columns';
2377: dbms_sql.parse(c, statement, dbms_sql.native);
2378: dbms_sql.define_column(c,1,max_trans_date);
2379: rows_processed := dbms_sql.execute(c);
2380: loop
2381: if dbms_sql.fetch_rows(c) > 0 then
2374: 'select nvl(max(last_update_date), '||
2375: ' to_date(''01/01/1970'',''DD/MM/YYYY'')) '||
2376: ' from '||aol_schema||'.ak_translated_columns';
2377: dbms_sql.parse(c, statement, dbms_sql.native);
2378: dbms_sql.define_column(c,1,max_trans_date);
2379: rows_processed := dbms_sql.execute(c);
2380: loop
2381: if dbms_sql.fetch_rows(c) > 0 then
2382: dbms_sql.column_value(c,1,max_trans_date);
2375: ' to_date(''01/01/1970'',''DD/MM/YYYY'')) '||
2376: ' from '||aol_schema||'.ak_translated_columns';
2377: dbms_sql.parse(c, statement, dbms_sql.native);
2378: dbms_sql.define_column(c,1,max_trans_date);
2379: rows_processed := dbms_sql.execute(c);
2380: loop
2381: if dbms_sql.fetch_rows(c) > 0 then
2382: dbms_sql.column_value(c,1,max_trans_date);
2383: end if;
2377: dbms_sql.parse(c, statement, dbms_sql.native);
2378: dbms_sql.define_column(c,1,max_trans_date);
2379: rows_processed := dbms_sql.execute(c);
2380: loop
2381: if dbms_sql.fetch_rows(c) > 0 then
2382: dbms_sql.column_value(c,1,max_trans_date);
2383: end if;
2384: dbms_sql.close_cursor(c);
2385: exit;
2378: dbms_sql.define_column(c,1,max_trans_date);
2379: rows_processed := dbms_sql.execute(c);
2380: loop
2381: if dbms_sql.fetch_rows(c) > 0 then
2382: dbms_sql.column_value(c,1,max_trans_date);
2383: end if;
2384: dbms_sql.close_cursor(c);
2385: exit;
2386: end loop;
2380: loop
2381: if dbms_sql.fetch_rows(c) > 0 then
2382: dbms_sql.column_value(c,1,max_trans_date);
2383: end if;
2384: dbms_sql.close_cursor(c);
2385: exit;
2386: end loop;
2387: exception
2388: when others then
2385: exit;
2386: end loop;
2387: exception
2388: when others then
2389: dbms_sql.close_cursor(c);
2390: ad_apps_private.error_buf := 'statement='||
2391: statement||':'||
2392: ad_apps_private.error_buf;
2393: raise;
2399: c integer;
2400: rows_processed integer;
2401: statement varchar2(500);
2402: begin
2403: c := dbms_sql.open_cursor;
2404: statement :=
2405: 'select nvl(max(last_update_date), '||
2406: ' to_date(''01/01/1970'',''DD/MM/YYYY'')) '||
2407: ' from '||aol_schema||'.ak_language_attribute_xrefs';
2404: statement :=
2405: 'select nvl(max(last_update_date), '||
2406: ' to_date(''01/01/1970'',''DD/MM/YYYY'')) '||
2407: ' from '||aol_schema||'.ak_language_attribute_xrefs';
2408: dbms_sql.parse(c, statement, dbms_sql.native);
2409: dbms_sql.define_column(c,1,max_xref_date);
2410: rows_processed := dbms_sql.execute(c);
2411: loop
2412: if dbms_sql.fetch_rows(c) > 0 then
2405: 'select nvl(max(last_update_date), '||
2406: ' to_date(''01/01/1970'',''DD/MM/YYYY'')) '||
2407: ' from '||aol_schema||'.ak_language_attribute_xrefs';
2408: dbms_sql.parse(c, statement, dbms_sql.native);
2409: dbms_sql.define_column(c,1,max_xref_date);
2410: rows_processed := dbms_sql.execute(c);
2411: loop
2412: if dbms_sql.fetch_rows(c) > 0 then
2413: dbms_sql.column_value(c,1,max_xref_date);
2406: ' to_date(''01/01/1970'',''DD/MM/YYYY'')) '||
2407: ' from '||aol_schema||'.ak_language_attribute_xrefs';
2408: dbms_sql.parse(c, statement, dbms_sql.native);
2409: dbms_sql.define_column(c,1,max_xref_date);
2410: rows_processed := dbms_sql.execute(c);
2411: loop
2412: if dbms_sql.fetch_rows(c) > 0 then
2413: dbms_sql.column_value(c,1,max_xref_date);
2414: end if;
2408: dbms_sql.parse(c, statement, dbms_sql.native);
2409: dbms_sql.define_column(c,1,max_xref_date);
2410: rows_processed := dbms_sql.execute(c);
2411: loop
2412: if dbms_sql.fetch_rows(c) > 0 then
2413: dbms_sql.column_value(c,1,max_xref_date);
2414: end if;
2415: dbms_sql.close_cursor(c);
2416: exit;
2409: dbms_sql.define_column(c,1,max_xref_date);
2410: rows_processed := dbms_sql.execute(c);
2411: loop
2412: if dbms_sql.fetch_rows(c) > 0 then
2413: dbms_sql.column_value(c,1,max_xref_date);
2414: end if;
2415: dbms_sql.close_cursor(c);
2416: exit;
2417: end loop;
2411: loop
2412: if dbms_sql.fetch_rows(c) > 0 then
2413: dbms_sql.column_value(c,1,max_xref_date);
2414: end if;
2415: dbms_sql.close_cursor(c);
2416: exit;
2417: end loop;
2418: exception
2419: when others then
2416: exit;
2417: end loop;
2418: exception
2419: when others then
2420: dbms_sql.close_cursor(c);
2421: ad_apps_private.error_buf := 'statement='||
2422: statement||':'||
2423: ad_apps_private.error_buf;
2424: raise;
2424: raise;
2425: end;
2426:
2427:
2428: c := dbms_sql.open_cursor;
2429:
2430: if create_mls_views then
2431: -- work on tables that are multilingual
2432: statement := 'select distinct upper(atc.table_name) '||
2441: 'and :table_schema = ''X'' ';
2442: end if;
2443:
2444:
2445: dbms_sql.parse(c, statement, dbms_sql.native);
2446: dbms_sql.bind_variable(c,'table_schema',table_schema);
2447: dbms_sql.define_column(c,1,l_table_name,30);
2448: rows_processed := dbms_sql.execute(c);
2449: loop
2442: end if;
2443:
2444:
2445: dbms_sql.parse(c, statement, dbms_sql.native);
2446: dbms_sql.bind_variable(c,'table_schema',table_schema);
2447: dbms_sql.define_column(c,1,l_table_name,30);
2448: rows_processed := dbms_sql.execute(c);
2449: loop
2450: if dbms_sql.fetch_rows(c) > 0 then
2443:
2444:
2445: dbms_sql.parse(c, statement, dbms_sql.native);
2446: dbms_sql.bind_variable(c,'table_schema',table_schema);
2447: dbms_sql.define_column(c,1,l_table_name,30);
2448: rows_processed := dbms_sql.execute(c);
2449: loop
2450: if dbms_sql.fetch_rows(c) > 0 then
2451: dbms_sql.column_value(c,1,l_table_name);
2444:
2445: dbms_sql.parse(c, statement, dbms_sql.native);
2446: dbms_sql.bind_variable(c,'table_schema',table_schema);
2447: dbms_sql.define_column(c,1,l_table_name,30);
2448: rows_processed := dbms_sql.execute(c);
2449: loop
2450: if dbms_sql.fetch_rows(c) > 0 then
2451: dbms_sql.column_value(c,1,l_table_name);
2452:
2446: dbms_sql.bind_variable(c,'table_schema',table_schema);
2447: dbms_sql.define_column(c,1,l_table_name,30);
2448: rows_processed := dbms_sql.execute(c);
2449: loop
2450: if dbms_sql.fetch_rows(c) > 0 then
2451: dbms_sql.column_value(c,1,l_table_name);
2452:
2453: -- initialize all comparison variables
2454: view_is_old := FALSE;
2447: dbms_sql.define_column(c,1,l_table_name,30);
2448: rows_processed := dbms_sql.execute(c);
2449: loop
2450: if dbms_sql.fetch_rows(c) > 0 then
2451: dbms_sql.column_value(c,1,l_table_name);
2452:
2453: -- initialize all comparison variables
2454: view_is_old := FALSE;
2455: view_date := to_date('01/01/1970','DD/MM/YYYY');
2480: c integer;
2481: rows_processed integer;
2482: statement varchar2(500);
2483: begin
2484: c := dbms_sql.open_cursor;
2485: statement :=
2486: 'select last_update_date '||
2487: ' from '||aol_schema||'.ak_translated_columns '||
2488: ' where upper(table_name) = upper(:table_name) ';
2485: statement :=
2486: 'select last_update_date '||
2487: ' from '||aol_schema||'.ak_translated_columns '||
2488: ' where upper(table_name) = upper(:table_name) ';
2489: dbms_sql.parse(c, statement, dbms_sql.native);
2490: dbms_sql.bind_variable(c,'table_name',l_table_name);
2491: dbms_sql.define_column(c,1,trans_record_date);
2492: rows_processed := dbms_sql.execute(c);
2493: loop
2486: 'select last_update_date '||
2487: ' from '||aol_schema||'.ak_translated_columns '||
2488: ' where upper(table_name) = upper(:table_name) ';
2489: dbms_sql.parse(c, statement, dbms_sql.native);
2490: dbms_sql.bind_variable(c,'table_name',l_table_name);
2491: dbms_sql.define_column(c,1,trans_record_date);
2492: rows_processed := dbms_sql.execute(c);
2493: loop
2494: if dbms_sql.fetch_rows(c) > 0 then
2487: ' from '||aol_schema||'.ak_translated_columns '||
2488: ' where upper(table_name) = upper(:table_name) ';
2489: dbms_sql.parse(c, statement, dbms_sql.native);
2490: dbms_sql.bind_variable(c,'table_name',l_table_name);
2491: dbms_sql.define_column(c,1,trans_record_date);
2492: rows_processed := dbms_sql.execute(c);
2493: loop
2494: if dbms_sql.fetch_rows(c) > 0 then
2495: dbms_sql.column_value(c,1,trans_record_date);
2488: ' where upper(table_name) = upper(:table_name) ';
2489: dbms_sql.parse(c, statement, dbms_sql.native);
2490: dbms_sql.bind_variable(c,'table_name',l_table_name);
2491: dbms_sql.define_column(c,1,trans_record_date);
2492: rows_processed := dbms_sql.execute(c);
2493: loop
2494: if dbms_sql.fetch_rows(c) > 0 then
2495: dbms_sql.column_value(c,1,trans_record_date);
2496: end if;
2490: dbms_sql.bind_variable(c,'table_name',l_table_name);
2491: dbms_sql.define_column(c,1,trans_record_date);
2492: rows_processed := dbms_sql.execute(c);
2493: loop
2494: if dbms_sql.fetch_rows(c) > 0 then
2495: dbms_sql.column_value(c,1,trans_record_date);
2496: end if;
2497: dbms_sql.close_cursor(c);
2498: exit;
2491: dbms_sql.define_column(c,1,trans_record_date);
2492: rows_processed := dbms_sql.execute(c);
2493: loop
2494: if dbms_sql.fetch_rows(c) > 0 then
2495: dbms_sql.column_value(c,1,trans_record_date);
2496: end if;
2497: dbms_sql.close_cursor(c);
2498: exit;
2499: end loop;
2493: loop
2494: if dbms_sql.fetch_rows(c) > 0 then
2495: dbms_sql.column_value(c,1,trans_record_date);
2496: end if;
2497: dbms_sql.close_cursor(c);
2498: exit;
2499: end loop;
2500: exception
2501: when others then
2498: exit;
2499: end loop;
2500: exception
2501: when others then
2502: dbms_sql.close_cursor(c);
2503: ad_apps_private.error_buf := 'statement='||
2504: statement||':'||
2505: ad_apps_private.error_buf;
2506: raise;
2584: end;
2585: end if; -- view_is_old
2586: else
2587: -- no more oracle views to process for this schema
2588: dbms_sql.close_cursor(c);
2589: exit;
2590: end if;
2591: end loop; -- loop over all views
2592:
2591: end loop; -- loop over all views
2592:
2593: exception
2594: when others then
2595: dbms_sql.close_cursor(c);
2596: ad_apps_private.error_buf := 'statement='||statement||': '||
2597: ad_apps_private.error_buf;
2598: raise;
2599: end;
2599: end;
2600:
2601: else
2602: -- no more rows to process
2603: dbms_sql.close_cursor(oracle_id_cursor);
2604: exit;
2605: end if;
2606: end loop;
2607: exception
2605: end if;
2606: end loop;
2607: exception
2608: when others then
2609: dbms_sql.close_cursor(oracle_id_cursor);
2610: ad_apps_private.error_buf := 'create_special_views('||install_group_num||
2611: ','||aol_schema||
2612: ','||apps_schema||',create_mls_views): '||
2613: ad_apps_private.error_buf;
4015: c integer;
4016: rows_processed integer;
4017: statement varchar2(500);
4018: begin
4019: c := dbms_sql.open_cursor;
4020: statement := 'select nvl(min(multi_currency_flag),''N''), '||
4021: 'nvl(min(multi_lingual_flag),''N'') '||
4022: 'from '||aol_schema||'.fnd_product_groups';
4023: dbms_sql.parse(c, statement, dbms_sql.native);
4019: c := dbms_sql.open_cursor;
4020: statement := 'select nvl(min(multi_currency_flag),''N''), '||
4021: 'nvl(min(multi_lingual_flag),''N'') '||
4022: 'from '||aol_schema||'.fnd_product_groups';
4023: dbms_sql.parse(c, statement, dbms_sql.native);
4024: dbms_sql.define_column(c,1,x,30);
4025: dbms_sql.define_column(c,2,y,30);
4026: rows_processed := dbms_sql.execute(c);
4027: if dbms_sql.fetch_rows(c) > 0 then
4020: statement := 'select nvl(min(multi_currency_flag),''N''), '||
4021: 'nvl(min(multi_lingual_flag),''N'') '||
4022: 'from '||aol_schema||'.fnd_product_groups';
4023: dbms_sql.parse(c, statement, dbms_sql.native);
4024: dbms_sql.define_column(c,1,x,30);
4025: dbms_sql.define_column(c,2,y,30);
4026: rows_processed := dbms_sql.execute(c);
4027: if dbms_sql.fetch_rows(c) > 0 then
4028: dbms_sql.column_value(c,1,x);
4021: 'nvl(min(multi_lingual_flag),''N'') '||
4022: 'from '||aol_schema||'.fnd_product_groups';
4023: dbms_sql.parse(c, statement, dbms_sql.native);
4024: dbms_sql.define_column(c,1,x,30);
4025: dbms_sql.define_column(c,2,y,30);
4026: rows_processed := dbms_sql.execute(c);
4027: if dbms_sql.fetch_rows(c) > 0 then
4028: dbms_sql.column_value(c,1,x);
4029: dbms_sql.column_value(c,2,y);
4022: 'from '||aol_schema||'.fnd_product_groups';
4023: dbms_sql.parse(c, statement, dbms_sql.native);
4024: dbms_sql.define_column(c,1,x,30);
4025: dbms_sql.define_column(c,2,y,30);
4026: rows_processed := dbms_sql.execute(c);
4027: if dbms_sql.fetch_rows(c) > 0 then
4028: dbms_sql.column_value(c,1,x);
4029: dbms_sql.column_value(c,2,y);
4030:
4023: dbms_sql.parse(c, statement, dbms_sql.native);
4024: dbms_sql.define_column(c,1,x,30);
4025: dbms_sql.define_column(c,2,y,30);
4026: rows_processed := dbms_sql.execute(c);
4027: if dbms_sql.fetch_rows(c) > 0 then
4028: dbms_sql.column_value(c,1,x);
4029: dbms_sql.column_value(c,2,y);
4030:
4031: if x = 'Y' then
4024: dbms_sql.define_column(c,1,x,30);
4025: dbms_sql.define_column(c,2,y,30);
4026: rows_processed := dbms_sql.execute(c);
4027: if dbms_sql.fetch_rows(c) > 0 then
4028: dbms_sql.column_value(c,1,x);
4029: dbms_sql.column_value(c,2,y);
4030:
4031: if x = 'Y' then
4032: -- Fixed bug 3258312 : Although MRC flag is at 'Y', someone
4025: dbms_sql.define_column(c,2,y,30);
4026: rows_processed := dbms_sql.execute(c);
4027: if dbms_sql.fetch_rows(c) > 0 then
4028: dbms_sql.column_value(c,1,x);
4029: dbms_sql.column_value(c,2,y);
4030:
4031: if x = 'Y' then
4032: -- Fixed bug 3258312 : Although MRC flag is at 'Y', someone
4033: -- may have dropped it or the release might be 11.5.10 or more.
4115: ad_apps_private.is_mls := TRUE;
4116: else
4117: ad_apps_private.is_mls := FALSE;
4118: end if;
4119: dbms_sql.close_cursor(c);
4120: else
4121: raise no_data_found;
4122: end if;
4123: exception
4121: raise no_data_found;
4122: end if;
4123: exception
4124: when others then
4125: dbms_sql.close_cursor(c);
4126: ad_apps_private.error_buf := 'statement='||
4127: statement||':'||
4128: ad_apps_private.error_buf;
4129: raise;
4216: begin
4217: p_status:=0;
4218: l_cnt:=0;
4219: l_edition_name:=p_edition_name;
4220: c := dbms_sql.open_cursor;
4221: log_message('inside is_object_actualised ..');
4222:
4223: c_statement:='select count(1) ' ||
4224: 'from dba_objects ' ||
4228: ' and object_name=:object_name';
4229:
4230: log_message('statement '||c_statement||'..');
4231:
4232: dbms_sql.parse(c => c, language_flag=>dbms_sql.native,
4233: statement=> c_statement, edition => l_edition_name);
4234: log_message('done with parse');
4235: dbms_sql.bind_variable(c,'edition_name',p_edition_name,30);
4236: dbms_sql.bind_variable(c,'schema_name',schema_name,30);
4231:
4232: dbms_sql.parse(c => c, language_flag=>dbms_sql.native,
4233: statement=> c_statement, edition => l_edition_name);
4234: log_message('done with parse');
4235: dbms_sql.bind_variable(c,'edition_name',p_edition_name,30);
4236: dbms_sql.bind_variable(c,'schema_name',schema_name,30);
4237: dbms_sql.bind_variable(c,'object_type',object_type,30);
4238: dbms_sql.bind_variable(c,'object_name',p_object_name,30);
4239: -- dbms_output.put_line('statement : <'||c_statement||'>');
4232: dbms_sql.parse(c => c, language_flag=>dbms_sql.native,
4233: statement=> c_statement, edition => l_edition_name);
4234: log_message('done with parse');
4235: dbms_sql.bind_variable(c,'edition_name',p_edition_name,30);
4236: dbms_sql.bind_variable(c,'schema_name',schema_name,30);
4237: dbms_sql.bind_variable(c,'object_type',object_type,30);
4238: dbms_sql.bind_variable(c,'object_name',p_object_name,30);
4239: -- dbms_output.put_line('statement : <'||c_statement||'>');
4240: log_message('done with binding');
4233: statement=> c_statement, edition => l_edition_name);
4234: log_message('done with parse');
4235: dbms_sql.bind_variable(c,'edition_name',p_edition_name,30);
4236: dbms_sql.bind_variable(c,'schema_name',schema_name,30);
4237: dbms_sql.bind_variable(c,'object_type',object_type,30);
4238: dbms_sql.bind_variable(c,'object_name',p_object_name,30);
4239: -- dbms_output.put_line('statement : <'||c_statement||'>');
4240: log_message('done with binding');
4241: dbms_sql.define_column(c,1,l_cnt);
4234: log_message('done with parse');
4235: dbms_sql.bind_variable(c,'edition_name',p_edition_name,30);
4236: dbms_sql.bind_variable(c,'schema_name',schema_name,30);
4237: dbms_sql.bind_variable(c,'object_type',object_type,30);
4238: dbms_sql.bind_variable(c,'object_name',p_object_name,30);
4239: -- dbms_output.put_line('statement : <'||c_statement||'>');
4240: log_message('done with binding');
4241: dbms_sql.define_column(c,1,l_cnt);
4242: rows_processed := dbms_sql.execute(c);
4237: dbms_sql.bind_variable(c,'object_type',object_type,30);
4238: dbms_sql.bind_variable(c,'object_name',p_object_name,30);
4239: -- dbms_output.put_line('statement : <'||c_statement||'>');
4240: log_message('done with binding');
4241: dbms_sql.define_column(c,1,l_cnt);
4242: rows_processed := dbms_sql.execute(c);
4243: log_message('done with execute');
4244:
4245: if dbms_sql.fetch_rows(c) > 0 then
4238: dbms_sql.bind_variable(c,'object_name',p_object_name,30);
4239: -- dbms_output.put_line('statement : <'||c_statement||'>');
4240: log_message('done with binding');
4241: dbms_sql.define_column(c,1,l_cnt);
4242: rows_processed := dbms_sql.execute(c);
4243: log_message('done with execute');
4244:
4245: if dbms_sql.fetch_rows(c) > 0 then
4246: dbms_sql.column_value(c,1,l_cnt);
4241: dbms_sql.define_column(c,1,l_cnt);
4242: rows_processed := dbms_sql.execute(c);
4243: log_message('done with execute');
4244:
4245: if dbms_sql.fetch_rows(c) > 0 then
4246: dbms_sql.column_value(c,1,l_cnt);
4247: end if;
4248: p_status:=l_cnt;
4249: dbms_sql.close_cursor(c);
4242: rows_processed := dbms_sql.execute(c);
4243: log_message('done with execute');
4244:
4245: if dbms_sql.fetch_rows(c) > 0 then
4246: dbms_sql.column_value(c,1,l_cnt);
4247: end if;
4248: p_status:=l_cnt;
4249: dbms_sql.close_cursor(c);
4250: exception
4245: if dbms_sql.fetch_rows(c) > 0 then
4246: dbms_sql.column_value(c,1,l_cnt);
4247: end if;
4248: p_status:=l_cnt;
4249: dbms_sql.close_cursor(c);
4250: exception
4251: when others then
4252: dbms_sql.close_cursor(c);
4253: ad_apps_private.error_buf := 'c_statement='||
4248: p_status:=l_cnt;
4249: dbms_sql.close_cursor(c);
4250: exception
4251: when others then
4252: dbms_sql.close_cursor(c);
4253: ad_apps_private.error_buf := 'c_statement='||
4254: c_statement||':'||
4255: ad_apps_private.error_buf;
4256: raise;
4326: log_message(statement);
4327: statement:='begin '||schema_name||'.apps_ddl.apps_ddl(:ddl_text); end;';
4328: log_message('statement <'||statement||'>');
4329: log_message('done creating the steatement');
4330: l_cur := dbms_sql.open_cursor;
4331: log_message('calling parse ');
4332: dbms_sql.parse (
4333: c => l_cur, language_flag => dbms_sql.native,
4334: statement => statement, edition => l_patch_edition);
4328: log_message('statement <'||statement||'>');
4329: log_message('done creating the steatement');
4330: l_cur := dbms_sql.open_cursor;
4331: log_message('calling parse ');
4332: dbms_sql.parse (
4333: c => l_cur, language_flag => dbms_sql.native,
4334: statement => statement, edition => l_patch_edition);
4335: log_message('done with parse ..');
4336: dbms_sql.bind_variable(l_cur,'ddl_text',ddl_text);
4329: log_message('done creating the steatement');
4330: l_cur := dbms_sql.open_cursor;
4331: log_message('calling parse ');
4332: dbms_sql.parse (
4333: c => l_cur, language_flag => dbms_sql.native,
4334: statement => statement, edition => l_patch_edition);
4335: log_message('done with parse ..');
4336: dbms_sql.bind_variable(l_cur,'ddl_text',ddl_text);
4337: log_message('done with bind ..');
4332: dbms_sql.parse (
4333: c => l_cur, language_flag => dbms_sql.native,
4334: statement => statement, edition => l_patch_edition);
4335: log_message('done with parse ..');
4336: dbms_sql.bind_variable(l_cur,'ddl_text',ddl_text);
4337: log_message('done with bind ..');
4338: status := dbms_sql.execute(l_cur);
4339: log_message('done with execute ..');
4340: dbms_sql.close_cursor(l_cur);
4334: statement => statement, edition => l_patch_edition);
4335: log_message('done with parse ..');
4336: dbms_sql.bind_variable(l_cur,'ddl_text',ddl_text);
4337: log_message('done with bind ..');
4338: status := dbms_sql.execute(l_cur);
4339: log_message('done with execute ..');
4340: dbms_sql.close_cursor(l_cur);
4341: exception
4342: -- Fix to bug 13509922 - by asutrala 17-Dec-2011
4336: dbms_sql.bind_variable(l_cur,'ddl_text',ddl_text);
4337: log_message('done with bind ..');
4338: status := dbms_sql.execute(l_cur);
4339: log_message('done with execute ..');
4340: dbms_sql.close_cursor(l_cur);
4341: exception
4342: -- Fix to bug 13509922 - by asutrala 17-Dec-2011
4343: -- When there is an exception ORA-00955, while creating an
4344: -- object on patch edition, eat it. It is because the object
4343: -- When there is an exception ORA-00955, while creating an
4344: -- object on patch edition, eat it. It is because the object
4345: -- is not actualized.
4346: when object_already_exists then
4347: if (dbms_sql.is_open(l_cur)) then
4348: dbms_sql.close_cursor(l_cur);
4349: end if;
4350:
4351: ad_apps_private.error_buf := null;
4344: -- object on patch edition, eat it. It is because the object
4345: -- is not actualized.
4346: when object_already_exists then
4347: if (dbms_sql.is_open(l_cur)) then
4348: dbms_sql.close_cursor(l_cur);
4349: end if;
4350:
4351: ad_apps_private.error_buf := null;
4352: when trigger_does_not_exist then
4349: end if;
4350:
4351: ad_apps_private.error_buf := null;
4352: when trigger_does_not_exist then
4353: if (dbms_sql.is_open(l_cur)) then
4354: dbms_sql.close_cursor(l_cur);
4355: end if;
4356: if instr(upper(ddl_text),'DROP') = 0 then
4357: raise;
4350:
4351: ad_apps_private.error_buf := null;
4352: when trigger_does_not_exist then
4353: if (dbms_sql.is_open(l_cur)) then
4354: dbms_sql.close_cursor(l_cur);
4355: end if;
4356: if instr(upper(ddl_text),'DROP') = 0 then
4357: raise;
4358: end if;
4356: if instr(upper(ddl_text),'DROP') = 0 then
4357: raise;
4358: end if;
4359: when object_does_not_exist then
4360: if (dbms_sql.is_open(l_cur)) then
4361: dbms_sql.close_cursor(l_cur);
4362: end if;
4363: if instr(upper(ddl_text),'DROP') = 0 then
4364: raise;
4357: raise;
4358: end if;
4359: when object_does_not_exist then
4360: if (dbms_sql.is_open(l_cur)) then
4361: dbms_sql.close_cursor(l_cur);
4362: end if;
4363: if instr(upper(ddl_text),'DROP') = 0 then
4364: raise;
4365: end if;
4364: raise;
4365: end if;
4366:
4367: when others then
4368: if (dbms_sql.is_open(l_cur)) then
4369: dbms_sql.close_cursor(l_cur);
4370: end if;
4371:
4372: if abbrev_stmt = 'FALSE' then
4365: end if;
4366:
4367: when others then
4368: if (dbms_sql.is_open(l_cur)) then
4369: dbms_sql.close_cursor(l_cur);
4370: end if;
4371:
4372: if abbrev_stmt = 'FALSE' then
4373: ad_apps_private.error_buf := 'do_apps_ddl_on_patch_edn('||schema_name||
4428: '.apps_array_ddl.apps_array_ddl(:lb, :ub, :nlf); end;';
4429:
4430: -- EXECUTE IMMEDIATE statement
4431: -- using lb, ub, add_newline;
4432: l_cur := dbms_sql.open_cursor;
4433: dbms_sql.parse (
4434: c => l_cur, language_flag => dbms_sql.native,
4435: statement => statement, edition => l_patch_edition);
4436: dbms_sql.bind_variable(l_cur,'lb',lb);
4429:
4430: -- EXECUTE IMMEDIATE statement
4431: -- using lb, ub, add_newline;
4432: l_cur := dbms_sql.open_cursor;
4433: dbms_sql.parse (
4434: c => l_cur, language_flag => dbms_sql.native,
4435: statement => statement, edition => l_patch_edition);
4436: dbms_sql.bind_variable(l_cur,'lb',lb);
4437: dbms_sql.bind_variable(l_cur,'ub',ub);
4430: -- EXECUTE IMMEDIATE statement
4431: -- using lb, ub, add_newline;
4432: l_cur := dbms_sql.open_cursor;
4433: dbms_sql.parse (
4434: c => l_cur, language_flag => dbms_sql.native,
4435: statement => statement, edition => l_patch_edition);
4436: dbms_sql.bind_variable(l_cur,'lb',lb);
4437: dbms_sql.bind_variable(l_cur,'ub',ub);
4438: dbms_sql.bind_variable(l_cur,'nlf',add_newline,500);
4432: l_cur := dbms_sql.open_cursor;
4433: dbms_sql.parse (
4434: c => l_cur, language_flag => dbms_sql.native,
4435: statement => statement, edition => l_patch_edition);
4436: dbms_sql.bind_variable(l_cur,'lb',lb);
4437: dbms_sql.bind_variable(l_cur,'ub',ub);
4438: dbms_sql.bind_variable(l_cur,'nlf',add_newline,500);
4439: status := dbms_sql.execute(l_cur);
4440: dbms_sql.close_cursor(l_cur);
4433: dbms_sql.parse (
4434: c => l_cur, language_flag => dbms_sql.native,
4435: statement => statement, edition => l_patch_edition);
4436: dbms_sql.bind_variable(l_cur,'lb',lb);
4437: dbms_sql.bind_variable(l_cur,'ub',ub);
4438: dbms_sql.bind_variable(l_cur,'nlf',add_newline,500);
4439: status := dbms_sql.execute(l_cur);
4440: dbms_sql.close_cursor(l_cur);
4441: exception
4434: c => l_cur, language_flag => dbms_sql.native,
4435: statement => statement, edition => l_patch_edition);
4436: dbms_sql.bind_variable(l_cur,'lb',lb);
4437: dbms_sql.bind_variable(l_cur,'ub',ub);
4438: dbms_sql.bind_variable(l_cur,'nlf',add_newline,500);
4439: status := dbms_sql.execute(l_cur);
4440: dbms_sql.close_cursor(l_cur);
4441: exception
4442: -- Fix to bug 13509922 - by asutrala 17-Dec-2011
4435: statement => statement, edition => l_patch_edition);
4436: dbms_sql.bind_variable(l_cur,'lb',lb);
4437: dbms_sql.bind_variable(l_cur,'ub',ub);
4438: dbms_sql.bind_variable(l_cur,'nlf',add_newline,500);
4439: status := dbms_sql.execute(l_cur);
4440: dbms_sql.close_cursor(l_cur);
4441: exception
4442: -- Fix to bug 13509922 - by asutrala 17-Dec-2011
4443: -- When there is an exception ORA-00955, while creating an
4436: dbms_sql.bind_variable(l_cur,'lb',lb);
4437: dbms_sql.bind_variable(l_cur,'ub',ub);
4438: dbms_sql.bind_variable(l_cur,'nlf',add_newline,500);
4439: status := dbms_sql.execute(l_cur);
4440: dbms_sql.close_cursor(l_cur);
4441: exception
4442: -- Fix to bug 13509922 - by asutrala 17-Dec-2011
4443: -- When there is an exception ORA-00955, while creating an
4444: -- object on patch edition, eat it. It is because the object
4446: when object_already_exists then
4447: ad_apps_private.error_buf := null;
4448:
4449: when others then
4450: dbms_sql.close_cursor(l_cur);
4451: ad_apps_private.error_buf := 'do_apps_array_ddl_on_patch_edn('||schema_name||', '||
4452: lb||', '||ub||', '||add_newline||'): '||
4453: ad_apps_private.error_buf;
4454: raise;