49: D4 NUMBER;
50:
51:
52: BEGIN
53: results_cursor := dbms_sql.open_cursor;
54: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
55: dbms_sql.define_column (results_cursor, 1, result);
56:
57: ignore := dbms_sql.execute(results_cursor);
50:
51:
52: BEGIN
53: results_cursor := dbms_sql.open_cursor;
54: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
55: dbms_sql.define_column (results_cursor, 1, result);
56:
57: ignore := dbms_sql.execute(results_cursor);
58:
51:
52: BEGIN
53: results_cursor := dbms_sql.open_cursor;
54: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
55: dbms_sql.define_column (results_cursor, 1, result);
56:
57: ignore := dbms_sql.execute(results_cursor);
58:
59: i := 0;
53: results_cursor := dbms_sql.open_cursor;
54: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
55: dbms_sql.define_column (results_cursor, 1, result);
56:
57: ignore := dbms_sql.execute(results_cursor);
58:
59: i := 0;
60: LOOP
61: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
57: ignore := dbms_sql.execute(results_cursor);
58:
59: i := 0;
60: LOOP
61: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
62: i := i + 1;
63: dbms_sql.column_value(results_cursor, 1, result);
64:
65: temp_results(i) := result;
59: i := 0;
60: LOOP
61: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
62: i := i + 1;
63: dbms_sql.column_value(results_cursor, 1, result);
64:
65: temp_results(i) := result;
66:
67: ELSE
68: -- no more results to fetch
69: exit;
70: END IF;
71: END LOOP;
72: dbms_sql.close_cursor(results_cursor);
73:
74: rows_retrieved := i;
75: IF rows_retrieved = 0 THEN
76: -- no results entered
233: B4 NUMBER;
234:
235:
236: BEGIN
237: results_cursor := dbms_sql.open_cursor;
238: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
239: dbms_sql.define_column (results_cursor, 1, result);
240:
241: ignore := dbms_sql.execute(results_cursor);
234:
235:
236: BEGIN
237: results_cursor := dbms_sql.open_cursor;
238: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
239: dbms_sql.define_column (results_cursor, 1, result);
240:
241: ignore := dbms_sql.execute(results_cursor);
242:
235:
236: BEGIN
237: results_cursor := dbms_sql.open_cursor;
238: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
239: dbms_sql.define_column (results_cursor, 1, result);
240:
241: ignore := dbms_sql.execute(results_cursor);
242:
243: i := 0;
237: results_cursor := dbms_sql.open_cursor;
238: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
239: dbms_sql.define_column (results_cursor, 1, result);
240:
241: ignore := dbms_sql.execute(results_cursor);
242:
243: i := 0;
244: LOOP
245: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
241: ignore := dbms_sql.execute(results_cursor);
242:
243: i := 0;
244: LOOP
245: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
246: i := i + 1;
247: dbms_sql.column_value(results_cursor, 1, result);
248:
249: temp_results(i) := result;
243: i := 0;
244: LOOP
245: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
246: i := i + 1;
247: dbms_sql.column_value(results_cursor, 1, result);
248:
249: temp_results(i) := result;
250:
251: ELSE
252: -- no more results to fetch
253: exit;
254: END IF;
255: END LOOP;
256: dbms_sql.close_cursor(results_cursor);
257:
258: rows_retrieved := i;
259:
260: -- determine the first data point to use
403:
404:
405: BEGIN
406:
407: results_cursor := dbms_sql.open_cursor;
408: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
409: dbms_sql.define_column (results_cursor, 1, result);
410:
411: ignore := dbms_sql.execute(results_cursor);
404:
405: BEGIN
406:
407: results_cursor := dbms_sql.open_cursor;
408: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
409: dbms_sql.define_column (results_cursor, 1, result);
410:
411: ignore := dbms_sql.execute(results_cursor);
412:
405: BEGIN
406:
407: results_cursor := dbms_sql.open_cursor;
408: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
409: dbms_sql.define_column (results_cursor, 1, result);
410:
411: ignore := dbms_sql.execute(results_cursor);
412:
413: i := 0;
407: results_cursor := dbms_sql.open_cursor;
408: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
409: dbms_sql.define_column (results_cursor, 1, result);
410:
411: ignore := dbms_sql.execute(results_cursor);
412:
413: i := 0;
414: LOOP
415: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
411: ignore := dbms_sql.execute(results_cursor);
412:
413: i := 0;
414: LOOP
415: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
416: i := i + 1;
417: dbms_sql.column_value(results_cursor, 1, result);
418:
419: temp_results(i) := result;
413: i := 0;
414: LOOP
415: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
416: i := i + 1;
417: dbms_sql.column_value(results_cursor, 1, result);
418:
419: temp_results(i) := result;
420:
421: ELSE
422: -- no more results to fetch
423: exit;
424: END IF;
425: END LOOP;
426: dbms_sql.close_cursor(results_cursor);
427:
428: rows_retrieved := i;
429:
430: -- determine the first data point to use
630: --commit;
631:
632: --insert into jc_temp values (sql_string);
633: --commit;
634: results_cursor := dbms_sql.open_cursor;
635: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
636: dbms_sql.define_column (results_cursor, 1, result);
637:
638: ignore := dbms_sql.execute(results_cursor);
631:
632: --insert into jc_temp values (sql_string);
633: --commit;
634: results_cursor := dbms_sql.open_cursor;
635: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
636: dbms_sql.define_column (results_cursor, 1, result);
637:
638: ignore := dbms_sql.execute(results_cursor);
639:
632: --insert into jc_temp values (sql_string);
633: --commit;
634: results_cursor := dbms_sql.open_cursor;
635: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
636: dbms_sql.define_column (results_cursor, 1, result);
637:
638: ignore := dbms_sql.execute(results_cursor);
639:
640: i := 0;
634: results_cursor := dbms_sql.open_cursor;
635: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
636: dbms_sql.define_column (results_cursor, 1, result);
637:
638: ignore := dbms_sql.execute(results_cursor);
639:
640: i := 0;
641: LOOP
642: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
638: ignore := dbms_sql.execute(results_cursor);
639:
640: i := 0;
641: LOOP
642: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
643: i := i + 1;
644: dbms_sql.column_value(results_cursor, 1, result);
645:
646: temp_results(i) := result;
640: i := 0;
641: LOOP
642: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
643: i := i + 1;
644: dbms_sql.column_value(results_cursor, 1, result);
645:
646: temp_results(i) := result;
647:
648: --insert into jc_temp values ('temp_results(i): ' || to_char(temp_results(i)));
652: -- no more results to fetch
653: exit;
654: END IF;
655: END LOOP;
656: dbms_sql.close_cursor(results_cursor);
657:
658: rows_retrieved := i;
659:
660: --insert into jc_temp values ('rows_retrieved: ' || to_char (i));
869: boundary numbertable; -- holds boundary values of bars
870: occurrences numbertable;
871:
872: BEGIN
873: results_cursor := dbms_sql.open_cursor;
874: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
875: dbms_sql.define_column (results_cursor, 1, result);
876:
877: ignore := dbms_sql.execute(results_cursor);
870: occurrences numbertable;
871:
872: BEGIN
873: results_cursor := dbms_sql.open_cursor;
874: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
875: dbms_sql.define_column (results_cursor, 1, result);
876:
877: ignore := dbms_sql.execute(results_cursor);
878:
871:
872: BEGIN
873: results_cursor := dbms_sql.open_cursor;
874: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
875: dbms_sql.define_column (results_cursor, 1, result);
876:
877: ignore := dbms_sql.execute(results_cursor);
878:
879: i := 0;
873: results_cursor := dbms_sql.open_cursor;
874: dbms_sql.parse (results_cursor, sql_string, dbms_sql.v7);
875: dbms_sql.define_column (results_cursor, 1, result);
876:
877: ignore := dbms_sql.execute(results_cursor);
878:
879: i := 0;
880: LOOP
881: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
877: ignore := dbms_sql.execute(results_cursor);
878:
879: i := 0;
880: LOOP
881: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
882: i := i + 1;
883: dbms_sql.column_value(results_cursor, 1, result);
884:
885: temp_results(i) := result;
879: i := 0;
880: LOOP
881: IF dbms_sql.fetch_rows (results_cursor) > 0 THEN
882: i := i + 1;
883: dbms_sql.column_value(results_cursor, 1, result);
884:
885: temp_results(i) := result;
886: ELSE
887: -- no more results to fetch
887: -- no more results to fetch
888: exit;
889: END IF;
890: END LOOP;
891: dbms_sql.close_cursor(results_cursor);
892:
893: rows_retrieved := i;
894:
895: --