2886: v_f3 VARCHAR2(10);
2887: v_f4 VARCHAR2(10);
2888: v_set1 BINARY_INTEGER;
2889: BEGIN
2890: v_cursor := DBMS_SQL.OPEN_CURSOR;
2891: /*
2892: only select allowed
2893: */
2894: DBMS_SQL.PARSE(v_cursor,
2890: v_cursor := DBMS_SQL.OPEN_CURSOR;
2891: /*
2892: only select allowed
2893: */
2894: DBMS_SQL.PARSE(v_cursor,
2895: 'SELECT'||SUBSTR(LTRIM(p_select_string),7),
2896: dbms_sql.v7);
2897: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_f1,10);
2898: DBMS_SQL.DEFINE_COLUMN(v_cursor,2,v_f2,10);
2892: only select allowed
2893: */
2894: DBMS_SQL.PARSE(v_cursor,
2895: 'SELECT'||SUBSTR(LTRIM(p_select_string),7),
2896: dbms_sql.v7);
2897: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_f1,10);
2898: DBMS_SQL.DEFINE_COLUMN(v_cursor,2,v_f2,10);
2899: DBMS_SQL.DEFINE_COLUMN(v_cursor,3,v_f3,10);
2900: DBMS_SQL.DEFINE_COLUMN(v_cursor,4,v_f4,10);
2893: */
2894: DBMS_SQL.PARSE(v_cursor,
2895: 'SELECT'||SUBSTR(LTRIM(p_select_string),7),
2896: dbms_sql.v7);
2897: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_f1,10);
2898: DBMS_SQL.DEFINE_COLUMN(v_cursor,2,v_f2,10);
2899: DBMS_SQL.DEFINE_COLUMN(v_cursor,3,v_f3,10);
2900: DBMS_SQL.DEFINE_COLUMN(v_cursor,4,v_f4,10);
2901: v_rows := DBMS_SQL.EXECUTE(v_cursor);
2894: DBMS_SQL.PARSE(v_cursor,
2895: 'SELECT'||SUBSTR(LTRIM(p_select_string),7),
2896: dbms_sql.v7);
2897: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_f1,10);
2898: DBMS_SQL.DEFINE_COLUMN(v_cursor,2,v_f2,10);
2899: DBMS_SQL.DEFINE_COLUMN(v_cursor,3,v_f3,10);
2900: DBMS_SQL.DEFINE_COLUMN(v_cursor,4,v_f4,10);
2901: v_rows := DBMS_SQL.EXECUTE(v_cursor);
2902: v_set1 := new_set;
2895: 'SELECT'||SUBSTR(LTRIM(p_select_string),7),
2896: dbms_sql.v7);
2897: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_f1,10);
2898: DBMS_SQL.DEFINE_COLUMN(v_cursor,2,v_f2,10);
2899: DBMS_SQL.DEFINE_COLUMN(v_cursor,3,v_f3,10);
2900: DBMS_SQL.DEFINE_COLUMN(v_cursor,4,v_f4,10);
2901: v_rows := DBMS_SQL.EXECUTE(v_cursor);
2902: v_set1 := new_set;
2903: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
2896: dbms_sql.v7);
2897: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_f1,10);
2898: DBMS_SQL.DEFINE_COLUMN(v_cursor,2,v_f2,10);
2899: DBMS_SQL.DEFINE_COLUMN(v_cursor,3,v_f3,10);
2900: DBMS_SQL.DEFINE_COLUMN(v_cursor,4,v_f4,10);
2901: v_rows := DBMS_SQL.EXECUTE(v_cursor);
2902: v_set1 := new_set;
2903: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
2904: LOOP
2897: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_f1,10);
2898: DBMS_SQL.DEFINE_COLUMN(v_cursor,2,v_f2,10);
2899: DBMS_SQL.DEFINE_COLUMN(v_cursor,3,v_f3,10);
2900: DBMS_SQL.DEFINE_COLUMN(v_cursor,4,v_f4,10);
2901: v_rows := DBMS_SQL.EXECUTE(v_cursor);
2902: v_set1 := new_set;
2903: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
2904: LOOP
2905: DBMS_SQL.COLUMN_VALUE(v_cursor,1,v_f1);
2899: DBMS_SQL.DEFINE_COLUMN(v_cursor,3,v_f3,10);
2900: DBMS_SQL.DEFINE_COLUMN(v_cursor,4,v_f4,10);
2901: v_rows := DBMS_SQL.EXECUTE(v_cursor);
2902: v_set1 := new_set;
2903: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
2904: LOOP
2905: DBMS_SQL.COLUMN_VALUE(v_cursor,1,v_f1);
2906: DBMS_SQL.COLUMN_VALUE(v_cursor,2,v_f2);
2907: DBMS_SQL.COLUMN_VALUE(v_cursor,3,v_f3);
2901: v_rows := DBMS_SQL.EXECUTE(v_cursor);
2902: v_set1 := new_set;
2903: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
2904: LOOP
2905: DBMS_SQL.COLUMN_VALUE(v_cursor,1,v_f1);
2906: DBMS_SQL.COLUMN_VALUE(v_cursor,2,v_f2);
2907: DBMS_SQL.COLUMN_VALUE(v_cursor,3,v_f3);
2908: DBMS_SQL.COLUMN_VALUE(v_cursor,4,v_f4);
2909: -- passing null string for f5, as the make_set rule is not used in the context of unit attempt
2902: v_set1 := new_set;
2903: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
2904: LOOP
2905: DBMS_SQL.COLUMN_VALUE(v_cursor,1,v_f1);
2906: DBMS_SQL.COLUMN_VALUE(v_cursor,2,v_f2);
2907: DBMS_SQL.COLUMN_VALUE(v_cursor,3,v_f3);
2908: DBMS_SQL.COLUMN_VALUE(v_cursor,4,v_f4);
2909: -- passing null string for f5, as the make_set rule is not used in the context of unit attempt
2910: v_set1 := add_member(v_set1,v_f1,v_f2,v_f3,v_f4,'');
2903: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
2904: LOOP
2905: DBMS_SQL.COLUMN_VALUE(v_cursor,1,v_f1);
2906: DBMS_SQL.COLUMN_VALUE(v_cursor,2,v_f2);
2907: DBMS_SQL.COLUMN_VALUE(v_cursor,3,v_f3);
2908: DBMS_SQL.COLUMN_VALUE(v_cursor,4,v_f4);
2909: -- passing null string for f5, as the make_set rule is not used in the context of unit attempt
2910: v_set1 := add_member(v_set1,v_f1,v_f2,v_f3,v_f4,'');
2911: END LOOP;
2904: LOOP
2905: DBMS_SQL.COLUMN_VALUE(v_cursor,1,v_f1);
2906: DBMS_SQL.COLUMN_VALUE(v_cursor,2,v_f2);
2907: DBMS_SQL.COLUMN_VALUE(v_cursor,3,v_f3);
2908: DBMS_SQL.COLUMN_VALUE(v_cursor,4,v_f4);
2909: -- passing null string for f5, as the make_set rule is not used in the context of unit attempt
2910: v_set1 := add_member(v_set1,v_f1,v_f2,v_f3,v_f4,'');
2911: END LOOP;
2912: DBMS_SQL.CLOSE_CURSOR(v_cursor);
2908: DBMS_SQL.COLUMN_VALUE(v_cursor,4,v_f4);
2909: -- passing null string for f5, as the make_set rule is not used in the context of unit attempt
2910: v_set1 := add_member(v_set1,v_f1,v_f2,v_f3,v_f4,'');
2911: END LOOP;
2912: DBMS_SQL.CLOSE_CURSOR(v_cursor);
2913: RETURN v_set1;
2914: END make_set;
2915: /*
2916: if version number exists in version string
5394: v_cursor INTEGER;
5395: v_rows INTEGER;
5396: v_value VARCHAR2(4000);
5397: BEGIN
5398: v_cursor := DBMS_SQL.OPEN_CURSOR;
5399: /*
5400: only select allowed
5401: */
5402: DBMS_SQL.PARSE(v_cursor,
5398: v_cursor := DBMS_SQL.OPEN_CURSOR;
5399: /*
5400: only select allowed
5401: */
5402: DBMS_SQL.PARSE(v_cursor,
5403: 'SELECT'||SUBSTR(LTRIM(p_select_string),7),
5404: dbms_sql.native);
5405: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_value,4000);
5406: v_rows := DBMS_SQL.EXECUTE(v_cursor);
5400: only select allowed
5401: */
5402: DBMS_SQL.PARSE(v_cursor,
5403: 'SELECT'||SUBSTR(LTRIM(p_select_string),7),
5404: dbms_sql.native);
5405: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_value,4000);
5406: v_rows := DBMS_SQL.EXECUTE(v_cursor);
5407: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
5408: LOOP
5401: */
5402: DBMS_SQL.PARSE(v_cursor,
5403: 'SELECT'||SUBSTR(LTRIM(p_select_string),7),
5404: dbms_sql.native);
5405: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_value,4000);
5406: v_rows := DBMS_SQL.EXECUTE(v_cursor);
5407: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
5408: LOOP
5409: DBMS_SQL.COLUMN_VALUE(v_cursor,1,v_value);
5402: DBMS_SQL.PARSE(v_cursor,
5403: 'SELECT'||SUBSTR(LTRIM(p_select_string),7),
5404: dbms_sql.native);
5405: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_value,4000);
5406: v_rows := DBMS_SQL.EXECUTE(v_cursor);
5407: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
5408: LOOP
5409: DBMS_SQL.COLUMN_VALUE(v_cursor,1,v_value);
5410: END LOOP;
5403: 'SELECT'||SUBSTR(LTRIM(p_select_string),7),
5404: dbms_sql.native);
5405: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_value,4000);
5406: v_rows := DBMS_SQL.EXECUTE(v_cursor);
5407: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
5408: LOOP
5409: DBMS_SQL.COLUMN_VALUE(v_cursor,1,v_value);
5410: END LOOP;
5411: DBMS_SQL.CLOSE_CURSOR(v_cursor);
5405: DBMS_SQL.DEFINE_COLUMN(v_cursor,1,v_value,4000);
5406: v_rows := DBMS_SQL.EXECUTE(v_cursor);
5407: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
5408: LOOP
5409: DBMS_SQL.COLUMN_VALUE(v_cursor,1,v_value);
5410: END LOOP;
5411: DBMS_SQL.CLOSE_CURSOR(v_cursor);
5412: RETURN v_value;
5413: END evaluate_sql;
5407: WHILE DBMS_SQL.FETCH_ROWS(v_cursor) > 0
5408: LOOP
5409: DBMS_SQL.COLUMN_VALUE(v_cursor,1,v_value);
5410: END LOOP;
5411: DBMS_SQL.CLOSE_CURSOR(v_cursor);
5412: RETURN v_value;
5413: END evaluate_sql;
5414: /*
5415: