4.9.5 CORBA-TYPECODE-MEMBER-COUNT

名前

CORBA-TYPECODE-MEMBER-COUNT

形式

 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 M-COUNT.
 
 PROCEDURE DIVISION.
    CALL "CORBA-TYPECODE-MEMBER-COUNT" USING
         T-OBJECT
         ENV
         M-COUNT.

機能説明

T-OBJECTで指定したTypeCodeオブジェクトのメンバ数を返します。以下の属性情報を持つ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.

復帰値

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

EX-CORBA-TYPECODE-BADKIND: TypeCodeの属性情報が無効です。

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