名前
CORBA-BOA-GET-ID
形式
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
SYMBOLIC CONSTANT
COPY SYMBOL-CONST IN CORBA.
.
DATA DIVISION.
WORKING-STORAGE SECTION.
COPY CONST IN CORBA.
01 COPY BOA IN CORBA REPLACING CORBA-BOA BY BOA.
01 COPY OBJECT IN CORBA REPLACING CORBA-OBJECT BY OBJ.
01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV.
01 COPY REFERENCEDATA IN CORBA REPLACING CORBA-REFERENCEDATA BY REF.
PROCEDURE DIVISION.
CALL "CORBA-BOA-GET-ID" USING
BOA
OBJ
ENV
REF.
CORBA-REFERENCEDATA.
03 SEQ-MAXIMUM PIC S9(9) COMP-5.
03 SEQ-LENGTH PIC S9(9) COMP-5.
03 CORBA-OCTET USAGE POINTER.機能説明
OBJで指定したオブジェクトリファレンスの識別情報を返します。この情報はCORBA-BOA-CREATE関数で指定した値が返され、オブジェクトが破壊されるまで変化しません。識別情報は、CORBA-REFERENCEDATA (CORBA-SEQUENCE-OCTET)構造体のCORBA-OCTETに設定されます。BOAには、CORBA-ORB-BOA-INIT関数で返されたオブジェクトリファレンスを指定します。
本関数はオブジェクトリファレンスの識別情報を格納する領域を獲得するため、この領域が不要になった時点で、CORBA-FREE関数を使用して領域を解放する必要があります。
復帰値
正常終了した場合は、識別情報（オクテット型）が返され、ENV構造体のMAJORにはCORBA-NO-EXCEPTIONが設定されます。
異常終了した場合は、ENV構造体のMAJORにはCORBA-SYSTEM-EXCEPTIONが設定され、IDとMINORに詳細情報が設定されます。
IDとMINORの意味については、“メッセージ集”の“CORBAサービスから通知される例外情報/マイナーコード”を参照してください。
BOA,OBJにNULLが指定された場合、ENV構造体のMAJORにはCORBA-USER-EXCEPTIONが設定されます。