Oracle Applications開発者ガイド リリース12 E06048-01

目次

前へ

次へ

コンカレント処理のPL/SQL API

概要

この項では、クライアント側とサーバー側のどちらのPL/SQLプロシージャでも使用できるコンカレント処理APIについて説明します。また、これらのコンカレント処理APIを使用したPL/SQLプロシージャの例も取り上げます。

この項では、次のコンカレント処理パッケージについて説明します。

• FND_CONC_GLOBAL.REQUEST_DATA: サブ要求の発行

• FND_CONCURRENT: 発行済要求の情報

• FND_FILE: PL/SQL: ファイルI/O

• FND_PROGRAM: コンカレント・プログラム・ローダー

• FND_SET: 要求セット・ローダー

• FND_REQUEST: コンカレント・プログラム発行

• FND_REQUEST_INFO: 情報の要求

• FND_SUBMIT: 要求セットの発行

FND_CONC_GLOBALパッケージ

このパッケージを使用して、PL/SQLコンカレント・プログラムからサブ要求を発行します。

FND_CONC_GLOBAL.REQUEST_DATA

function FND_CONC_GLOBAL.REQUEST_DATA return varchar2;

FND_CONC_GLOBAL.SET_REQ_GLOBALS

procedure SET_REQ_GLOBALS        (conc_status        in varchar2 default null,

                                                                                   request_data        in varchar2 default null,

                                                                                 conc_restart_time in varchar2 default null,

                                                                                  release_sub_request in varchar2 default null);           

例

/*

 * This is sample PL/SQL concurrent program submits 10

 * sub-requests. The sub-requests are submitted one at a

 * time.  Each time a sub-request is submitted, the parent

 * exits to the Running/Paused state, so that it does not

 * consume any resources while waiting for the child

 * request, to complete.  When the child completes the

 * parent is restarted.

 */

create or replace procedure parent  (errbuf out varchar2,

                                 retcode   out number) is

   i number;

   req_data varchar2(10);

   r number;



begin

   --

   -- Read the value from REQUEST_DATA.  If this is the

   -- first run of the program, then this value will be

   -- null.

   -- Otherwise, this will be the value that we passed to

   -- SET_REQ_GLOBALS on the previous run.

   --

   req_data := fnd_conc_global.request_data;



   --

   -- If this is the first run, we'll set i = 1.

   -- Otherwise, we'll set i = request_data + 1, and we'll

   -- exit if we're done.

   --

   if (req_data is not null) then

     i := to_number(req_data);

     i := i + 1;

     if (i < 11  ) then

       errbuf := 'Done!';

       retcode := 0 ;

       return;

     end if;

   else

     i := 1;

   end if;



   --

   -- Submit the child request.  The sub_request parameter

   -- must be set to 'Y'.

   --

   r := fnd_request.submit_request('FND', 'CHILD',

                        'Child ' || to_char(i), NULL,

                        TRUE, fnd_conc_global.printer);



   if r = 0 then

     --

     -- If request submission failed, exit with error.

     --

     errbuf := fnd_message.get;

     retcode := 2;

   else

     --

     -- Here we set the globals to put the program into the

     -- PAUSED status on exit, and to save the state in

     -- request_data.

     --

    fnd_conc_global.set_req_globals(conc_status => 'PAUSED',

                                request_data => to_char(i));

    errbuf := 'Sub-Request submitted!';

    retcode := 0 ;

   end if;



   return;



end;

FND_CONCURRENTパッケージ

FND_CONCURRENT.AF_COMMIT

function FND_CONCURRENT.AF_COMMIT;

指定されたロールバック・セグメントに対しFND_CONCURRENT.AF_COMMITがCOMMITコマンドを実行します。

FND_CONCURRENT.AF_COMMITには引数はありません。

FND_CONCURRENT.AF_ROLLBACK

function FND_CONCURRENT.AF_ROLLBACK;

FND_CONCURRENT.GET_REQUEST_STATUS（クライアントまたはサーバー）

function FND_CONCURRENT.GET_REQUEST_STATUS



        (request_id        IN OUT number,

         application        IN varchar2 default NULL,

         program                        IN varchar2 default NULL,

         phase                        OUT varchar2,

         status                        OUT varchar2,

         dev_phase                OUT varchar2,

         dev_status        OUT varchar2,

         message                        OUT varchar2)

return boolean;

例

 call_status boolean;

        rphase      varchar2(80);

        rstatus     varchar2(80);

        dphase      varchar2(30);

        dstatus     varchar2(30);

        message     varchar2(240);



        call_status :=

                 FND_CONCURRENT.GET_REQUEST_STATUS(<Request_ID>, '', '',

                 rphase,rstatus,dphase,dstatus, message);

    end;

上の例では、rphaseおよびrstatusは「コンカレント要求」フォームに表示されるものと同じフェーズとステータス値を受け取ります。完了済の要求の完了テキストはメッセージ内に返されます。

要求の結果に基づいてプログラムのフローを制御する場合には、開発者は要求のフェーズとステータスと比較する値として次の値を使用する必要があります。

次の表はdev_phaseおよびdev_statusについての可能な値とその説明をリストしたものです。

FND_CONCURRENT.WAIT_FOR_REQUEST（クライアントまたはサーバー）

function FND_CONCURRENT.WAIT_FOR_REQUEST



(request_id IN number default NULL,

          interval   IN number default 60,

          max_wait   IN number default 0,

          phase      OUT varchar2,

          status     OUT varchar2,

          dev_phase  OUT varchar2,

          dev_status OUT varchar2,

          message    OUT varchar2) return  boolean;

FND_CONCURRENT.SET_COMPLETION_STATUS（サーバー）

function FND_CONCURRENT.SET_COMPLETION_STATUS



(status                IN varchar2,

 message        IN varchar2) return boolean;

FND_FILE: PL/SQLファイルI/O

FND_FILEパッケージには、ログ・ファイルおよび出力ファイルへテキストを書き込むためのプロシージャが含まれています。これらのプロシージャはすべてのタイプのコンカレント・プログラムでサポートされています。

テストおよびデバッグには、プロシージャFND_FILE.PUT_NAMESおよびFND_FILE.CLOSEを使用できます。これらの2つのプロシージャをコンカレント・プログラムからコールしないように注意してください。

FND_FILEは、ログ・ファイルおよび出力ファイルどちらについても、最大で32Kまでのバッファ行サイズをサポートしています。

重要: このパッケージは汎用PL/SQLテキストI/O用に設計されたものではなく、要求ログ・ファイルおよび出力ファイルに書き込むためにのみ設計されています。

関連項目: PL/SQLファイルの入出力処理

FND_FILE.PUT

procedure FND_FILE.PUT



 (which  IN NUMBER,

  buff         IN VARCHAR2);

FND_FILE.PUT_LINE

procedure FND_FILE.PUT_LINE

 (which        IN NUMBER,

  buff        IN        VARCHAR2);

例

メッセージ・ディクショナリを使用してサーバーに設定済のメッセージを取得し、それをログ・ファイルに書き込みます。（これにより、ログ・ファイルに翻訳済のメッセージを含めることができます。）

 FND_FILE.PUT_LINE( FND_FILE.LOG, fnd_message.get );

テキスト行を直接ログ・ファイルに書き込みます（英語でハードコードされているためメッセージは翻訳できません。この方法はお薦めしません）。

 fnd_file.put_line(FND_FILE.LOG,'Warning: Employee '||

                     l_log_employee_name||' ('||

                     l_log_employee_num ||

                          ') does not have a manager.');

FND_FILE.NEW_LINE

procedure FND_FILE.NEW_LINE

  (which        IN NUMBER,

         LINES         IN NATURAL := 1);

例

改行文字を2つ書き込むには次のようにします。

 fnd_file.new_line(FND_FILE.LOG,2);

FND_FILE.PUT_NAMES

procedure FND_FILE.PUT_NAMES

         (p_log IN VARCHAR2,

   p_out IN VARCHAR2,

  (p_dir IN VARCHAR2);

重要: FND_FILE.PUT_NAMESはSQL*Plusからのテストおよびデバッグのためのものです。コンカレント・プログラムからコールされた場合は何も実行しません。

BEGIN

        fnd_file.put_names('test.log', 'test.out',

                '/local/db/8.0.4/db-temp-dir/');

        fnd_file.put_line(fnd_file.output,'Called stored

procedure');

        /* Some logic here... */

        fnd_file.put_line(fnd_file.output, 'Reached point A');

        /* More logic, etc... */

        fnd_file.close;

END;

例

BEGIN

 fnd_file.put_names('test.log', 'test.out',

  '/local/db/8.0.4/db-temp-dir/');

 fnd_file.put_line(fnd_file.output,'Called stored

procedure');

 /* Some logic here... */

 fnd_file.put_line(fnd_file.output, 'Reached point A');

 /* More logic, etc... */

 fnd_file.close;

END;

FND_FILE.CLOSE

procedure FND_FILE.CLOSE;

例

BEGIN

 fnd_file.put_names('test.log', 'test.out',

  '/local/db/8.0.4/db-temp-dir/');    fnd_file.put_line(fnd_file.output,'Called stored

procedure');

 /* Some logic here... */

 fnd_file.put_line(fnd_file.output, 'Reached point A');

 /* More logic, etc... */

 fnd_file.close;

END;

エラーの処理

FND_FILEパッケージは1つの例外、FND_FILE.UTL_FILE_ERRORを呼び出すことができます。これは、UTL_FILEエラー状況を示すものです。具体的には、エラーがある場合、プロシージャFND_FILE.PUT、FND_FILE.PUT_LINEおよびFND_FILE.NEW_LINEでFND_FILE.UTL_FILE_ERRORを呼び出すことができます。このパッケージ例外に加えて、FND_FILEではNO_DATA_FOUNDやVALUE_ERRORなどの、事前定義済PL/SQL例外を呼び出すこともできます。

一時ファイルが開けないか、書込みができない場合、FND_FILEではUTL_FILE_ERRORが発生します。FND_FILE.UTL_FILE_ERROR例外が発生した後、エラーで終了するか、正常に完了するかはコンカレント・プログラムによります。FND_FILEでは、UTL_FILE_ERROR例外が発生する前からメッセージ・スタックに翻訳済メッセージを保持しています。開発者はFND_FILEエラーのためのメッセージを取得して、要求完了テキストとして使用できます。例外処理時にFND_MESSAGEルーチンを使用してメッセージ・スタックからメッセージを取得するかどうかは、コール元が決定できます。

コンカレント・マネージャでは、すべての一時ファイル作成エラーを要求ログ・ファイルに記録します。

FND_PROGRAM: コンカレント・プログラム・ローダー

FND_PROGRAMパッケージには、コンカレント・プログラム実行ファイル、パラメータのあるコンカレント・プログラム、非互換性ルール、要求セットおよび要求グループを作成するためのプロシージャが含まれています。さらに、このパッケージには、コンカレント・プログラム、実行ファイル、パラメータ、非互換性ルールの存在をチェックするために使用するファンクションも含まれています。

プロシージャに渡される引数は、少数の例外を除いて、Oracle Application Object Libraryのフォーム内のフィールドに対応しています。通常は、最初にこれらのプロシージャに対するパラメータをフォームに入力して、検証やデバッグを行います。

エラーが検出された場合は、ORA-06501: PL/SQL:内部エラーが発生します。ファンクションfnd_program.message()へのコールによりエラー・メッセージを取得できます。

特に索引における値の重複のようないくつかのエラーは、パッケージでは検出されません。

誤った外部キー情報が提供されると例外が呼び出されることに注意してください。たとえば、プログラムが存在しない場合、delete_program()は失敗しませんが、誤ったアプリケーション名が指定された場合は失敗します。

FND_PROGRAM.MESSAGE

function FND_PROGRAM.MESSAGE return VARCHAR2;

FND_PROGRAM.EXECUTABLE

procedure FND_PROGRAM.EXECUTABLE



(executable                             IN        VARCHAR2,

        application                                IN VARCHAR2,

        description                                IN VARCHAR2 DEFAULT NULL,

        execution_method                IN        VARCHAR2,

        execution_file_name        IN        VARCHAR2 DEFAULT NULL,

        subroutine_name                IN VARCHAR2 DEFAULT NULL,

        icon_name                                IN        VARCHAR2 DEFAULT NULL,

        language_code                        IN VARCHAR2 DEFAULT 'US');

FND_PROGRAM.DELETE_EXECUTABLE

procedure FND_PROGRAM.DELETE_EXECUTABLE



(executable                IN        varchar2,

        application                IN varchar2);

FND_PROGRAM.REGISTER

procedure FND_PROGRAM.REGISTER

                 (program                                                        IN VARCHAR2,

                application                                          IN VARCHAR2,

                enabled                                               IN VARCHAR2,

                short_name                                                  IN VARCHAR2,

                description                                                 IN VARCHAR2 DEFAULT NULL,

                executable_name                                IN VARCHAR2,

                executable_application         IN VARCHAR2,

                execution_options                                IN VARCHAR2 DEFAULT NULL,

                priority                                                        IN NUMBER   DEFAULT NULL,

                save_output                                                IN VARCHAR2 DEFAULT 'Y',

                print                                                                IN VARCHAR2 DEFAULT 'Y',

                cols                                                                IN NUMBER   DEFAULT NULL,

                rows                                                                IN NUMBER   DEFAULT NULL,

                style                                                         IN VARCHAR2 DEFAULT NULL,

                style_required                                        IN VARCHAR2 DEFAULT 'N',

                printer                                                        IN VARCHAR2 DEFAULT NULL,

                request_type                                        IN VARCHAR2 DEFAULT NULL,

                request_type_application         IN VARCHAR2 DEFAULT NULL,

                use_in_srs                                                IN VARCHAR2 DEFAULT 'N',

                allow_disabled_values                IN VARCHAR2 DEFAULT 'N',

                run_alone                                                IN VARCHAR2 DEFAULT 'N',

                output_type                                                IN VARCHAR2 DEFAULT 'TEXT',

                enable_trace                                        IN VARCHAR2 DEFAULT 'N',

                restart                                                        IN VARCHAR2 DEFAULT 'Y',

                nls_compliant                                        IN VARCHAR2 DEFAULT 'N',

                icon_name                                                IN VARCHAR2 DEFAULT NULL,

                language_code                                        IN VARCHAR2 DEFAULT 'US'

                mls_function_short_name        IN VARCHAR2,

                mls_function_application        IN VARCHAR2,

                incrementor                                                IN VARCHAR2);

FND_PROGRAM.DELETE_PROGRAM

procedure FND_PROGRAM.DELETE_PROGRAM



(program_short_name        IN        varchar2,

    application                        IN varchar2);

FND_PROGRAM.PARAMETER

procedure FND_PROGRAM.PARAMETER



(program_short_name         IN        VARCHAR2,

        application                                IN VARCHAR2,

        sequence                                  IN NUMBER,

        parameter                           IN VARCHAR2,

        description                         IN VARCHAR2 DEFAULT NULL,

        enabled                                         IN VARCHAR2 DEFAULT 'Y',

        value_set                                 IN VARCHAR2,

        default_type                         IN VARCHAR2 DEFAULT NULL,

        default_value                   IN VARCHAR2 DEFAULT NULL,

        required                                 IN VARCHAR2 DEFAULT 'N',

        enable_security                 IN VARCHAR2 DEFAULT 'N',

        range                                         IN VARCHAR2 DEFAULT NULL,

        display                                         IN VARCHAR2 DEFAULT 'Y',

        display_size                         IN NUMBER,

        description_size                IN NUMBER,

        concatenated_description_size IN NUMBER,

        prompt                                         IN VARCHAR2 DEFAULT NULL,

        token                                          IN VARCHAR2 DEFAULT NULL);

重要: 新しく追加されたパラメータは、付加フレックスフィールドがコンパイルされるまで「SRS」フォームには表示されません。付加フレックスフィールドはプログラム$FND_TOP/$APPLBIN/fdfcmpによりコンパイルされます。

FND_PROGRAM.DELETE_PARAMETER

procedure FND_PROGRAM.DELETE_PARAMETER



(program_short_name         IN varchar2,

           application                        IN varchar2

           parameter              IN        varchar2);

FND_PROGRAM.INCOMPATIBILITY

procedure FND_PROGRAM.INCOMPATIBILITY



(program_short_name                 IN VARCHAR2,

        application                                        IN VARCHAR2

        inc_prog_short_name                IN        VARCHAR2,

        inc_prog_application        IN VARCHAR2,

        scope                             IN VARCHAR2 DEFAULT 'Set');

FND_PROGRAM.DELETE_INCOMPATIBILITY

procedure FND_PROGRAM.DELETE_INCOMPATIBILITY



 (program_short_name                        IN        VARCHAR2,

                application                                         IN VARCHAR2,

                inc_prog_short_name          IN VARCHAR2,

                inc_prog_application         IN VARCHAR2);

FND_PROGRAM.REQUEST_GROUP

procedure FND_PROGRAM.REQUEST_GROUP



(request_group         IN VARCHAR2,

 application                IN VARCHAR2,

        code                                 IN VARCHAR2 DEFAULT NULL,

        description                IN VARCHAR2 DEFAULT NULL);

FND_PROGRAM.DELETE_GROUP

procedure FND_PROGRAM.DELETE_GROUP



(group                        IN        VARCHAR2,

 application IN VARCHAR2);

FND_PROGRAM.ADD_TO_GROUP

procedure FND_PROGRAM.ADD_TO_GROUP



(program_short_name                IN        VARCHAR2,

    program_application        IN VARCHAR2,

    request_group                        IN VARCHAR2,

    group_application                IN VARCHAR2);

FND_PROGRAM.REMOVE_FROM_GROUP

procedure FND_PROGRAM.REMOVE_FROM_GROUP



(program_short_name                IN        VARCHAR2,

    program_application        IN VARCHAR2,

    request_group                        IN VARCHAR2,

    group_application                IN VARCHAR2);

FND_PROGRAM.PROGRAM_EXISTS

function FND_PROGRAM.PROGRAM_EXISTS



(program                 IN VARCHAR2,

 application        IN VARCHAR2)

return boolean;

FND_PROGRAM.PARAMETER_EXISTS

function FND_PROGRAM.PARAMETER_EXISTS



(program_short_name        IN VARCHAR2,

        application                                IN        VARCHAR2,

        parameteR                                IN        VARCHAR2)

return boolean;

FND_PROGRAM.INCOMPATIBILITY_EXISTS

function FND_PROGRAM.INCOMPATIBILITY_EXISTS



(program_short_name                 IN VARCHAR2,

        application                                 IN        VARCHAR2,

        inc_prog_short_name                IN        VARCHAR2,

        inc_prog_application         IN        VARCHAR2)

return boolean;

FND_PROGRAM.EXECUTABLE_EXISTS

function FND_PROGRAM.EXECUTABLE_EXISTS



(executable_short_name        IN VARCHAR2,

 application                                         IN        VARCHAR2)

return boolean;

FND_PROGRAM.REQUEST_GROUP_EXISTS

function FND_PROGRAM.REQUEST_GROUP_EXISTS



(request_group        IN VARCHAR2,

 application                IN        VARCHAR2)

return boolean;

FND_PROGRAM.PROGRAM_IN_GROUP

function FND_PROGRAM.INCOMPATIBILITY_EXISTS



(program_short_name         IN VARCHAR2,

        application                                IN        VARCHAR2,

        request_group                        IN        VARCHAR2,

        group_application                IN        VARCHAR2)

return boolean;

FND_PROGRAM.ENABLE_PROGRAM

procedure FND_PROGRAM_ENABLE_PROGRAM



(short_name         IN VARCHAR2,

 application         IN        VARCHAR2,

 ENABLED                IN        VARCHAR2);

FND_REQUESTパッケージ

FND_REQUEST.SET_OPTIONS（クライアントまたはサーバー）

function FND_REQUEST.SET_OPTIONS



(implicit  IN varchar2 default 'NO',

          protected IN varchar2 default 'NO',

          language  IN varchar2 default NULL,

          territory IN varchar2 default NULL)

          return boolean;

FND_REQUEST.SET_REPEAT_OPTIONS（クライアントまたはサーバー）

function FND_REQUEST.SET_REPEAT_OPTIONS



(repeat_time                         IN varchar2 default NULL,

repeat_interval          IN number default NULL,

repeat_unit              IN varchar2 default 'DAYS',

repeat_type              IN varchar2 default 'START'

repeat_end_time          IN varchar2 default NULL)

return boolean;

FND_REQUEST.SET_PRINT_OPTIONS（クライアントまたはサーバー）

function FND_REQUEST.SET_PRINT_OPTIONS



(printer                         IN varchar2 default NULL,

style                            IN varchar2 default NULL,

copies                          IN number default NULL,

save_output                  IN boolean default TRUE,

print_together         IN varchar2 default 'N')

return boolean;

重要: 「コンカレント・プログラム」フォームを使用してプログラム・レベルで設定されている印刷オプションについては、このプロシージャで上書きできません。上書き可能な印刷オプションについては、次の引数の説明を参照してください。

FND_REQUEST.SUBMIT_REQUEST（クライアントまたはサーバー）

function FND_REQUEST.SUBMIT_REQUEST



(application                 IN varchar2 default NULL,

program                           IN varchar2 default NULL,

description            IN varchar2 default NULL,

start_time             IN varchar2 default NULL,

sub_request            IN boolean default FALSE

argument1,

argument2, ..., argument99,

argument100) return number;

重要: FND_REQUESTは、要求の発行元のユーザーとその職責についての情報を持っている必要があります。したがって、このファンクションはOracle Applications内のコンカレント・プログラムまたはフォームからのみ動作します。

FND_REQUEST.SET_MODE（サーバー）

function FND_REQUEST.SET_MODE



 (db_trigger IN boolean) return boolean;

FND_REQUEST.SUBMIT_REQUESTをデータベース・トリガーでコールした際にエラーが発生した場合は、変更がロールバックされないことに注意してください。

要求発行の例

/* Example 1 */



/* Submit a request from a form and commit*/

 :parameter.req_id :=

      FND_REQUEST.SUBMIT_REQUEST (

           :blockname.appsname,

           :blockname.program,

           :blockname.description,

           :blockname.start_time,

           :blockname.sub_req = 'Y',

           123, NAME_IN('ORDERS.ORDER_ID'), 'abc',

           chr(0), '', '', '', '', '', '',

           '', '', '', '', '', '', '', '', '', '',

           '', '', '', '', '', '', '', '', '', '',

           '', '', '', '', '', '', '', '', '', '',

           '', '', '', '', '', '', '', '', '', '',

           '', '', '', '', '', '', '', '', '', '',

           '', '', '', '', '', '', '', '', '', '',

           '', '', '', '', '', '', '', '', '', '',

           '', '', '', '', '', '', '', '', '', '',

           '', '', '', '', '', '', '', '', '', '');



IF :parameter.req_id = 0 THEN

    FND_MESSAGE.RETRIEVE;

    FND_MESSAGE.ERROR;

ELSE

  IF :SYSTEM.FORM_STATUS != 'CHANGED' THEN

    IF app_form.quietcommit  THEN

      /*form commits without asking user to save changes*/

     fnd_message.set_name('SQLGL',

           'GL_REQUEST_SUBMITTED');

     fnd_message.set_TOKEN('REQUEST_ID',

            TO_CHAR(:PARAMETER.REQ_ID), FALSE);

     fnd_message.show;

    ELSE

       fnd_message.set_name('FND',

            'CONC-REQUEST SUBMISSION FAILED');

       fnd_message.error;

    END IF;

  ELSE

    DO_KEY('COMMIT_FORM');

    IF :SYSTEM.FORM_STATUS != 'CHANGED' THEN

        /*commit was successful*/

        fnd_message.set_name('SQLGL',

           'GL_REQUEST_SUBMITTED');

        fnd_message.set_TOKEN('REQUEST_ID',

             TO_CHAR(:PARAMETER.REQ_ID), FALSE);

        fnd_message.show;

    END IF;

  END IF;

END IF;

/* Example 2 */



/* Submit a request where no setup is required */

declare

  req_id number;

begin

  req_id := FND_REQUEST.SUBMIT_REQUEST ('FND',

              'FNDMDGEN', 'Message File Generator',

              '01-NOV-02 00:00:00', FALSE, ...arguments...);

  if (req_id = 0) then

    /* Handle submission error */

    FND_MESSAGE.RETRIEVE;

    FND_MESSAGE.ERROR;

  else

    commit;

  end if;

end;

/* Example 3 */



/* Submit a request from a database trigger */

result := FND_REQUEST.SET_MODE(TRUE);

req_id := FND_REQUEST.SUBMIT_REQUEST (FND',

            'FNDMDGEN', 'Message File  Generator',

            '01-NOV-02 00:00:00', FALSE, ...arguments...);

/* Example 4 */



/* Submit a request inserting NULL arguments.

   This call inserts 6 arguments with arguments 1, 3,

   4, and 6 being NULL */

req_id := FND_REQUEST.SUBMIT_REQUEST ('FND',

                        'FNDPROG',

                        'Description of FNDPROG',

                        '01-FEB-01 00:00:00', FALSE,

                        '', 'arg2', '', NULL, arg5, '');

/* Example 5 */



/* Submit a repeating request */

result := FND_REQUEST.SET_REPEAT_OPTIONS ('', 4, 'HOURS', 'END');

req_id := FND_REQUEST.SUBMIT_REQUEST ('CUS',

                          'CUSPOST', 'Custom Posting',

                          '01-APR-01 00:00:00', FALSE,

                          ...arguments...);

重要: FND_REQUEST.SET_REPEAT_OPTIONSがエラーを戻した場合、要求を発行しないこともできます。そのため、FND_REQUEST.SUBMIT_REQUESTへのコールを発行する前にFND_REQUEST.SET_REPEAT_OPTIONSの結果をテストできます。

/* Example 6 */



/* Submit a request for 5 copies of a menu report */

result := FND_REQUEST.SET_PRINT_OPTIONS ('hqunx138',

                                         'Landscape',

                                          5,

                                         'Yes',

                                         FALSE);

req_id := FND_REQUEST.SUBMIT_REQUEST ('FND',

                                'FNDMNRMT',

                                '',

                                '',

                               'N', 0, 101);

/* Example 7 */



/* Submit a protected request that repeats at noon */

result := FND_REQUEST.SET_OPTIONS ('YES');

result := FND_REQUEST.SET_REPEAT_OPTIONS ('12:00');

req_id := FND_REQUEST.SUBMIT_REQUEST ('CUS',

                            'CUSPOST', 'Custom Posting',

                            '01-APR-01 00:00:00', FALSE,

                             ... args ...);

FND_REQUEST_INFOおよび複数言語のサポート（MLS）

FND_REQUEST_INFOのAPIを複数言語サポート機能（MLS機能）で使用して、要求情報を取得できます。

複数言語サポート機能は、コンカレント・プログラムの複数言語での実行をサポートするための機能です。コンカレント・プログラムに対し単一の要求を発行し、そのプログラムをそれぞれ異なる言語で複数回実行できます。MLS機能により要求が実行される言語が決まります。

この機能を有効化するには、開発者がデータベース内にMLS機能をストアド・ファンクションとして作成します。コール時に、このファンクションがコンカレント・プログラムのデータ・セットとして使用する言語を決定し、言語コードのリストをカンマ区切り文字列として戻します。コンカレント・マネージャではこの文字列を使用して、各ターゲット言語でのコンカレント・プログラムのための子要求を発行します。

必要に応じて、MLS機能はFND_REQUEST_INFOのAPIを使用してコンカレント・プログラム・アプリケーション短縮名、コンカレント・プログラム短縮名、コンカレント要求パラメータを取得します。

開発者は「コンカレント・プログラム実行ファイル」フォームでMLS機能を登録し、さらに「コンカレント・プログラム」フォームで、登録したMLS機能をコンカレント・プログラムに関連付けます。

FND_REQUEST_INFO.GET_PARAM_NUMBER

function GET_PARAM_NUMBER



(name                                IN VARCHAR2,

param_num                        OUT NUMBER);

FND_REQUEST_INFO.GET_PARAM_INFO

function GET_PARAM_INFO



(param_num                IN NUMBER,

         name                        OUT VARCHAR2);

FND_REQUEST_INFO.GET_PROGRAM

procedure GET_PROGRAM

(program_name                         OUT VARCHAR2,

program_app_name                OUT VARCHAR2);

FND_REQUEST_INFO.GET_PARAMETER

function GET_PARAMETER



(param_num        IN NUMBER)

        return varchar2;

MLS機能の例

各従業員に対し休暇日数のレポートを送付するコンカレント・プログラムがあるとします。このコンカレント・プログラムでは従業員番号の範囲をパラメータとして受け取ります。従業員はすべて、休暇日数レポートを各自が指定した言語で受け取ることを希望しています。MLS機能がない場合、このコンカレント・プログラムを発行するユーザーは、要求を発行する際に指定の従業員番号範囲から必要な言語すべてを推測し、それらの言語を選択する必要があります。インストール済言語すべてが必要とは限らないので、すべてを選択するのはリソースの無駄になる可能性があります。

次のような列を持つ従業員表（emp）があるとします。

 emp_no number(15),

     ...

     preferred_lang_code  varchar2(4),

     ...

このコンカレント・プログラムには、従業員番号の範囲を指定する2つのパラメータがあります。パラメータ1はstarting emp_noで、パラメータ2はending emp_noです。

このMLS機能は、同様に従業員番号の開始および終了パラメータを持つ別のコンカレント・プログラムでも使用できます。

例

CREATE OR REPLACE FUNCTION EMPLOYEE_LANG_FUNCTION RETURN VARCHAR2 IS



  language_string    varchar2(240);

  start_value        varchar2(240);

  end_value          varchar2(240);



  CURSOR language_cursor (starting number, ending number) IS

     SELECT DISTINCT(preferred_lang_code) language_code

      FROM  emp

      WHERE emp_no BETWEEN starting AND ending

      AND   preferred_lang_code IS NOT NULL;



  BEGIN



      -- Initialize the language string

      language_string := null;





      -- Get parameter values for starting and

      -- ending EMP_NO

      start_value := FND_REQUEST_INFO.GET_PARAMETER(1);

      end_value  := FND_REQUEST_INFO.GET_PARAMETER(2);



      FOR languages IN language_cursor(

                       to_number(start_value),

                       to_number(end_value)) LOOP



        IF( language_string IS NULL ) THEN

           language_string := languages.language_code;

        ELSE

           language_string := language_string || ',' ||

                         languages.language_code;

        END IF;

      END LOOP;

      RETURN (language_string);

END EMPLOYEE_LANG_FUNCTION;

FND_SET: 要求セット・ローダー

FND_SETパッケージにはコンカレント・プログラム要求セットの作成、要求セットへのプログラムの追加、要求セットからのプログラムの削除、および要求セットのパラメータの定義を行うためのプロシージャが含まれています。

プロシージャに渡される引数は、少数の例外を除いて、Oracle Application Object Libraryのフォーム内のフィールドに対応しています。通常は、最初にこれらのプロシージャに対するパラメータをフォームに入力して、検証やデバッグを行います。

エラーが検出された場合は、ORA-06501: PL/SQL:内部エラーが発生します。ファンクションfnd_program.message()へのコールによりエラー・メッセージを取得できます。

特に索引における値の重複のようないくつかのエラーは、パッケージでは検出されません。

誤った外部キー情報が提供されると例外が呼び出されることに注意してください。たとえば、プログラムが存在しない場合、delete_program()は失敗しませんが、誤ったアプリケーション名が指定された場合は失敗します。

関連項目: 要求セットの概要

FND_SET.MESSAGE

FND_SET.CREATE_SET

procedure FND_SET.CREATE_SET



 (name                                    IN VARCHAR2,

        short_name                         IN VARCHAR2,

        application                        IN VARCHAR2,

        description                        IN VARCHAR2 DEFAULT NULL,

        owner                              IN VARCHAR2 DEFAULT NULL,

        start_date                         IN DATE     DEFAULT SYSDATE,

        end_date                           IN DATE     DEFAULT NULL,

        print_together                     IN VARCHAR2 DEFAULT 'N',

        incompatibilities_allowed          IN VARCHAR2 DEFAULT 'N',

        language_code                      IN VARCHAR2 DEFAULT 'US');

FND_SET.DELETE_SET

procedure FND_SET.DELETE_SET



(request_set                 IN VARCHAR2,

        application                IN VARCHAR2);

FND_SET.ADD_PROGRAM

procedure FND_SET.ADD_PROGRAM



(program                        IN VARCHAR2,

        program_application           IN VARCHAR2,

        request_set                   IN VARCHAR2,

        set_application               IN VARCHAR2,

        stage                         IN VARCHAR2,

        program_sequence              IN NUMBER,

          critical                      IN VARCHAR2 DEFAULT 'Y',

        number_of_copies              IN NUMBER   DEFAULT 0,

        save_output                   IN VARCHAR2 DEFAULT 'Y',

        style                         IN VARCHAR2 DEFAULT NULL,

        printer                       IN VARCHAR2 DEFAULT NULL);

FND_SET.REMOVE_PROGRAM

procedure FND_SET.REMOVE_PROGRAM



(program_short_name             IN VARCHAR2,

        program_application           IN VARCHAR2,

        request_set                   IN VARCHAR2,

        set_application               IN VARCHAR2,

        stage                         IN VARCHAR2,

        program_sequence              IN NUMBER);

FND_SET.PROGRAM_PARAMETER

procedure FND_SET.PROGRAM_PARAMETER



(program                                                 IN VARCHAR2,

        program_application    IN VARCHAR2,

        request_set                   IN VARCHAR2,

        set_application               IN VARCHAR2,

        stage                         IN VARCHAR2.

        program_sequence                         IN NUMBER,

        parameter                                        IN VARCHAR2,

        display                IN VARCHAR2 DEFAULT 'Y',

        modify                                             IN VARCHAR2 DEFAULT 'Y',

         shared_parameter             IN VARCHAR2 DEFAULT NULL,

        default_type                           IN VARCHAR2 DEFAULT NULL,

        default_value                           IN VARCHAR2 DEFAULT NULL);

FND_SET.DELETE_PROGRAM_PARAMETER

procedure FND_SET.DELETE_SET_PARAMETER



program                                    IN VARCHAR2,

        program_application         IN VARCHAR2,

        request_set                                           IN VARCHAR2 DEFAULT NULL,

  stage                                                          IN VARCHAR2,

        set_application                         IN VARCHAR2,

        program_sequence                  IN NUMBER,

        parameter                                        IN VARCHAR2);

FND_SET.ADD_STAGE

procedure FND_SET.ADD_STAGE



(name                                                                IN VARCHAR2,

request_set                                  IN VARCHAR2,

set_application                                        IN VARCHAR2,

short_name                                                         IN VARCHAR2,

description                                       IN VARCHAR2 DEFAULT NULL,

display_sequence                             IN NUMBER,

function_short_name                          IN VARCHAR2 DEFAULT 'FNDRSSTE'

function_application                         IN VARCHAR2 DEFAULT 'FND',

critical                                                         IN VARCHAR2 DEFAULT 'N',

incompatibilities_allowed         IN VARCHAR2 DEFAULT 'N',

start_stage                                                IN VARCHAR2 DEFAULT 'N',

language_code                                                IN VARCHAR2 DEFAULT 'US');

FND_SET.REMOVE_STAGE

procedure FND_SET.REMOVE_STAGE



(request_set                         IN VARCHAR2,

        set_application        IN VARCHAR2,

  stage                                        IN VARCHAR2);

FND_SET.LINK_STAGES

procedure FND_SET.LINK_STAGES



(request_set                         IN VARCHAR2,

        set_application        IN VARCHAR2,

        from_stage                        IN VARCHAR2,

        to_stage                                IN VARCHAR2 DEFAULT NULL,

        success                                IN VARCHAR2 DEFAULT 'N',

        warning                                IN VARCHAR2 DEFAULT 'N',

        error                                        IN VARCHAR2 DEFAULT 'N');

重要: このプロシージャは、指定されているリンクを更新します。FND_SET.CREATE_SETによって作成されたセットには、デフォルトでステージ間のNULLリンクが設定されています。

FND_SET.INCOMPATIBILITY

 procedure FND_SET.INCOMPATIBILITY



(request_set                                        IN VARCHAR2,

        application                                        IN VARCHAR2,

        stage                                                        IN VARCHAR2 DEFAULT NULL,

        inc_prog                                                IN VARCHAR2 DEFAULT NULL

        inc_prog_application        IN VARCHAR2 DEFAULT NULL,

        inc_request_set                        IN VARCHAR2 DEFAULT NULL,

        inc_set_application                IN VARCHAR2 DEFAULT NULL,

        inc_stage                                        IN VARCHAR2 DEFAULT NULL);

例

1. セットXがプログラムYと非互換の場合

   fnd_set.incompatibility(request_set=>'X'
   
                           application=>'APPX'
   
                           inc_prog_short_name=>'Y',                                    inc_prog_application=>'APPY');
   
   

2. セットXがセットYと非互換の場合

   fnd_set.incompatibility(request_set=>'X',
   
                           application=>'APPX',
   
                           inc_request_set=>'Y',
   
                           inc_set_application=>'APPY');
   
   

3. セットXがステージYのステージ2と非互換の場合

   fnd_set.incompatibility(request_set=>'X',
   
                           application=>'APPX',
   
                           inc_request_set=>'Y',
   
                           inc_set_application=>'APPY',
   
                           inc_stage_number=>2);
   
   

4. セットXのステージ3がプログラムYと非互換の場合

   fnd_set.incompatibility(request_set=>'X',
   
                           application=>'APPX',
   
                           stage_number=>3,
   
                           inc_prog_short_name=>'Y',
   
                           inc_prog_application=>'APPY');
   
          

FND_SET.DELETE_INCOMPATIBILITY

procedure FND_SET.DELETE_INCOMPATIBILITY

 (request_set                          IN VARCHAR2,

        application                                         IN VARCHAR2,

        stage                                                        IN VARCHAR2 DEFAULT NULL,

        inc_prog                                                IN VARCHAR2 DEFAULT NULL

        inc_prog_application        IN VARCHAR2 DEFAULT NULL,

        inc_request_set                        IN VARCHAR2 DEFAULT NULL,

        inc_set_application                IN VARCHAR2 DEFAULT NULL,

        inc_stage                                        IN VARCHAR2 DEFAULT NULL);

FND_SET.ADD_SET_TO_GROUP

procedure FND_SET.ADD_SET_TO_GROUP

   (request_set                   IN VARCHAR2,

    set_application        IN VARCHAR2,

    request_group                IN VARCHAR2,

    group_application        IN VARCHAR2);

FND_SET.REMOVE_SET_FROM_GROUP

procedure FND_SET.REMOVE_SET_FROM_GROUP

(request_set                                IN        VARCHAR2,

 set_application                         IN VARCHAR2,

 request_group                        IN VARCHAR2,

 group_application                IN VARCHAR2);

FND_SUBMIT: 要求セットの発行

この項では、要求セット発行のためのFND_SUBMITのAPIについて説明します。APIはコールされる順序に従って説明していきます。いくつかのAPIはオプションです。

FND_SUBMIT.SET_MODE

function FND_SUBMIT.SET_MODE (db_trigger IN boolean) return boolean;

FND_SUBMIT.SET_REL_CLASS_OPTIONS

function FND_SUBMIT.SET_REL_CLASS_OPTIONS



(application                IN varchar2 default NULL,

 class_name                IN varchar2 default NULL,

 cancel_or_hold        IN varchar2 default 'H',

 stale_date                IN varchar2 default NULL)  return boolean;

FND_SUBMIT.SET_REPEAT_OPTIONS

function FND_SUBMIT.SET_REPEAT_OPTIONS



(repeat_time                        IN varchar2 default NULL,

 repeat_interval                IN number default NULL,

 repeat_unit                        IN varchar2 default 'DAYS',

 repeat_type                        IN varchar2 default 'START',

 repeat_end_time         IN varchar2 default NULL)          return boolean; 

FND_SUBMIT_SET.REQUEST_SET

function FND_SUBMIT.SET_REQUEST_SET



(application        IN VARCHAR2,

 request_set        IN VARCHAR2)  return  boolean; 

FND_SUBMIT.SET_PRINT_OPTIONS

function FND_SUBMIT.SET_PRINT_OPTIONS



(printer                         IN varchar2 default NULL,

style                                IN varchar2 default NULL,

copies                                IN number default NULL,

save_output                IN boolean default

print_together        IN varchar2 default 'N')  return boolean;

FND_SUBMIT.ADD_PRINTER

function FND_SUBMIT.SET.ADD_PRINTER



(printer         IN varchar2 default null,

 copies          IN number default null)  return boolean; 

FND_SUBMIT.ADD_NOTIFICATION

function FND_SUBMIT.ADD_NOTIFICATION



(user IN varchar2) return boolean;

FND_SUBMIT.SET_NLS_OPTIONS

function FND_SUBMIT.SET_NLS_OPTIONS



(language          IN varchar2 default NULL,

 territory          IN varchar2 default NULL) return boolean; 

FND_SUBMIT.SUBMIT_PROGRAM

function FND_SUBMIT.SUBMIT_PROGRAM



(application        IN varchar2,

 program                IN varchar2,

 stage                        IN varchar2,

 argument1,...argument100)  return boolean;

FND_SUBMIT.SUBMIT_SET

function FND_SUBMIT.SUBMIT_SET



(start_time        IN varchar2 default null,

 sub_request        IN boolean default FALSE)  return integer;

要求セット発行の例

/* Example 1 */

/* To submit a Request set which is having STAGE1 and

STAGE2. STAGE1 is having ’FNDSCARU’ and ’FNDPRNEV’

programs. STAGE2 is having ’FNDSCURS’. */

/* set the context for the request set FNDRSTEST */

success := fnd_submit.set_request_set(’FND’, ’FNDRSTEST’);



                if ( success ) then



                /* submit program FNDSCARU which is in stage STAGE1 */

                success := fnd_submit.submit_program(’FND’,’FNDSCARU’,

                 ’STAGE1’, CHR(0),’’,’’,’’,’’,’’,’’,’’,’’,’’,

                                                        ...arguments...);

          if ( not success ) then

                        raise submit_failed;

                end if;



                /* submit program FNDPRNEV which is in stage STAGE1 */

                success := fnd_submit.submit_program(’FND’,’FNDPRNEV’,

                                ’STAGE1’,’’,’’,’’,’’,’’,’’,’’,’’,’’,’’,

                                CHR(0),’’,’’,’’,’’,’’,’’,’’,’’,’’,

                                ...arguments...);

                if ( not success ) then

                        raise submit_failed;

                end if;



                /* submit program FNDSCURS which is in stage STAGE2 */

                success := fnd_submit.submit_program(’FND’,’FNDSCURS’,

                                        ’STAGE2’, CHR(0),’’,’’,’’,’’,’’,’’,’’,’’,’’,

                                        ...arguments...);

                if ( not success ) then

                                raise submit_failed;

                end if;



                /* Submit the Request Set */

                req_id := fnd_submit.submit_set(null,FALSE);



end if;

/* Example 2 */

/* To submit a request set FNDRSTEST as a repeating request set.

Request set FNDRSTEST has STAGE1 and STAGE2.

STAGE1 contains 'FNDSCARU'  and 'FNDPRNEV' programs.

STAGE2 has 'FNDSCURS'. */



   /* set the repeating options for the request set before

     calling the set_request_set  */

   success := fnd_submit.set_repeat_options( '', 4, 'HOURS',     'END');



   /* set the context for the request set FNDRSTEST */

   success := fnd_submit.set_request_set('FND',

        'FNDRSTEST');



   if ( success ) then



   /* submit program FNDSCARU which is in stage STAGE1 */

   success := fnd_submit.submit_program('FND','FNDSCARU',

      'STAGE1', CHR(0),'','','','','','','','','',

      ...arguments...);

   if ( not success ) then

     raise submit_failed;

   end if;



   /* submit program FNDPRNEV which is in stage STAGE1 */

     success := fnd_submit.submit_program('FND','FNDPRNEV',

        'STAGE1','','','','','','','','','','',

        CHR(0),'','','','','','','','','',

        ...arguments...);

      if ( not success ) then

        raise submit_failed;

      end if;



   /* submit program FNDSCURS which is in stage STAGE2  */

   success := fnd_submit.submit_program('FND','FNDSCURS',

        'STAGE2', CHR(0),'','','','','','','','','',

        ...arguments...);

   if ( not success ) then

      raise submit_failed;

   end if;



   /*  Submit the Request set  */

   req_id := fnd_submit.submit_set(null,FALSE);



end if;

/* Example 3 */

/* To submit a Request set  FNDRSTEST with 5 copies of the Print environment variables report.  Request set FNDRSTEST has STAGE1 and STAGE2.  STAGE1 has 'FNDSCARU'  and 'FNDPRNEV' programs.  STAGE2 has 'FNDSCURS'. */



   /* set the context for the request set FNDRSTEST */

   success := fnd_submit.set_request_set('FND', 'FNDRSTEST');



   if ( success ) then



      /* submit program FNDSCARU which is in stage STAGE1 */

      success := fnd_submit.submit_program('FND','FNDSCARU',

          'STAGE1', CHR(0),'','','','','','','','','', ...arguments...);

   if ( not success ) then

          raise submit_failed;

   end if;



   /* set the print options for the program */

   success := fnd_submit.set_print_options( 'hqunx138', 'Landscape', 5,

       'Yes', FALSE);



   /* submit program FNDPRNEV which is in stage STAGE1 */

   success:= fnd_submit.submit_program('FND','FNDPRNEV',

         'STAGE1','','','','','','','','','','',

         CHR(0),'','','','','','','','','',

          ...arguments...);

   if ( not success ) then

       raise submit_failed;

   end if;



   /* submit program FNDSCURS which is in stage STAGE2  */

   success := fnd_submit.submit_program('FND','FNDSCURS',             'STAGE2', CHR(0),'','','','','','','','','',

         ...arguments...);

   if ( not success ) then

      raise submit_failed;

   end if;



   /*  Submit the Request set  */

   req_id := fnd_submit.submit_set(null,FALSE);



end if;

Copyright © 1995, 2007, Oracle. All rights reserved.