!!!Oracle PL/SQL
[[[Oracle Database10g PL/SQL|Oracle Database10g PL/SQL]]]

http://otndnld.oracle.co.jp/document/products/oracle10g/102/doc_cd/appdev.102/B19257-01/overview.html#1310

!!特長

*SQLのデータ操作機能と手続き型言語の処理機能の両方が利用できる。
*プログラム・フローを制御できる。
*変数の宣言、プロシージャとファンクションの定義、ランタイム・エラーのトラップが可能。
*複数のアプリケーション間でその定義済みコードを再利用できる。
*単純なSQLで問題が解決できる場合、PL/SQLプログラム内でSQLコマンドを直接発行できる。
*データ型は、SQLの列型と対応している。

!!ブロック構造

*プログラムを構成する基本単位（プロシージャ、ファンクションおよび無名ブロック）
*内部で相互にネストできる論理ブロック。
*宣言はブロックの中で局所的に有効。

!!変数の宣言

*任意のSQLデータ型(CHAR、DATE、NUMBERなど)や、BOOLEAN、PLS_INTEGERなどのPL/SQL固有のデータ型を持つことがでる。
*宣言部の各行の最後には、セミコロン（;）を付ける。
*コンポジット・データ型TABLE、VARRAY、RECORDを使用して、ネストした表、可変サイズの配列（VARRAY）およびレコードも宣言できる。

 DECLARE
   part_no    NUMBER(6);
   part_name  VARCHAR2(20);
   in_stock   BOOLEAN;
   part_price NUMBER(6,2);
   part_desc  VARCHAR2(50);
!!変数への値の代入

変数に値を代入する方法は3つある。
::コロンに等号を付けた代入演算子（:=）を使用する。
変数は演算子の左に、ファンクション・コールを含む式は演算子の右に置きます。変数を宣言するときに、変数に値を代入できます。

 DECLARE
    wages          NUMBER;
    hours_worked   NUMBER := 40;
    hourly_salary  NUMBER := 22.50;
    bonus          NUMBER := 150;
    country        VARCHAR2(128);
    counter        NUMBER := 0;
    done           BOOLEAN;
    valid_id       BOOLEAN;
    emp_rec1       employees%ROWTYPE;
    emp_rec2       employees%ROWTYPE;
    TYPE commissions IS TABLE OF NUMBER INDEX BY PLS_INTEGER;
    comm_tab       commissions;
 BEGIN
    wages := (hours_worked * hourly_salary) + bonus;
    country := 'France';
    country := UPPER('Canada');
    done := (counter > 100);
    valid_id := TRUE;
    emp_rec1.first_name := 'Antonio';
    emp_rec1.last_name := 'Ortiz';
    emp_rec1 := emp_rec2;
    comm_tab(5) := 20000 * 0.15;
 END;
 /
::データベース値を選択またはフェッチして代入する方法。
 DECLARE
   bonus  NUMBER(8,2);
   emp_id NUMBER(6) := 100;
 BEGIN
   SELECT salary * 0.10 INTO bonus FROM employees 
     WHERE employee_id = emp_id;
 END;
 /
::値をOUTパラメータまたはIN OUTパラメータとしてサブプログラムに渡し、サブプログラム内で代入する方法。

 DECLARE
   new_sal NUMBER(8,2);
   emp_id  NUMBER(6) := 126;
   PROCEDURE adjust_salary(emp_id NUMBER, sal IN OUT NUMBER) IS  
     emp_job VARCHAR2(10);
     avg_sal NUMBER(8,2);
     BEGIN
       SELECT job_id INTO emp_job FROM employees WHERE employee_id = emp_id;
       SELECT AVG(salary) INTO avg_sal FROM employees WHERE job_id = emp_job;
       DBMS_OUTPUT.PUT_LINE ('The average salary for ' || emp_job 
                             || ' employees: ' || TO_CHAR(avg_sal));
       sal := (sal + avg_sal)/2; -- adjust sal value which is returned
     END; 
 BEGIN
   SELECT AVG(salary) INTO new_sal FROM employees;
   DBMS_OUTPUT.PUT_LINE ('The average salary for all employees: ' 
                         || TO_CHAR(new_sal));
   adjust_salary(emp_id, new_sal); -- assigns a new value to new_sal
   DBMS_OUTPUT.PUT_LINE ('The adjusted salary for employee ' || TO_CHAR(emp_id) 
                         || ' is ' || TO_CHAR(new_sal)); -- sal has new value
 END;
 /
!!バインド変数

*SQLのINSERT、UPDATE、DELETEまたはSELECT文を直接埋め込むと、WHERE句およびVALUES句内の変数を自動的にバインド変数に変換する。
*動的SQLの場合は、変数を通常使用する部分（WHERE句やVALUES句など）にバインド変数を指定する。
**リテラルおよび変数値を連結して単一の文字列にするかわりに、変数をバインド変数の名前（先頭にコロンを追加したもの）に置き換え、USING句を使用して対応するPL/SQL変数を指定します。

 'DELETE FROM employees WHERE employee_id = :id' USING emp_id;

!定数の宣言

*キーワードCONSTANTを付ける
*定数に直接値を代入する必要がある。

 credit_limit CONSTANT NUMBER := 5000.00;