4.11.8 ConstantDefインタフェース

名前

CORBA-CONSTANTDEF--GET-TYPE

形式

DATA DIVISION.
  WORKING-STORAGE SECTION.
    COPY CONST IN CORBA.
    01 COPY OBJECT IN CORBA REPLACING CORBA-OBJECT BY OBJ.
    01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV.
    01 COPY TYPECODE IN CORBA REPLACING CORBA-TYPECODE BY IS TYPECODE.

PROCEDURE DIVISION.
    CALL "CORBA-CONSTANTDEF--GET-TYPE" USING
         OBJ
         ENV
         TYPECODE.

機能説明

OBJで指定した定数定義オブジェクトのTypeCodeを返します。
本関数はタイプコードを格納する領域を獲得するため、この領域が不要になった時点で、CORBA-OBJECT-RELEASE関数を使用して領域を解放する必要があります。

復帰値

正常終了した場合、TypeCodeが返されます。
異常終了した場合、ENV構造体のMAJORにはCORBA-SYSTEM-EXCEPTIONが返され、IDとMINORに詳細情報が設定されます。IDとMINORの意味については、“メッセージ集”の“CORBAサービスから通知される例外情報/マイナーコード”を参照してください。

4.11.8.2 CORBA-CONSTANTDEF--GET-VALUE

名前

CORBA-CONSTANTDEF--GET-VALUE

形式

DATA DIVISION.
  WORKING-STORAGE SECTION.
    COPY CONST IN CORBA.
    01 COPY OBJECT IN CORBA REPLACING CORBA-OBJECT BY OBJ.
    01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV.
    01 ANY-ADDR USAGE IS POINTER.

PROCEDURE DIVISION.
    CALL "CORBA-CONSTANTDEF--GET-VALUE" USING
         OBJ
         ENV
         ANY-ADDR.

機能説明

OBJで指定したConstantDefオブジェクトの定数の値を、CORBA-ANYの形式で返します。
本関数は定数の値（CORBA-ANY）を格納する領域を獲得するため、この領域が不要になった時点で、CORBA-FREE関数を使用して領域を解放する必要があります。

復帰値

正常終了した場合、定数の値（CORBA-ANY）のアドレスが返されます。
異常終了した場合、ENV構造体のMAJORにはCORBA-SYSTEM-EXCEPTIONが返され、IDとMINORに詳細情報が設定されます。IDとMINORの意味については、“メッセージ集”の“CORBAサービスから通知される例外情報/マイナーコード”を参照してください。

4.11.8.3 継承されて使用できる関数

(1) CORBA-CONSTANTDEF--GET-DEF-KIND
(2) CORBA-CONSTANTDEF--GET-ID
(3) CORBA-CONSTANTDEF--GET-NAME
(4) CORBA-CONSTANTDEF--GET-DEFINED-IN
(5) CORBA-CONSTANTDEF-DESCRIBE

(1)については、“IRObject共通インタフェース”を継承します。
“CORBA-IROBJECT”の部分を“CORBA-CONSTANTDEF”に置き換えて使用することができます。
関数の仕様については、“4.11.2 IRObject共通インタフェース”を参照してください。

(2)～(5)については、“Contained共通インタフェース”を継承します。
“CORBA-CONTAINED”の部分を“CORBA-CONSTANTDEF”に置き換えて使用することができます。
関数の仕様については、“4.11.3 Contained共通インタフェース”を参照してください。