195: CLOSE csr_text;
196: END IF;
197:
198: BEGIN
199: l_select_csr := DBMS_SQL.OPEN_CURSOR;
200: DBMS_SQL.PARSE(l_select_csr, l_text, DBMS_SQL.native);
201: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
202: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
203:
196: END IF;
197:
198: BEGIN
199: l_select_csr := DBMS_SQL.OPEN_CURSOR;
200: DBMS_SQL.PARSE(l_select_csr, l_text, DBMS_SQL.native);
201: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
202: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
203:
204: l_sort_num := 0;
197:
198: BEGIN
199: l_select_csr := DBMS_SQL.OPEN_CURSOR;
200: DBMS_SQL.PARSE(l_select_csr, l_text, DBMS_SQL.native);
201: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
202: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
203:
204: l_sort_num := 0;
205: LOOP
198: BEGIN
199: l_select_csr := DBMS_SQL.OPEN_CURSOR;
200: DBMS_SQL.PARSE(l_select_csr, l_text, DBMS_SQL.native);
201: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
202: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
203:
204: l_sort_num := 0;
205: LOOP
206: IF DBMS_SQL.FETCH_ROWS(l_select_csr) = 0 THEN
202: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
203:
204: l_sort_num := 0;
205: LOOP
206: IF DBMS_SQL.FETCH_ROWS(l_select_csr) = 0 THEN
207: EXIT;
208: END IF;
209:
210: DBMS_SQL.COLUMN_VALUE(l_select_csr, 1, l_agent_ID);
206: IF DBMS_SQL.FETCH_ROWS(l_select_csr) = 0 THEN
207: EXIT;
208: END IF;
209:
210: DBMS_SQL.COLUMN_VALUE(l_select_csr, 1, l_agent_ID);
211:
212: -- insert the cursor record into the l_agents_tbl Table
213: l_sort_num := l_sort_num + 1;
214: p_agent_tbl(l_sort_num) := l_agent_id;
213: l_sort_num := l_sort_num + 1;
214: p_agent_tbl(l_sort_num) := l_agent_id;
215: END LOOP;
216: -- Close the cursor
217: DBMS_SQL.CLOSE_CURSOR(l_select_csr);
218: END;
219: RETURN l_sort_num;
220: EXCEPTION
221: WHEN OTHERS THEN
253: CLOSE csr_text;
254: END IF;
255:
256: BEGIN
257: l_select_csr := DBMS_SQL.OPEN_CURSOR;
258: DBMS_SQL.PARSE(l_select_csr, l_text, DBMS_SQL.native);
259: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
260: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
261:
254: END IF;
255:
256: BEGIN
257: l_select_csr := DBMS_SQL.OPEN_CURSOR;
258: DBMS_SQL.PARSE(l_select_csr, l_text, DBMS_SQL.native);
259: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
260: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
261:
262: l_sort_num := 0;
255:
256: BEGIN
257: l_select_csr := DBMS_SQL.OPEN_CURSOR;
258: DBMS_SQL.PARSE(l_select_csr, l_text, DBMS_SQL.native);
259: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
260: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
261:
262: l_sort_num := 0;
263: LOOP
256: BEGIN
257: l_select_csr := DBMS_SQL.OPEN_CURSOR;
258: DBMS_SQL.PARSE(l_select_csr, l_text, DBMS_SQL.native);
259: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
260: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
261:
262: l_sort_num := 0;
263: LOOP
264: IF DBMS_SQL.FETCH_ROWS(l_select_csr) = 0 THEN
260: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
261:
262: l_sort_num := 0;
263: LOOP
264: IF DBMS_SQL.FETCH_ROWS(l_select_csr) = 0 THEN
265: EXIT;
266: END IF;
267:
268: DBMS_SQL.COLUMN_VALUE(l_select_csr, 1, l_agent_ID);
264: IF DBMS_SQL.FETCH_ROWS(l_select_csr) = 0 THEN
265: EXIT;
266: END IF;
267:
268: DBMS_SQL.COLUMN_VALUE(l_select_csr, 1, l_agent_ID);
269:
270: -- insert the cursor record into the l_agents_tbl Table
271: l_sort_num := l_sort_num + 1;
272: p_agent_tbl(l_sort_num) := l_agent_id;
271: l_sort_num := l_sort_num + 1;
272: p_agent_tbl(l_sort_num) := l_agent_id;
273: END LOOP;
274: -- Close the cursor
275: DBMS_SQL.CLOSE_CURSOR(l_select_csr);
276: END;
277:
278: RETURN l_sort_num;
279: EXCEPTION
482: l_query := l_default_select || l_text ;
483: --dbms_output.put_line ('l_dyn_select'|| l_query);
484:
485: BEGIN
486: l_select_csr := DBMS_SQL.OPEN_CURSOR;
487: DBMS_SQL.PARSE(l_select_csr, l_query, DBMS_SQL.native);
488: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
489: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
490:
483: --dbms_output.put_line ('l_dyn_select'|| l_query);
484:
485: BEGIN
486: l_select_csr := DBMS_SQL.OPEN_CURSOR;
487: DBMS_SQL.PARSE(l_select_csr, l_query, DBMS_SQL.native);
488: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
489: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
490:
491: l_sort_num := 0;
484:
485: BEGIN
486: l_select_csr := DBMS_SQL.OPEN_CURSOR;
487: DBMS_SQL.PARSE(l_select_csr, l_query, DBMS_SQL.native);
488: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
489: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
490:
491: l_sort_num := 0;
492: LOOP
485: BEGIN
486: l_select_csr := DBMS_SQL.OPEN_CURSOR;
487: DBMS_SQL.PARSE(l_select_csr, l_query, DBMS_SQL.native);
488: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
489: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
490:
491: l_sort_num := 0;
492: LOOP
493: IF DBMS_SQL.FETCH_ROWS(l_select_csr) = 0 THEN
489: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
490:
491: l_sort_num := 0;
492: LOOP
493: IF DBMS_SQL.FETCH_ROWS(l_select_csr) = 0 THEN
494: EXIT;
495: END IF;
496:
497: DBMS_SQL.COLUMN_VALUE(l_select_csr, 1, l_agent_ID);
493: IF DBMS_SQL.FETCH_ROWS(l_select_csr) = 0 THEN
494: EXIT;
495: END IF;
496:
497: DBMS_SQL.COLUMN_VALUE(l_select_csr, 1, l_agent_ID);
498:
499: -- insert the cursor record into the l_agents_tbl Table
500: l_sort_num := l_sort_num + 1;
501: p_agent_tbl(l_sort_num) := l_agent_id;
500: l_sort_num := l_sort_num + 1;
501: p_agent_tbl(l_sort_num) := l_agent_id;
502: END LOOP;
503: -- Close the cursor
504: DBMS_SQL.CLOSE_CURSOR(l_select_csr);
505: END;
506:
507: RETURN l_sort_num;
508:
557: l_query := l_default_select || l_text ;
558:
559:
560: BEGIN
561: l_select_csr := DBMS_SQL.OPEN_CURSOR;
562: DBMS_SQL.PARSE(l_select_csr, l_query, DBMS_SQL.native);
563: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
564: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
565:
558:
559:
560: BEGIN
561: l_select_csr := DBMS_SQL.OPEN_CURSOR;
562: DBMS_SQL.PARSE(l_select_csr, l_query, DBMS_SQL.native);
563: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
564: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
565:
566: l_sort_num := 0;
559:
560: BEGIN
561: l_select_csr := DBMS_SQL.OPEN_CURSOR;
562: DBMS_SQL.PARSE(l_select_csr, l_query, DBMS_SQL.native);
563: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
564: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
565:
566: l_sort_num := 0;
567: LOOP
560: BEGIN
561: l_select_csr := DBMS_SQL.OPEN_CURSOR;
562: DBMS_SQL.PARSE(l_select_csr, l_query, DBMS_SQL.native);
563: DBMS_SQL.DEFINE_COLUMN(l_select_csr, 1, l_agent_ID);
564: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
565:
566: l_sort_num := 0;
567: LOOP
568: IF DBMS_SQL.FETCH_ROWS(l_select_csr) = 0 THEN
564: l_dummy := DBMS_SQL.EXECUTE(l_select_csr);
565:
566: l_sort_num := 0;
567: LOOP
568: IF DBMS_SQL.FETCH_ROWS(l_select_csr) = 0 THEN
569: EXIT;
570: END IF;
571:
572: DBMS_SQL.COLUMN_VALUE(l_select_csr, 1, l_agent_ID);
568: IF DBMS_SQL.FETCH_ROWS(l_select_csr) = 0 THEN
569: EXIT;
570: END IF;
571:
572: DBMS_SQL.COLUMN_VALUE(l_select_csr, 1, l_agent_ID);
573:
574: -- insert the cursor record into the l_agents_tbl Table
575: l_sort_num := l_sort_num + 1;
576: p_agent_tbl(l_sort_num) := l_agent_id;
575: l_sort_num := l_sort_num + 1;
576: p_agent_tbl(l_sort_num) := l_agent_id;
577: END LOOP;
578: -- Close the cursor
579: DBMS_SQL.CLOSE_CURSOR(l_select_csr);
580: END;
581:
582: RETURN l_sort_num;
583: