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

7.12.1 使用例

(1)環境部の構成節での宣言

　"COPY SYMBOL-CONST IN CORBA."宣言をSPECIAL-NAMES内でSYMBOLIC CONSTANT句により行います。

  000013  ENVIRONMENT DIVISION. 
  000014  CONFIGURATION SECTION. 
  000015  SPECIAL-NAMES. 
  000016      SYMBOLIC CONSTANT
  000017      COPY SYMBOL-CONST IN CORBA. 
  000018      .

(2)継承されて使用できる関数の宣言

　インタフェースリポジトリで継承されて使用できる関数宣言は登録集のREPLACEソースから必要な関数を抽出して使用する前に宣言を行います。

  000020  REPLACE
  000030  == "CORBA-CONTAINED--GET-DEF-KIND" == BY
  000040  == "CORBA-IROBJECT--GET-DEF-KIND" ==
  000050     . 
  000060  IDENTIFICATION DIVISION.

(3)データ部の作業場所節での宣言（その１）

　"COPY CONST IN CORBA."宣言をWORKING-STORAGE SECTIONの真下に宣言を行います（レベル番号は設定しません）。

  000022  WORKING-STORAGE SECTION. 
  000023  COPY CONST IN CORBA.

(4)データ部の作業場所節での宣言（その２）

　各種型宣言はCOPY文により領域を宣言します。

記述例１

  000290  01 COPY ULONG IN CORBA REPLACING
                   1       2
  000300  CORBA-UNSIGNED-LONG BY STRING-LENGTH. 
                 3                 4

1. 登録集のソース名を記述します。
2. 環境変数名を記述します（CORBAを使用）。
3. 登録集のソース内のデータ名を記述します。
4. ユーザが定義する変数名を記述します。

記述例２

  000310 01 COPY ENVIRONMENT    IN CORBA         REPLACING
  000320                 CORBA-ENVIRONMENT       BY ENV. 
  000330 01 COPY ORB            IN CORBA         REPLACING
  000340                 CORBA-ORB               BY ORB. 
  000350 01 COPY BOA            IN CORBA         REPLACING
  000360                 CORBA-BOA               BY BOA. 
  000370 01 COPY OBJECT         IN CORBA         REPLACING