161: OPEN l_sql_cur(p_purge_type);
162: FETCH l_sql_cur INTO l_sqlstatement;
163: CLOSE l_sql_cur;
164:
165: l_cursor := DBMS_SQL.OPEN_CURSOR;
166:
167: l_sqlstatement := l_sqlstatement || ' and rownum < 1;';
168: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);
169:
167: l_sqlstatement := l_sqlstatement || ' and rownum < 1;';
168: GMA_PURGE_UTILITIES.printlong(p_purge_id,l_sqlstatement);
169:
170: -- Just parse it, don't run it
171: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
172:
173: DBMS_SQL.CLOSE_CURSOR(l_cursor);
174:
175: EXCEPTION
169:
170: -- Just parse it, don't run it
171: DBMS_SQL.PARSE(l_cursor,l_sqlstatement,DBMS_SQL.NATIVE);
172:
173: DBMS_SQL.CLOSE_CURSOR(l_cursor);
174:
175: EXCEPTION
176:
177: WHEN OTHERS THEN