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

4.9.2 CORBA-TYPECODE-KIND

名前

　CORBA-TYPECODE-KIND

形式

 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 ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV.
    01 COPY ULONG IN CORBA REPLACING CORBA-UNSIGNED-LONG BY KIND.

 PROCEDURE DIVISION.
    CALL "CORBA-TYPECODE-KIND" USING
         T-OBJECT
         ENV
         KIND.

機能説明

　T-OBJECTで指定したTypeCodeオブジェクトの属性情報KINDを返します。属性情報には以下のものがあります。

        CORBA-TCKIND PIC S9(9)  COMP-5.
        88  CORBA-TK-NULL       VALUE 0.
        88  CORBA-TK-VOID       VALUE 1.
        88  CORBA-TK-SHORT      VALUE 2.
        88  CORBA-TK-LONG       VALUE 3.
        88  CORBA-TK-USHORT     VALUE 4.
        88  CORBA-TK-ULONG      VALUE 5.
        88  CORBA-TK-FLOAT      VALUE 6.
        88  CORBA-TK-DOUBLE     VALUE 7.
        88  CORBA-TK-BOOLEAN    VALUE 8.
        88  CORBA-TK-CHAR       VALUE 9.
        88  CORBA-TK-OCTET      VALUE 10.
        88  CORBA-TK-ANY        VALUE 11.
        88  CORBA-TK-TYPECODE   VALUE 12.
        88  CORBA-TK-PRINCIPAL  VALUE 13.
        88  CORBA-TK-OBJREF     VALUE 14.
        88  CORBA-TK-STRUCT     VALUE 15.
        88  CORBA-TK-UNION      VALUE 16.
        88  CORBA-TK-ENUM       VALUE 17.
        88  CORBA-TK-STRING     VALUE 18.
        88  CORBA-TK-SEQUENCE   VALUE 19.
        88  CORBA-TK-ARRAY      VALUE 20.
        88  CORBA-TK-ALIAS      VALUE 21.
        88  CORBA-TK-EXCEPT     VALUE 22.
        88  CORBA-TK-LONGLONG   VALUE 23.
        88  CORBA-TK-WCHAR      VALUE 26.
        88  CORBA-TK-WSTRING    VALUE 27.

復帰値

　正常終了した場合は、属性情報を返します。
　異常終了した場合は、CORBA-TK-NULLを返します。
　T-OBJECTにNULLが指定された場合、ENV構造体のMAJORにはCORBA-USER-EXCEPTIONが設定されます。