Interstage Application Server アプリケーション作成ガイド （CORBAサービス編）

7.5.1 初期化

　CORBAの初期化メソッドCORBA-ORB_INITを呼び出し初期化処理を行います。当関数の結果として、ORBのオブジェクトリファレンスが通知されます。このオブジェクトリファレンスは、以降で呼び出すORBインタフェースを使用する場合に指定します。

 IDENTIFICATION DIVISION. 
 PROGRAM-ID. "SERVER-MAIN".
*
 ENVIRONMENT DIVISION. 
 CONFIGURATION SECTION. 
 REPOSITORY. 
     COPY CORBA--REP. 
     COPY SIMPLE--REP. 
     CLASS ODDEMO-CALCULATOR-IMPL. 
     . 
 SPECIAL-NAMES. 
     SYMBOLIC CONSTANT
     COPY CORBA--CONST. 
     COPY SIMPLE--CONST. 
     . 
*
 DATA DIVISION. 
 WORKING-STORAGE SECTION. 
 COPY CORBA--COPY. 
 COPY SIMPLE--COPY. 
 01  API-NAME        PIC   X(50). 
 01  APL-NAME        PIC   X(8)   VALUE     "Simple_s".
 01  ORB             USAGE OBJECT REFERENCE CORBA-ORB. 
 01  BOA             USAGE OBJECT REFERENCE CORBA-BOA. 
 01  IMPL-REP        USAGE OBJECT REFERENCE FJ-IMPLEMENTATIONREP. 
 01  IMPL            USAGE OBJECT REFERENCE CORBA-IMPLEMENTATIONDEF. 
 01  REP-ID          PIC   X(25)  VALUE     "IDL:ODdemo/calculator:1.0".
 01  OBJ             USAGE OBJECT REFERENCE CORBA-OBJECT. 
 01  EXCEPT-ID       USAGE OBJECT REFERENCE CORBA-STRING. 
 01  EXCEPT-ID-VALUE PIC   X(50). 
 01  L-DSIBASE       USAGE OBJECT REFERENCE DSIBASE. 
*
 PROCEDURE DIVISION. 
*
 DECLARATIVES. 
 ERR SECTION. 
     USE EXCEPTION CORBA-EXCEPTION. 
     SET EXCEPT-ID TO IDL-ID OF EXCEPTION-OBJECT AS CORBA-EXCEPTION. 
     INVOKE EXCEPT-ID "GET-VALUE" RETURNING EXCEPT-ID-VALUE. 
     DISPLAY API-NAME " is failed.". 
     DISPLAY "Exception-id is " EXCEPT-ID-VALUE. 
     EXIT PROGRAM. 
 END-ERR. 
 END DECLARATIVES. 
*
     MOVE "CORBA::ORB_init" TO API-NAME. 
     INVOKE CORBA "ORB_INIT" USING      APL-NAME
                                        FJ-OM_ORBID 
                             RETURNING  ORB. 
*
     MOVE "CORBA::ORB::BOA_init" TO API-NAME. 
     INVOKE ORB "BOA_INIT" USING      APL-NAME
                                      CORBA-BOA_OAID 
                           RETURNING  BOA.