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 *************************************
702:
703: IF v_loc_str IS NOT NULL THEN
704: v_parse_str :=
705: 'select ' || v_loc_str || ' from mtl_item_locations where inventory_location_id = :loc_id ' || ' and organization_id = :org_id';
706: dsql_cur := DBMS_SQL.open_cursor;
707: DBMS_SQL.parse(dsql_cur, v_parse_str, DBMS_SQL.native);
708: DBMS_SQL.define_column(dsql_cur, 1, d_data_str, 800);
709: DBMS_SQL.bind_variable(dsql_cur, 'loc_id', x_loc_id);
710: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
703: IF v_loc_str IS NOT NULL THEN
704: v_parse_str :=
705: 'select ' || v_loc_str || ' from mtl_item_locations where inventory_location_id = :loc_id ' || ' and organization_id = :org_id';
706: dsql_cur := DBMS_SQL.open_cursor;
707: DBMS_SQL.parse(dsql_cur, v_parse_str, DBMS_SQL.native);
708: DBMS_SQL.define_column(dsql_cur, 1, d_data_str, 800);
709: DBMS_SQL.bind_variable(dsql_cur, 'loc_id', x_loc_id);
710: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
711: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
704: v_parse_str :=
705: 'select ' || v_loc_str || ' from mtl_item_locations where inventory_location_id = :loc_id ' || ' and organization_id = :org_id';
706: dsql_cur := DBMS_SQL.open_cursor;
707: DBMS_SQL.parse(dsql_cur, v_parse_str, DBMS_SQL.native);
708: DBMS_SQL.define_column(dsql_cur, 1, d_data_str, 800);
709: DBMS_SQL.bind_variable(dsql_cur, 'loc_id', x_loc_id);
710: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
711: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
712:
705: 'select ' || v_loc_str || ' from mtl_item_locations where inventory_location_id = :loc_id ' || ' and organization_id = :org_id';
706: dsql_cur := DBMS_SQL.open_cursor;
707: DBMS_SQL.parse(dsql_cur, v_parse_str, DBMS_SQL.native);
708: DBMS_SQL.define_column(dsql_cur, 1, d_data_str, 800);
709: DBMS_SQL.bind_variable(dsql_cur, 'loc_id', x_loc_id);
710: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
711: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
712:
713: LOOP
706: dsql_cur := DBMS_SQL.open_cursor;
707: DBMS_SQL.parse(dsql_cur, v_parse_str, DBMS_SQL.native);
708: DBMS_SQL.define_column(dsql_cur, 1, d_data_str, 800);
709: DBMS_SQL.bind_variable(dsql_cur, 'loc_id', x_loc_id);
710: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
711: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
712:
713: LOOP
714: IF (DBMS_SQL.fetch_rows(dsql_cur) > 0) THEN
707: DBMS_SQL.parse(dsql_cur, v_parse_str, DBMS_SQL.native);
708: DBMS_SQL.define_column(dsql_cur, 1, d_data_str, 800);
709: DBMS_SQL.bind_variable(dsql_cur, 'loc_id', x_loc_id);
710: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
711: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
712:
713: LOOP
714: IF (DBMS_SQL.fetch_rows(dsql_cur) > 0) THEN
715: DBMS_SQL.column_value(dsql_cur, 1, d_data_str);
710: DBMS_SQL.bind_variable(dsql_cur, 'org_id', x_org_id);
711: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
712:
713: LOOP
714: IF (DBMS_SQL.fetch_rows(dsql_cur) > 0) THEN
715: DBMS_SQL.column_value(dsql_cur, 1, d_data_str);
716: ELSE
717: -- No more rows in cursor
718: DBMS_SQL.close_cursor(dsql_cur);
711: rows_processed := DBMS_SQL.EXECUTE(dsql_cur);
712:
713: LOOP
714: IF (DBMS_SQL.fetch_rows(dsql_cur) > 0) THEN
715: DBMS_SQL.column_value(dsql_cur, 1, d_data_str);
716: ELSE
717: -- No more rows in cursor
718: DBMS_SQL.close_cursor(dsql_cur);
719: EXIT;
714: IF (DBMS_SQL.fetch_rows(dsql_cur) > 0) THEN
715: DBMS_SQL.column_value(dsql_cur, 1, d_data_str);
716: ELSE
717: -- No more rows in cursor
718: DBMS_SQL.close_cursor(dsql_cur);
719: EXIT;
720: END IF;
721: END LOOP;
722:
719: EXIT;
720: END IF;
721: END LOOP;
722:
723: IF DBMS_SQL.is_open(dsql_cur) THEN
724: DBMS_SQL.close_cursor(dsql_cur);
725: END IF;
726: END IF;
727:
720: END IF;
721: END LOOP;
722:
723: IF DBMS_SQL.is_open(dsql_cur) THEN
724: DBMS_SQL.close_cursor(dsql_cur);
725: END IF;
726: END IF;
727:
728: /*Bug 4278601