前へ	次へ		目次	索引	用語集

procedure CONTEXT

    (pkg_name  IN VARCHAR2,

     proc_name IN VARCHAR2,

     arg1      IN VARCHAR2 DEFAULT '*none*',

     arg2      IN VARCHAR2 DEFAULT '*none*',

     arg3      IN VARCHAR2 DEFAULT '*none*',

     arg4      IN VARCHAR2 DEFAULT '*none*',

     arg5      IN VARCHAR2 DEFAULT '*none*');

説明

エラー・スタックにエントリを追加し、エラー・ソースの検索に役立つコンテキスト情報を入力します。 このプロシージャは、TOKEN()とRAISE()のコールで発生した事前定義済のエラーやカスタム定義の例外で使用したり、またはエラー条件が検出されたときに例外なしで使用できます。

引数（入力）

pkg_name	プロシージャのパッケージ名
proc_name	プロシージャ名または関数名
arg1	最初のIN引数
argn	n番目のIN引数

例1

/*PL/SQL procedures called by function activities can use the WF_CORE APIs to raise and catch errors the same way the Workflow Engine does.*/

package My_Package is



procedure MySubFunction(

  arg1 in varchar2,

  arg2 in varchar2)

is

...

begin

  if (<error condition>) then

    Wf_Core.Token('ARG1', arg1);

    Wf_Core.Token('ARG2', arg2);

    Wf_Core.Raise('ERROR_NAME');

  end if;

  ...

exception

  when others then

    Wf_Core.Context('My_Package', 'MySubFunction', arg1, arg2);

    raise;

end MySubFunction;

procedure MyFunction(

  itemtype in varchar2,

  itemkey in varchar2,

  actid in number,

  funcmode in varchar2,

  result out varchar2)

is

...

begin

  ...

  begin

    MySubFunction(arg1, arg2);

  exception

    when others then

      if (Wf_Core.Error_Name = 'ERROR_NAME') then

        -- This is an error I wish to ignore.

        Wf_Core.Clear;

      else

        raise;

      end if;

   end;

   ...

exception

  when others then

    Wf_Core.Context('My_Package', 'MyFunction', itemtype, itemkey, to_char(actid), funmode);

    raise;

end MyFunction;

関連項目

RAISE