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

4.9.1 CORBA-TYPECODE-EQUAL

名前

　CORBA-TYPECODE-EQUAL

形式

 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 TYPECODE IN CORBA REPLACING CORBA-TYPECODE BY TC.
    01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV.
    01 COPY BOOLEAN IN CORBA REPLACING CORBA-BOOLEAN BY RESULT.

 PROCEDURE DIVISION.
    CALL "CORBA-TYPECODE-EQUAL" USING
         T-OBJECT
         TC
         ENV
         RESULT.

機能説明

　T-OBJECTで指定したTypeCodeオブジェクトとTCで指定したTypeCodeオブジェクトとを比較します。

復帰値

　TypeCodeが一致した場合はCORBA-TRUE、一致しなかった場合はCORBA-FALSEが返されます。
　T-OBJECT, TCにNULLが指定された場合、ENV構造体のMAJORにはCORBA-USER-EXCEPTIONが設定されます。