Interstage Application Server リファレンスマニュアル（API編）

4.9.6 CORBA-TYPECODE-MEMBER-NAME

名前

　CORBA-TYPECODE-MEMBER-NAME

形式

 ENVIRONMENT DIVISION.
   CONFIGURATION SECTION.
   SPECIAL-NAMES.
     SYMBOLIC CONSTANT
     COPY SYMBOL-CONST IN CORBA.
     .
 DATA DIVISION.
  WORKING-STORAGE SECTION.
    COPY CONST IN CORBA.
    01 COPY TYPECODE IN CORBA REPLACING CORBA-TYPECODE BY T-OBJECT.
    01 COPY ULONG IN CORBA REPLACING CORBA-UNSIGNED-LONG BY T-INDEX.
    01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV.
    01 MEM-NAME USAGE POINTER.
 
 PROCEDURE DIVISION.
    CALL "CORBA-TYPECODE-MEMBER-NAME" USING
         T-OBJECT
         T-INDEX
         ENV
         MEM-NAME.

機能説明

　T-OBJECTで指定したTypeCodeオブジェクトのT-INDEXで指定したメンバの名前を返します。以下の属性情報を持つTypeCodeについて有効となります。

CORBA-TCKIND PIC S9(9)  COMP-5.
88  CORBA-TK-STRUCT     VALUE 15.
88  CORBA-TK-UNION      VALUE 16.
88  CORBA-TK-ENUM       VALUE 17.
88  CORBA-TK-EXCEPT     VALUE 22.

　本関数はメンバの名前を格納する領域を獲得するため、この領域が不要になった時点で、CORBA-FREE関数を使用して領域を解放する必要があります。

復帰値

　正常終了した場合は、メンバの名前の文字列が返されます。

　異常終了した場合は、ENV構造体のMAJORにはCORBA-USER-EXCEPTIONが設定され、IDに詳細情報が設定されます。IDの意味と値は次のとおりです。

　EX-CORBA-TYPECODE-BADKIND

　TypeCodeの属性情報が無効です。

　EX-CORBA-TYPECODE-BOUNDS

　T-INDEXの値が無効です。

　T-OBJECT, T-INDEXにNULLが指定された場合、ENV構造体のMAJORにはCORBA-USER-EXCEPTIONが設定されます。