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

7.5.6 共用体

(1)IDLマッピング

　IDL言語で共用体unionを指定した場合、COBOLではデータ型を識別する弁別情報Dと共用体Uから構成される構造体をデータ宣言します。また、構造体の領域獲得関数（関数名は"モジュール名-インタフェース名-構造体名-ALLOC"、以降XX-ALLOC関数と呼ぶ）がIDLコンパイラで生成されます。
　以降では、以下のIDL定義例をもとに説明します。

IDL言語

  module ODsample{

      union samplefix switch(long){    // 共用体(固定長) 
          case 1: long    para1; 
          case 2: long    para2; 
      };
      union samplevar switch(long){    // 共用体(可変長) 
          case 1: long    para1; 
          case 2: string  para2; 
      };
      interface  uniontest{
          samplefix  op2(
              in samplefix uni1, 
              out samplefix uni2, 
              inout samplefix uni3
          ); 
          samplevar  op1(
              in samplevar uni1, 
              out samplevar uni2, 
              inout samplevar uni3
          ); 
      };
  };

COBOL

  * 共用体(固定長) 
   01 ODSAMPLE-SAMPLEFIX. 
     02 COPY LONG IN CORBA REPLACING CORBA-LONG BY D. 
     02 U. 
       03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA1. 
     02 FILLER REDEFINES U. 
       03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA2. 

  * 共用体(可変長) 
   01 ODSAMPLE-SAMPLEVAR. 
     02 COPY LONG IN CORBA REPLACING CORBA-LONG BY D. 
     02 U. 
       03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA1. 
     02 FILLER REDEFINES U. 
       03 PARA2 USAGE IS POINTER.

(2)クライアントアプリケーションで扱うパラメタ（固定長）

　共用体（固定長）のパラメタ（in,out,inout）を扱う場合、領域の獲得／解放を行う必要はありません。弁別情報にデータ型識別値、データ域にデータを設定します。
　以下にクライアントアプリケーションでの処理例を示します。

   ENVIRONMENT DIVISION. 
   DATA DIVISION. 
    WORKING-STORAGE SECTION. 
     COPY CONST IN CORBA. 
     01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV. 
     01 COPY OBJECT IN CORBA REPLACING CORBA-OBJECT BY OBJ. 
     01 UNI1. 
       02 COPY LONG IN CORBA REPLACING CORBA-LONG BY D. 
       02 U. 
         03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA2. 
       02 FILLER REDEFINES U. 
         03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA1. 
     01 UNI2.
       02 COPY LONG IN CORBA REPLACING CORBA-LONG BY D.
       02 U.
         03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA2.
       02 FILLER REDEFINES U.
         03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA1.
     01 UNI3. 
       02 COPY LONG IN CORBA REPLACING CORBA-LONG BY D. 
       02 U. 
         03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA2. 
       02 FILLER REDEFINES U. 
         03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA1. 
     01 UNI0.
       02 COPY LONG IN CORBA REPLACING CORBA-LONG BY D.
       02 U.
         03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA2.
       02 FILLER REDEFINES U.
         03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA1.
     01 COPY LONG IN CORBA REPLACING CORBA-LONG BY L-SIZE. 
     01 STR-WORK PIC X(10). 

   PROCEDURE DIVISION. 

  * inパラメタの弁別子の設定 
     MOVE 2 TO D OF UNI1. 
  * inパラメタの値の設定
     MOVE 100 TO PARA2 OF UNI1. 
  * inoutパラメタの弁別子の設定
     MOVE 2 TO D OF UNI3. 
  * inoutパラメタの値の設定
     MOVE 200 TO PARA2 OF UNI3.
     CALL "ODSAMPLE-UNIONTEST-OP2" USING
           OBJ
           UNI1
           UNI2
           UNI3
           ENV
           UNI0.

(3)クライアントアプリケーションで扱うパラメタ（可変長）

　クライアントアプリケーションのパラメタの扱いについて、以下に示します。

パラメタ	サーバへ渡すパラメタ	サーバから渡されたパラメタ
in	構造体領域/可変長データ域を獲得する場合、XX-ALLOC関数/データ領域獲得関数を用います。 データ型識別値とデータを設定します。	−
inout	(inパラメタと同じ)	領域はスタブで自動的に獲得されます。
out 復帰値	−	(inoutパラメタと同じ)

注意事項

　クライアントおよびスタブで動的に獲得した領域は、不要になった時点でCORBA-FREE関数で解放する必要があります。CORBA-FREE関数を発行することで可変長データ域も解放されます。

　以下にクライアントアプリケーションでの処理例を示します。

   ENVIRONMENT DIVISION. 
   DATA DIVISION. 
    WORKING-STORAGE SECTION. 
     COPY CONST IN CORBA. 
     01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV. 
     01 COPY OBJECT IN CORBA REPLACING CORBA-OBJECT BY OBJ. 
     01 UNI1. 
       02 COPY LONG IN CORBA REPLACING CORBA-LONG BY D.
       02 U.
         03 PARA2 USAGE IS POINTER.
       02 FILLER REDEFINES U.
         03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA1.
     01 UNI2 USAGE POINTER. 
     01 UNI3 USAGE POINTER. 
     01 UNI0 USAGE POINTER. 
     01 STR-WORK PIC X(30). 
     01 COPY LONG IN CORBA REPLACING CORBA-LONG BY LSIZE. 

    LINKAGE SECTION. 
     01 UNI-P. 
       02 COPY LONG IN CORBA REPLACING CORBA-LONG BY D. 
       02 U. 
         03 PARA2 USAGE IS POINTER. 
       02 FILLER REDEFINES U. 
         03 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARA1. 

   PROCEDURE DIVISION. 

  * inパラメタの弁別子の設定 
     MOVE 1 TO D OF UNI1. 
  * inパラメタの値の設定
     MOVE 10 TO PARA1 OF UNI1. 

   *inoutパラメタの領域獲得
     CALL "ODSAMPLE-SAMPLEVAR-ALLOC" USING
           UNI3. 
     SET ADDRESS OF UNI-P TO UNI3. 
  * inoutパラメタの弁別子の設定
     MOVE 2 TO D OF UNI1-P. 
  * inoutパラメタの値の設定
     MOVE 12 TO LSIZE. 
     MOVE "INOUT:para2" TO STR-WORK. 
     MOVE FUNCTION LENG(STR-WORK) TO LSIZE
     CALL "CORBA-STRING-SET" USING
          PARA2 OF UNI-P 
          LSIZE 
          STR-WORK. 

     CALL "ODSAMPLE-UNIONTEST-OP1" USING
         OBJ
         UNI1
         UNI2
         UNI3
         ENV
         UNI0. 
  * outパラメタの領域の解放
   CALL "CORBA-FREE" USING
         UNI2. 
  * inoutパラメタの領域の解放
   CALL "CORBA-FREE" USING
         UNI3. 
  * 復帰値の領域の解放
   CALL "CORBA-FREE" USING
         UNI0.