| Interstage Application Server リファレンスマニュアル(API編) |
目次
索引
![]()
|
| 第4章 COBOLインタフェース | > 4.20 ノーティフィケーションサービスインタフェース | > 4.20.3 COSNOTIFYCHANNELADMINインタフェース |
COSNOTIFYCHANNELADMIN-CONSUMERADMIN-OBTAIN-NOTIFICATION-PULL-SUPPLIER
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
SYMBOLIC CONSTANT
COPY SYMBOL-CONST IN CORBA.
.
DATA DIVISION.
WORKING-STORAGE SECTION.
COPY CONST IN COSEVENTCOMM.
COPY CONST IN CORBA.
01 COPY NOTIFYCONSUMERADMIN IN COSEVENTCOMM REPLACING COSNOTIFYCHANNELADMIN-CONSUMER BY OBJ.
01 COPY CLIENTTYPE IN COSEVENTCOMM REPLACING COSNOTIFYCHANNELADMIN-CLIENTTY BY CTYPE.
01 COPY LONG IN CORBA REPLACING CORBA-LONG BY PROXY-ID.
01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV.
01 COPY NOTIFYPROXYPULLSUP IN COSEVENTCOMM REPLACING COSNOTIFYCHANNELADMIN-PROXYPUL BY PROXYPULLSUP.
PROCEDURE DIVISION.
CALL "COSNOTIFYCHANNELADMIN-CONSUMERADMIN-OBTAIN-NOTIFICATION-PULL-SUPPLIER" USING
OBJ
CTYPE
PROXY-ID
ENV
PROXYPULLSUP.
CTYPEで指定されたクライアント種別を持つ、PROXYSUPPLIERのオブジェクトを作成します。
この関数はオブジェクトリファレンスを格納する領域を獲得するため、この領域が不要になった時点で、CORBA-OBJECT-RELEASE関数を使用して領域を解放する必要があります。
正常終了した場合は、ENV構造体のMAJORにCORBA-NO-EXCEPTIONが設定されます。
異常終了した場合は、ENV構造体のMAJORにCORBA-SYSTEM-EXCEPTIONまたはCORBA-USER-EXCEPTIONが設定され、ENV構造体のIDに詳細情報が設定されます。
ユーザ例外の場合は、以下の詳細情報が設定されます。
システム例外の場合は、“メッセージ集”の“イベントサービスから通知される例外情報/マイナーコード”および“CORBAサービスから通知される例外情報/マイナーコード”を参照し、設定されたシステム例外およびマイナーコードに対する対処を行ってください。
目次
索引
![]()
|