6.11.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.

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

記述例２

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