Interstage Application Server リファレンスマニュアル(API編) |
目次
索引
![]() ![]() |
第4章 COBOLインタフェース | > 4.19 イベントサービスインタフェース | > 4.19.1 COSEVENTCOMMインタフェース |
COSEVENTCOMM-PUSHSUPPLIER-DISCONNECT-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 PUSHSUPPLIER IN COSEVENTCOMM REPLACING COSEVENTCOMM-PUSHSUPPLIER BY OBJ. COPY CONST IN CORBA. 01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV. PROCEDURE DIVISION. CALL "COSEVENTCOMM-PUSHSUPPLIER-DISCONNECT-PUSH-SUPPLIER" USING OBJ ENV.
コンシューマからイベント通信の終了を宣言します。
OBJには、COSEVENTCHANNELADMIN-CONSUMERADMIN-OBTAIN-PUSH-SUPPLIERが返すオブジェクトリファレンスを指定します。
正常終了した場合は、ENV構造体のMAJORにCORBA-NO-EXCEPTIONが設定されます。異常終了した場合は、ENV構造体のMAJORにCORBA-SYSTEM-EXCEPTIONが設定され、ENV構造体のIDにシステム例外が設定されます。
システム例外の場合、以下の詳細情報が設定されます。
目次
索引
![]() ![]() |