Interstage Application Server リファレンスマニュアル(API編) |
目次
索引
![]() ![]() |
第4章 COBOLインタフェース | > 4.19 イベントサービスインタフェース | > 4.19.2 COSEVENTCHANNELADMINインタフェース |
COSEVENTCHANNELADMIN-PROXYPUSHCONSUMER-CONNECT-PUSH-SUPPLIER
ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. SYMBOLIC CONSTANT COPY SYMBOL-CONST IN CORBA. . DATA DIVISION. WORKING-STORAGE SECTION. COPY CONST IN COSEVENTCOMM. 01 COPY PROXYPUSHCONSUMER IN COSEVENTCOMM REPLACING COSEVENTCHANNELADMIN-PROXY0003 BY OBJ. COPY CONST IN CORBA. 01 COPY OBJECT IN CORBA REPLACING CORBA-OBJECT BY PUSHSUPPLIER. 01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV. PROCEDURE DIVISION. CALL "COSEVENTCHANNELADMIN-PROXYPUSHCONSUMER-CONNECT-PUSH-SUPPLIER" USING OBJ PUSHSUPPLIER ENV.
イベントチャネルにPushモデルのサプライヤを接続します。PUSHSUPPLIERにはサプライヤ自身のオブジェクトリファレンスを指定します。イベントチャネルが終了した場合のDISCONNECT通知が不要な場合はPUSHSUPPLIERにCORBA-OBJECT-NILを指定します。OBJには、COSEVENTCHANNELADMIN-SUPPLIERADMIN-OBTAIN-PUSH-CONSUMERが返すオブジェクトリファレンスを指定します。
正常終了した場合は、ENV構造体のMAJORにCORBA-NO-EXCEPTIONが設定されます。異常終了した場合は、ENV構造体のMAJORにCORBA-SYSTEM-EXCEPTIONまたはCORBA-USER-EXCEPTIONが設定され、ENV構造体のIDに詳細情報が設定されます。
ユーザ例外の場合、以下の詳細情報が設定されます。
システム例外の場合、以下の詳細情報が設定されます。
イベントチャネルと再接続する場合は、再度COSEVENTCHANNELADMIN-SUPPLIERADMIN-OBTAIN-PUSH-CONSUMERから行ってください。
目次
索引
![]() ![]() |