| Interstage Application Server リファレンスマニュアル(API編) |
目次
索引
![]()
|
| 第4章 COBOLインタフェース | > 4.6 Contextインタフェース |
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が設定されます。
目次
索引
![]()
|