名前
CORBA-SERVERREQUEST-CTX
形式
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
SYMBOLIC CONSTANT
COPY SYMBOL-CONST IN CORBA.
.
DATA DIVISION.
WORKING-STORAGE SECTION.
COPY CONST IN CORBA.
01 COPY SERVERREQUEST IN CORBA REPLACING CORBA-REQUEST BY REQUEST.
01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV.
01 RET-NAME USAGE POINTER.
PROCEDURE DIVISION.
CALL "CORBA-SERVERREQUEST-CTX" USING
REQUEST
ENV
RET-NAME.機能説明
REQUESTで指定したServerRequestオブジェクトに対するContextオブジェクトを取り出します。
復帰値
正常終了した場合は、Contextオブジェクトのオブジェクトリファレンスが返され、ENV構造体のMAJORにはCORBA-NO-EXCEPTIONが設定されます。
異常終了した場合は、ENV構造体のMAJORにはCORBA-SYSTEM-EXCEPTIONが設定され、IDとMINORに詳細情報が設定されます。
IDとMINORの意味については、“メッセージ集”の“CORBAサービスから通知される例外情報/マイナーコード”を参照してください。
REQUESTにNULLが指定された場合、ENV構造体のMAJORにはCORBA-USER-EXCEPTIONが設定されます。