For appeals, questions and feedback about Oracle Forums, please email oracle-forums-moderators_us@oracle.com. Technical questions should be asked in the appropriate category. Thank you!
Interested in getting your voice heard by members of the Developer Marketing team at Oracle? Check out this post for AppDev or this post for AI focus group information.
I have an multi-part SDO_GEOMETRY polyline. How can I get the JSON text representation of that geometry?
CREATE OR REPLACE PACKAGE my_trunc IS PROCEDURE disable_triggers; PROCEDURE enable_triggers; PROCEDURE disable_constraints; PROCEDURE enable_constraints; PROCEDURE truncate_table(p_tabelle IN VARCHAR2); END my_trunc; / CREATE OR REPLACE PACKAGE BODY my_trunc IS PROCEDURE disable_triggers IS cur_name INTEGER; rows_processed INTEGER; BEGIN cur_name := dbms_sql.open_cursor; FOR c_trg IN( SELECT 'ALTER TRIGGER ' || trigger_name || ' DISABLE ' stmnt FROM user_triggers ) LOOP dbms_sql.parse ( cur_name ,c_trg.stmnt ,dbms_sql.v7 ); rows_processed := dbms_sql.execute (cur_name); END LOOP; dbms_sql.close_cursor (cur_name); EXCEPTION WHEN OTHERS THEN dbms_sql.close_cursor (cur_name); RAISE_APPLICATION_ERROR ( -20999 ,'Disable Trigger: '||SUBSTR(SQLERRM, 1, 100)); END disable_triggers; PROCEDURE enable_triggers IS cur_name INTEGER; rows_processed INTEGER; BEGIN cur_name := dbms_sql.open_cursor; FOR c_trg IN ( SELECT 'ALTER TRIGGER ' || trigger_name || ' ENABLE ' stmnt FROM user_triggers ) LOOP dbms_sql.parse ( cur_name ,c_trg.stmnt ,dbms_sql.v7 ); rows_processed := dbms_sql.execute (cur_name); END LOOP; dbms_sql.close_cursor (cur_name); EXCEPTION WHEN OTHERS THEN dbms_sql.close_cursor (cur_name); RAISE_APPLICATION_ERROR ( -20999 ,'Enable Trigger: '||SUBSTR(SQLERRM, 1, 100) ); END enable_triggers; PROCEDURE disable_constraints IS cur_name INTEGER; rows_processed INTEGER; BEGIN cur_name := dbms_sql.open_cursor; FOR c_con IN ( SELECT 'ALTER TABLE ' || table_name || ' DISABLE CONSTRAINT ' || constraint_name || ' ' stmnt FROM user_constraints WHERE constraint_type = 'R' ) LOOP dbms_sql.parse ( cur_name ,c_con.stmnt ,dbms_sql.v7 ); rows_processed := dbms_sql.execute (cur_name); END LOOP; dbms_sql.close_cursor (cur_name); cur_name := dbms_sql.open_cursor; FOR c_con IN ( SELECT 'ALTER TABLE ' || table_name || ' DISABLE CONSTRAINT ' || constraint_name || ' ' stmnt FROM user_constraints WHERE constraint_type != 'R' ) LOOP dbms_sql.parse ( cur_name ,c_con.stmnt ,dbms_sql.v7 ); rows_processed := dbms_sql.execute (cur_name); END LOOP; dbms_sql.close_cursor (cur_name); EXCEPTION WHEN OTHERS THEN dbms_sql.close_cursor (cur_name); RAISE_APPLICATION_ERROR ( -20999 ,'Disable Constraints: '|| SUBSTR(SQLERRM, 1, 100) ); END disable_constraints; PROCEDURE enable_constraints IS cur_name INTEGER; rows_processed INTEGER; BEGIN cur_name := dbms_sql.open_cursor; FOR c_con IN ( SELECT 'ALTER TABLE ' || table_name || ' ENABLE CONSTRAINT ' || constraint_name || ' ' stmnt FROM user_constraints WHERE constraint_type != 'R' ) LOOP dbms_sql.parse ( cur_name ,c_con.stmnt ,dbms_sql.v7 ); rows_processed := dbms_sql.execute (cur_name); END LOOP; dbms_sql.close_cursor (cur_name); cur_name := dbms_sql.open_cursor; FOR c_con IN ( SELECT 'ALTER TABLE ' || table_name || ' ENABLE CONSTRAINT ' || constraint_name || ' ' stmnt FROM user_constraints WHERE constraint_type = 'R' ) LOOP dbms_sql.parse ( cur_name ,c_con.stmnt ,dbms_sql.v7 ); rows_processed := dbms_sql.execute (cur_name); END LOOP; dbms_sql.close_cursor (cur_name); EXCEPTION WHEN OTHERS THEN dbms_sql.close_cursor (cur_name); RAISE_APPLICATION_ERROR ( -20999 ,'Enable Constraints: '|| SUBSTR(SQLERRM, 1, 100) ); END enable_constraints; PROCEDURE truncate_table ( p_tabelle IN VARCHAR2 ) IS cur_name INTEGER; v_statement VARCHAR2(500); rows_processed INTEGER; BEGIN v_statement := 'TRUNCATE TABLE ' || p_tabelle || ' '; cur_name := dbms_sql.open_cursor; dbms_sql.parse ( cur_name ,v_statement ,dbms_sql.v7 ); rows_processed := dbms_sql.execute (cur_name); dbms_sql.close_cursor (cur_name); EXCEPTION WHEN OTHERS THEN dbms_sql.close_cursor (cur_name); RAISE_APPLICATION_ERROR ( -20999 ,'Truncate Table ' || p_tabelle || ': ' || SUBSTR(SQLERRM, 1, 100) ); END truncate_table; END my_trunc; / SHO ERR