8: BEGIN
9: -- set sql statement
10: sql_stmt := p_sql_stmt;
11: -- open a cursor
12: cursor_id := DBMS_SQL.open_cursor;
13: -- parse sql statement
14: DBMS_SQL.parse(cursor_id, sql_stmt, DBMS_SQL.v7);
15: -- execute statement
16: return_val := DBMS_SQL.EXECUTE(cursor_id);
10: sql_stmt := p_sql_stmt;
11: -- open a cursor
12: cursor_id := DBMS_SQL.open_cursor;
13: -- parse sql statement
14: DBMS_SQL.parse(cursor_id, sql_stmt, DBMS_SQL.v7);
15: -- execute statement
16: return_val := DBMS_SQL.EXECUTE(cursor_id);
17: -- close cursor
18: DBMS_SQL.close_cursor(cursor_id);
12: cursor_id := DBMS_SQL.open_cursor;
13: -- parse sql statement
14: DBMS_SQL.parse(cursor_id, sql_stmt, DBMS_SQL.v7);
15: -- execute statement
16: return_val := DBMS_SQL.EXECUTE(cursor_id);
17: -- close cursor
18: DBMS_SQL.close_cursor(cursor_id);
19: END do_sql;
20:
14: DBMS_SQL.parse(cursor_id, sql_stmt, DBMS_SQL.v7);
15: -- execute statement
16: return_val := DBMS_SQL.EXECUTE(cursor_id);
17: -- close cursor
18: DBMS_SQL.close_cursor(cursor_id);
19: END do_sql;
20:
21: /*********************************** DEPRECATED *************************************
22: *********************************** DEPRECATED *************************************
534:
535: IF v_loc_str IS NOT NULL THEN
536: v_parse_str :=
537: 'select ' || v_loc_str || ' from mtl_item_locations where inventory_location_id = :loc_id ' || ' and organization_id = :org_id';
538: dsql_cur := DBMS_SQL.open_cursor;
539: DBMS_SQL.parse(dsql_cur, v_parse_str, DBMS_SQL.native);
540: DBMS_SQL.define_column(dsql_cur, 1, d_data_str, 800);
541: DBMS_SQL.bind_variable(dsql_cur, 'loc_id', x_loc_id);
542: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
535: IF v_loc_str IS NOT NULL THEN
536: v_parse_str :=
537: 'select ' || v_loc_str || ' from mtl_item_locations where inventory_location_id = :loc_id ' || ' and organization_id = :org_id';
538: dsql_cur := DBMS_SQL.open_cursor;
539: DBMS_SQL.parse(dsql_cur, v_parse_str, DBMS_SQL.native);
540: DBMS_SQL.define_column(dsql_cur, 1, d_data_str, 800);
541: DBMS_SQL.bind_variable(dsql_cur, 'loc_id', x_loc_id);
542: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
543: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
536: v_parse_str :=
537: 'select ' || v_loc_str || ' from mtl_item_locations where inventory_location_id = :loc_id ' || ' and organization_id = :org_id';
538: dsql_cur := DBMS_SQL.open_cursor;
539: DBMS_SQL.parse(dsql_cur, v_parse_str, DBMS_SQL.native);
540: DBMS_SQL.define_column(dsql_cur, 1, d_data_str, 800);
541: DBMS_SQL.bind_variable(dsql_cur, 'loc_id', x_loc_id);
542: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
543: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
544:
537: 'select ' || v_loc_str || ' from mtl_item_locations where inventory_location_id = :loc_id ' || ' and organization_id = :org_id';
538: dsql_cur := DBMS_SQL.open_cursor;
539: DBMS_SQL.parse(dsql_cur, v_parse_str, DBMS_SQL.native);
540: DBMS_SQL.define_column(dsql_cur, 1, d_data_str, 800);
541: DBMS_SQL.bind_variable(dsql_cur, 'loc_id', x_loc_id);
542: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
543: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
544:
545: LOOP
538: dsql_cur := DBMS_SQL.open_cursor;
539: DBMS_SQL.parse(dsql_cur, v_parse_str, DBMS_SQL.native);
540: DBMS_SQL.define_column(dsql_cur, 1, d_data_str, 800);
541: DBMS_SQL.bind_variable(dsql_cur, 'loc_id', x_loc_id);
542: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
543: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
544:
545: LOOP
546: IF (DBMS_SQL.fetch_rows(dsql_cur) > 0) THEN
539: DBMS_SQL.parse(dsql_cur, v_parse_str, DBMS_SQL.native);
540: DBMS_SQL.define_column(dsql_cur, 1, d_data_str, 800);
541: DBMS_SQL.bind_variable(dsql_cur, 'loc_id', x_loc_id);
542: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
543: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
544:
545: LOOP
546: IF (DBMS_SQL.fetch_rows(dsql_cur) > 0) THEN
547: DBMS_SQL.column_value(dsql_cur, 1, d_data_str);
542: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
543: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
544:
545: LOOP
546: IF (DBMS_SQL.fetch_rows(dsql_cur) > 0) THEN
547: DBMS_SQL.column_value(dsql_cur, 1, d_data_str);
548: ELSE
549: -- No more rows in cursor
550: DBMS_SQL.close_cursor(dsql_cur);
543: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
544:
545: LOOP
546: IF (DBMS_SQL.fetch_rows(dsql_cur) > 0) THEN
547: DBMS_SQL.column_value(dsql_cur, 1, d_data_str);
548: ELSE
549: -- No more rows in cursor
550: DBMS_SQL.close_cursor(dsql_cur);
551: EXIT;
546: IF (DBMS_SQL.fetch_rows(dsql_cur) > 0) THEN
547: DBMS_SQL.column_value(dsql_cur, 1, d_data_str);
548: ELSE
549: -- No more rows in cursor
550: DBMS_SQL.close_cursor(dsql_cur);
551: EXIT;
552: END IF;
553: END LOOP;
554:
551: EXIT;
552: END IF;
553: END LOOP;
554:
555: IF DBMS_SQL.is_open(dsql_cur) THEN
556: DBMS_SQL.close_cursor(dsql_cur);
557: END IF;
558: END IF;
559:
552: END IF;
553: END LOOP;
554:
555: IF DBMS_SQL.is_open(dsql_cur) THEN
556: DBMS_SQL.close_cursor(dsql_cur);
557: END IF;
558: END IF;
559:
560: /*Bug 4278601