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);
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);
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
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);
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);
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;
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);
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);
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);