107: l_extent_size EXCEPTION;
108: PRAGMA EXCEPTION_INIT(l_extent_size,-1658);
109: BEGIN
110: -- Made by Khaja
111: -- IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
112: -- AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.CREATE_TABLE,
113: -- l_sqlstatement,l_newtablename);
114: -- ELSE
115: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
108: PRAGMA EXCEPTION_INIT(l_extent_size,-1658);
109: BEGIN
110: -- Made by Khaja
111: -- IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
112: -- AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.CREATE_TABLE,
113: -- l_sqlstatement,l_newtablename);
114: -- ELSE
115: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
116: -- END IF;
128: ' INITRANS ' || to_char(l_trans_allowed) ||
129: ' MAXTRANS ' || to_char(l_trans_allowed) ||
130: ' AS SELECT * ' || 'FROM ' || p_tablename ||
131: ' WHERE ROWNUM < 1';
132: -- IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
133: -- AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.CREATE_TABLE,
134: -- l_sqlstatement,l_newtablename);
135: -- ELSE
136: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
129: ' MAXTRANS ' || to_char(l_trans_allowed) ||
130: ' AS SELECT * ' || 'FROM ' || p_tablename ||
131: ' WHERE ROWNUM < 1';
132: -- IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
133: -- AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.CREATE_TABLE,
134: -- l_sqlstatement,l_newtablename);
135: -- ELSE
136: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
137: -- END IF;
188: p_tablename);
189:
190: -- Made comments by Khaja
191: -- let fly with dynamic sql
192: -- IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
193: -- AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.DROP_TABLE,
194: -- l_sqlstatement,GMA_PURGE_UTILITIES.makearcname(p_purge_id,
195: -- p_tablename));
196: -- ELSE
189:
190: -- Made comments by Khaja
191: -- let fly with dynamic sql
192: -- IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
193: -- AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.DROP_TABLE,
194: -- l_sqlstatement,GMA_PURGE_UTILITIES.makearcname(p_purge_id,
195: -- p_tablename));
196: -- ELSE
197: l_cursor := DBMS_SQL.OPEN_CURSOR;
274: -- this is a workaround for an apparent bug with 'CREATE OR REPLACE VIEW'
275: BEGIN
276: l_sqlstatement := 'DROP VIEW '
277: || 'A'|| l_viewtable.table_name;
278: -- IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
279: -- AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.DROP_VIEW,
280: -- l_sqlstatement,'A' || l_viewtable.table_name);
281: -- ELSE
282: DBMS_SQL.PARSE(l_cursor,l_sqlstatement, DBMS_SQL.NATIVE);
275: BEGIN
276: l_sqlstatement := 'DROP VIEW '
277: || 'A'|| l_viewtable.table_name;
278: -- IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
279: -- AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.DROP_VIEW,
280: -- l_sqlstatement,'A' || l_viewtable.table_name);
281: -- ELSE
282: DBMS_SQL.PARSE(l_cursor,l_sqlstatement, DBMS_SQL.NATIVE);
283: l_return := DBMS_SQL.EXECUTE(l_cursor);
313: GMA_PURGE_UTILITIES.printdebug(p_purge_id,l_sqlstatement,p_debug_flag);
314:
315: l_viewname :=l_viewtable.table_name;
316:
317: -- IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
318: -- AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.CREATE_VIEW,
319: -- l_sqlstatement,'A' || l_viewtable.table_name);
320: -- ELSE
321: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
314:
315: l_viewname :=l_viewtable.table_name;
316:
317: -- IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
318: -- AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.CREATE_VIEW,
319: -- l_sqlstatement,'A' || l_viewtable.table_name);
320: -- ELSE
321: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
322: l_return := DBMS_SQL.EXECUTE(l_cursor);
376: l_sqlstatement := l_sqlstatement || ' CONSTRAINT ' || p_constraint_name;
377:
378: GMA_PURGE_UTILITIES.printdebug(p_purge_id,l_sqlstatement,p_debug_flag);
379:
380: IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
381: AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.ALTER_TABLE,
382: l_sqlstatement,p_tablename);
383: ELSE
384: l_cursor := DBMS_SQL.OPEN_CURSOR;
377:
378: GMA_PURGE_UTILITIES.printdebug(p_purge_id,l_sqlstatement,p_debug_flag);
379:
380: IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
381: AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.ALTER_TABLE,
382: l_sqlstatement,p_tablename);
383: ELSE
384: l_cursor := DBMS_SQL.OPEN_CURSOR;
385: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
869: l_sqlstatement := 'DROP INDEX ' || l_current_idx;
870: GMA_PURGE_UTILITIES.printdebug(p_purge_id,
871: l_sqlstatement,
872: p_debug_flag);
873: IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
874: AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.DROP_INDEX,
875: l_sqlstatement,l_current_idx);
876: ELSE
877: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
870: GMA_PURGE_UTILITIES.printdebug(p_purge_id,
871: l_sqlstatement,
872: p_debug_flag);
873: IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
874: AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.DROP_INDEX,
875: l_sqlstatement,l_current_idx);
876: ELSE
877: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
878: END IF;
944: l_runstatement := 'DROP INDEX ' || l_current_idx;
945: GMA_PURGE_UTILITIES.printdebug(p_purge_id,
946: l_runstatement,
947: p_debug_flag);
948: IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
949: AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.DROP_INDEX,
950: l_sqlstatement,l_current_idx);
951: ELSE
952: DBMS_SQL.PARSE(l_cursor,l_runstatement,DBMS_SQL.NATIVE);
945: GMA_PURGE_UTILITIES.printdebug(p_purge_id,
946: l_runstatement,
947: p_debug_flag);
948: IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
949: AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.DROP_INDEX,
950: l_sqlstatement,l_current_idx);
951: ELSE
952: DBMS_SQL.PARSE(l_cursor,l_runstatement,DBMS_SQL.NATIVE);
953: END IF;
1029: p_debug_flag);
1030:
1031: -- try to recreate index
1032: BEGIN
1033: IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
1034: AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.CREATE_INDEX,
1035: l_sqlstatement,l_indexname);
1036: ELSE
1037: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
1030:
1031: -- try to recreate index
1032: BEGIN
1033: IF (GMA_PURGE_ENGINE.use_ad_ddl = TRUE) THEN
1034: AD_DDL.DO_DDL(p_owner,p_appl_short_name,AD_DDL.CREATE_INDEX,
1035: l_sqlstatement,l_indexname);
1036: ELSE
1037: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
1038: END IF;