この章では、PL/SQLを使用してデータ・カートリッジのメソッドを実装する方法について説明します。メソッドとは、データ・カートリッジを使用して定義されたデータについて、許可される操作を定義するプロシージャおよびファンクションです。
この章の内容は、次のとおりです。
メソッドとは、オブジェクト型定義の一部で、その型の属性を操作できるプロシージャまたはファンクションのことです。この種のメソッドはメンバー・メソッドとも呼ばれ、オブジェクト型の構成要素として指定するときにキーワードMEMBER
を取ります。
以降の各項では、メソッドの実装、メソッドのコールおよびメソッドでの属性の参照について、単純な例を使用して説明します。
関連項目
|
メソッドを実装するには、PL/SQLコードを作成し、それをCREATE
TYPE
BODY
文で指定します。オブジェクト型にメソッドがない場合、そのオブジェクト型に対するCREATE
TYPE
BODY
文は不要です。
例4-1に、rational_type
オブジェクト型の定義を示します。
例4-1 オブジェクト型の定義方法
CREATE TYPE rational_type AS OBJECT ( numerator INTEGER, denominator INTEGER, MAP MEMBER FUNCTION rat_to_real RETURN REAL, MEMBER PROCEDURE normalize, MEMBER FUNCTION plus (x rational_type) RETURN rational_type);
例4-2の定義は、後述のCREATE
TYPE
BODY
文でnormalize
メソッドの定義に使用するファンクションgcd
を定義しています。
例4-2 「Greatest Common Divisor(最大公約数)」ファンクションの定義方法
CREATE FUNCTION gcd (x INTEGER, y INTEGER) RETURN INTEGER AS -- Find greatest common divisor of x and y. For example, if -- (8,12) is input, the greatest common divisor is 4. -- This will be used in normalizing (simplifying) fractions. -- (You need not try to understand how this code works, unless -- you are a math wizard. It does.) -- ans INTEGER; BEGIN IF (y <= x) AND (x MOD y = 0) THEN ans := y; ELSIF x < y THEN ans := gcd(y, x); -- Recursive call ELSE ans := gcd(y, x MOD y); -- Recursive call END IF; RETURN ans; END;
例4-3の文では、オブジェクト型rational_type
のメソッド(rat_to_real
、normalize
およびplus
)を実装します。
例4-3 オブジェクト型に対するメソッドの実装方法
CREATE TYPE BODY rational_type ( MAP MEMBER FUNCTION rat_to_real RETURN REAL IS -- The rat-to-real function converts a rational number to -- a real number. For example, 6/8 = 0.75 BEGIN RETURN numerator/denominator; END; -- The normalize procedure simplifies a fraction. -- For example, 6/8 = 3/4 MEMBER PROCEDURE normalize IS divisor INTEGER := gcd(numerator, denominator); BEGIN numerator := numerator/divisor; denominator := denominator/divisor; END; -- The plus function adds a specified value to the -- current value and returns a normalized result. -- For example, 1/2 + 3/4 = 5/4 -- MEMBER FUNCTION plus(x rational_type) RETURN rational_type IS -- Return sum of SELF + x BEGIN r = rational_type(numerator*x.demonimator + x.numerator*denominator, denominator*x.denominator); -- Example adding 1/2 to 3/4: -- (3*2 + 1*4) / (4*2) -- Now normalize (simplify). Here, 10/8 = 5/4 r.normalize; RETURN r; END; END;
メソッドをコールするには、例4-4の構文を使用します。
SQL文でのみ例4-5の構文を使用できます。
例4-6に、PL/SQLでのメソッドget_emp_sal
のコール方法を示します。
例4-6 メソッドのコール方法(一般構文)
DECLARE employee employee_type; salary number; ... BEGIN salary := employee.get_emp_sal(); ... END;
メソッドをコールするには、SELF
組込みパラメータを使用する方法もあります。各メソッドの暗黙的な第1パラメータはメソッドのコール対象となるオブジェクトの名前であるため、例4-7では、例4-6のsalary := employee.get_emp_sal();
の行と同じアクションが実行されます。
この例では、employee
はget_emp_sal
メソッドのコール対象となるオブジェクトの名前です。
メンバー・メソッドは修飾子を使用せずに同じオブジェクト型の属性およびメンバー・メソッドを参照できるため、メソッドのコール対象となるオブジェクトには、常に組込み参照SELF
が提供されます。
2つの文で変数var1
の値が42
に設定されている例4-8を考えてみます。
例4-8 変数値の設定方法
CREATE TYPE a_type AS OBJECT ( var1 INTEGER, MEMBER PROCEDURE set_var1); CREATE TYPE BODY a_type ( MEMBER PROCEDURE set_var1 IS BEGIN var1 := 42; SELF.var1 := 42; END set_var1; );
文var1 := 42
およびSELF.var1 := 42
には同じ効果があります。var1
はオブジェクト型a_type
の属性の名前で、set_var1
はこのオブジェクト型のメンバー・メソッドであるため、メソッド・コードでは修飾なしでvar1
にアクセスできます。ただし、コードの読みやすさとメンテナンス性を考慮して、このコンテキストにキーワードSELF
を使用するとvar1
を明確に参照できます。
パッケージとは、PL/SQLの型、オブジェクト、ストアド・プロシージャおよびファンクションのグループです。パッケージの仕様部では、パッケージの直接の有効範囲外で参照可能なパブリックな型、変数、定数およびサブプログラムが宣言されます。パッケージ本体では、仕様部で宣言されたオブジェクトと、パッケージ外部のアプリケーションから参照できないプライベート・オブジェクトが定義されます。
例4-9に、パッケージDS_package
のパッケージ仕様部を示します。このパッケージには2つのストアド・ファンクションds_findmax
およびds_findmax
が含まれており、DataStream
オブジェクト型に対して定義されたDataStreamMin
およびDataStreamMax
ファンクションを実装します。
例4-9 パッケージ仕様部の作成方法
create or replace package DS_package as function ds_findmin(data clob) return pls_integer; function ds_findmax(data clob) return pls_integer; pragma restrict_references(ds_findmin, WNDS, WNPS); pragma restrict_references(ds_findmax, WNDS, WNPS); end;
関連項目
|
メンバー・ファンクションをコールするSQL文を実行するには、Oracleでファンクションの純正レベル、つまりファンクションによる副次効果が生じない範囲が認識される必要があります。副次効果という用語は、読取りまたは書込みのためのデータベース表、パッケージ変数などへのアクセスを指します。副次効果の制御が重要となるのは、問合せの正常なパラレル化を妨げたり、順序依存の(したがって不定な)結果が生成されたり、ユーザー・セッション間でパッケージの状態を維持するなどの許容されないアクションが必要になる可能性があるためです。
SQL文からコールされるメンバー・ファンクションを制限することで次の操作を禁止できます。
データベース表に対する挿入、更新または削除
パッケージ変数の値を読み取るか書き込む場合のリモート実行またはパラレル実行
パッケージ変数の値の書込み(SELECT
、VALUES
またはSET
句からコールされる場合を除く)
前述のいずれかのルールに違反する他のメソッドまたはサブプログラムのコール
前述のいずれかのルールに違反するビューの参照
プラグマRESTRICT_REFERENCES
(コンパイラ・ディレクティブ)を使用して、これらのルールを規定する必要があります。例4-10では、DataStream
型のDataStreamMax
メソッドの純正レベルは、write no database state
(WNDS
)およびwrite no package state
(WNPS
)としてアサートされます。
例4-10 型の純正レベルのアサート方法
CREATE TYPE DataStream AS OBJECT ( .... PRAGMA RESTRICT_REFERENCES (DataStreamMax, WNDS, WNPS) ... );
外部プロシージャの引数にはオブジェクト型を使用できないため、メンバー・メソッドで外部プロシージャをコールする場合は、直接はコールできません。パッケージを介してコールを送る必要があります。メンバー・ファンクションは、自動的に第1引数としてSELF
参照を取得します。したがって、オブジェクト型のメンバー・メソッドで外部プロシージャを直接コールアウトすることはできません。
すべての外部コールをパッケージにまとめる方が設計としては適切です。パッケージの純正レベルもアサートする必要があります。したがって、DS_Package
というパッケージが宣言され、DataStream
型からのすべての外部プロシージャ・コールがこのパッケージを介して送られる場合、例4-11のようにパッケージの純正レベルも宣言されます。
例4-11パッケージの純正レベルのアサート方法
CREATE OR REPLACE PACKAGE DS_Package AS ... PRAGMA RESTRICT_REFERENCES (ds_findmin, WNDS, WNPS) ... end;
WNDS
およびWNPS
の他に、read no database state
(RNDS
)およびread no package state
(RNPS
)という2つの制約も指定できます。通常、この2つの制約が役立つのはパラレル問合せがある場合です。
各制約は相互に依存せず、暗黙的に指定しません。アプリケーション固有の要件に基づいて制約セットを選択してください。
メソッド名またはプロシージャ名のかわりにDEFAULT
キーワードを指定することもできます。その場合、例4-12に示されているように、プラグマは型(またはパッケージのプロシージャ)のすべてのメンバー・ファンクションに適用されます。
例4-12 すべての型のメソッドおよびパッケージ・プロシージャに対するデフォルトの純正レベルのアサート方法
PRAGMA RESTRICT_REFERENCES (DEFAULT, WNDS, WNPS)
関連項目
|
スタンドアロン・プロシージャ、スタンドアロン・ファンクション、パッケージ仕様部または本体を作成するには、スキーマ内でプロシージャまたはパッケージを作成するためのCREATE
PROCEDURE
システム権限、または他のユーザーのスキーマ内でプロシージャまたはパッケージを作成するためのCREATE
ANY
PROCEDURE
システム権限が必要です。
プロシージャまたはパッケージをコンパイルするには、そのプロシージャまたはパッケージの所有者は、コード本体で参照されるすべてのオブジェクトに対して必要なオブジェクト権限を明示的に付与されている必要があります。所有者がロールを介して必要な権限を取得することはできません。
プロシージャおよびファンクションを作成するための権限要件の詳細は、『Oracle Databaseアドバンスト・アプリケーション開発者ガイド』のプロシージャおよびパッケージの使用に関する章を参照してください。
PL/SQLコードをデバッグする場合に最も単純な方法の1つは、SQL*Plusでメソッド、ブロックまたは文を対話形式で個別にテストし、問題があれば修正してから次の文に進むことです。エラー・メッセージの詳細が必要な場合は、SHOW
ERRORS
文を入力します。ランタイム・デバッグ用に文を表示することも考慮してください。例4-13に示されているように、コードにPUT
およびPUTLINE
文を挿入し、変数と式の値を端末に出力することにより、ストアド・プロシージャおよびパッケージのデバッグには、DBMS_OUTPUT
パッケージを使用できます。
PL/SQLトレース・ツールは、アプリケーション・コードの例外条件に関する詳細情報を提供します。このツールを使用すると、サーバー側PL/SQL文の実行をトレースできます。オブジェクト型のメソッドを直接トレースすることはできませんが、メソッドでコールするPL/SQLファンクションまたはプロシージャをトレースできます。また、このトレース・ツールでは、アプリケーション・コードの例外条件に関する情報も提供されます。トレース出力は、Oracleサーバーのトレース・ファイルに書き込まれます。ファイルにアクセスできるのは、データベース管理者のみです。
関連項目
|
CまたはC++プログラマにとっては、複数のPL/SQL表記規則と要件に違いがあります。
=は代入ではなく等号を意味します。
:=はAlgolではなく代入を意味します。
VARRAY
は索引0
ではなく索引1
から始まります。
コメントは//
または/*
ではなく二重ハイフン(--)で始まります。
IF
文にはTHEN
キーワードが必要です。
IF
文にはEND
IF
キーワードが必要です(ELSE
句がある場合はその後に挿入します)。
PRINTF
文はありません。この文に相当する機能はDBMS_OUTPUT
.PUT_LINE
文です。この文では、リテラルと変数のテキストを二重縦線(||
)で区切ります。
ファンクションには戻り値が必要で、プロシージャには戻り値を使用できません。
ファンクションをコールする場合は、代入演算子の右辺に置く必要があります。
PL/SQLキーワードの多くは、変数名として使用できません。
この項では、データ・カートリッジの作成に伴う数種類の誤りについて説明します。
13/19 PLS-00538: subprogram or cursor '<name>' is declared in an object type specification and must be defined in the object type body 15/19 PLS-00539: subprogram '<name>' is declared in an object type body and must be defined in the object type specification
前述のメッセージの一方または両方が表示される場合は、プロシージャまたはファンクションのシグネチャに誤りがあります。つまり、オブジェクト仕様部に入力したファンクションまたはプロシージャのプロトタイプと、オブジェクト本体内の定義に不一致があります。
パラメータの順序、スペル(大/小文字の区別を含む)およびファンクションの戻り値が同一であることを確認してください。入力エラーを防ぐには、コピーおよびペーストを使用します。
ORA-28576: lost RPC connection to external procedure agent ORA-06512: at "<name>", line <number> ORA-06512: at "<name>", line <number> ORA-06512: at line 34
このエラーは、DLLのデバッガを終了した後に発生する場合があります。デバッガの外でプログラムを再起動してください。
ERROR at line 1: ORA-04068: existing state of packages has been discarded ORA-04063: package body "<name>" has errors ORA-06508: PL/SQL: could not find program unit being called ORA-06512: at "<name>", line <number> ORA-06512: at line <number>
このエラーは、既存のデータ・カートリッジを拡張する際に発生することがあります。これは、パッケージが破損しており、再コンパイルする必要があることを示します。
再コンパイルを実行する前に、対象となるパッケージに依存する表およびオブジェクト型をすべて削除する必要があります。Windows NTシステム上で依存性を検索するには、Oracle Administratorツールバーを使用します。「スキーマ」ボタンをクリックし、sys\change_on_installとしてログインし、作成したパッケージと表を検索します。SQL*Plusインタフェースに次の書式のSQL文を入力して、これらのパッケージおよび表を削除します。
Drop type <type_name>; Drop table <table_name> cascade constraints;
これで、次の書式のSQL文を使用して再コンパイルを実行できます。
Alter type <type_name> compile body; or Alter type <type_name> compile specification;