4.6.4 CORBA-CONTEXT-GET-VALUES

名前

CORBA-CONTEXT-GET-VALUES

形式

ENVIRONMENT DIVISION.
   CONFIGURATION SECTION.
   SPECIAL-NAMES.
     SYMBOLIC CONSTANT
     COPY SYMBOL-CONST IN CORBA.
     .
 DATA DIVISION.
  WORKING-STORAGE SECTION.
    COPY CONST IN CORBA.
    01 COPY CONTEXT IN CORBA REPLACING CORBA-CONTEXT BY CTX.
    01 START-SCOPE USAGE POINTER.
    01 COPY FLAGS IN CORBA REPLACING CORBA-FLAGS BY OP-FLAGS.
    01 PROP-NAME USAGE POINTER.
    01 COPY NVLIST IN CORBA REPLACING CORBA-NVLIST BY C-VALUE.
    01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV.
    01 COPY STATUS IN CORBA REPLACING CORBA-STATUS BY ORB-STATUS.

  PROCEDURE DIVISION.
    CALL "CORBA-CONTEXT-GET-VALUES" USING
         CTX
         START-SCOPE
         OP-FLAGS
         PROP-NAME
         C-VALUE
         ENV
         ORB-STATUS.

機能説明

  CORBA-ORB-GET-DEFAULT-CONTEXT関数またはCORBA-CONTEXT-CREATE-CHILD関数で得られたコンテキストオブジェクトのオブジェクトリファレンスCTXのContext属性値を獲得します。
  PROP-NAMEにワイルドカード文字（“*”）が指定されれば、すべての一致する属性名とその値が返されます。
  OP-FLAGSには以下のフラグが指定できます。

CORBA-CTX-RESTRICT-SCOPE: 探索はSTART-SCOPRに指定した探索スコープ、またはContextオブジェクトに制限されます。

START-SCOPREは、指定された属性に対する探索を始めるときのContextオブジェクトのレベルを示します。OP-FLAGSにCORBA-CTX-RESTRICT-SCOPEが設定されていない場合に、指定したスコープ内で属性が見つからなければ、Contextツリーを逆上って探索が続けられます。スコープ名が省略された場合（“ ”）は、指定したContextオブジェクトから探索が始められます。指定したスコープ名が見つからない場合は、例外が返されます。

復帰値

  正常終了した場合は、CORBA-OKが返され、C-VALUEに属性値が設定されます。
  異常終了した場合は、CORBA-FAILEDが返されます。
  CTXにNULLが指定された場合、ENV構造体のMAJORにはCORBA-USER-EXCEPTIONが設定されます。