＃副標＝Oracle 10g系列專欄（5）
＃大標＝ Oracle 10g的PL/SQL增強功能
＃作者＝文／何致億

=======<box>================
＃程式1
ALTER SESSION SET PLSQL_DEBUG=true;
Session altered.

ALTER SESSION SET PLSQL_OPTIMIZE_LEVEL = 1;
Session altered.

ALTER SESSION SET PLSQL_CODE_TYPE='NATIVE';
Session altered.

CREATE OR REPLACE PROCEDURE add_order_history
( p_orderid    order_history.orderid%type,
  p_customerid order_history.customerid%type,
  p_orderdate  order_history.orderdate%type
)
IS
BEGIN
 INSERT INTO order_history 
             (orderid, customerid, orderdate)
 VALUES(p_orderid, p_customerid, p_orderdate);
 END add_order_history;
/

SELECT name, type, plsql_debug,
       plsql_code_type CODE_TYPE,
       plsql_optimize_level OPT_LEVEL
FROM user_plsql_object_settings;


NAME              TYPE      PLSQL_DEBUG  CODE_TYPE  OPT_LEVEL
----------------- --------- ------------ ---------- ---------
ADD_ORDER_HISTORY PROCEDURE TRUE         NATIVE     1