| 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 PROXYPUSHSUPPLIER IN COSEVENTCOMM REPLACING COSEVENTCHANNELADMIN-PROXYP004 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.
コンシューマからイベント通信の終了を宣言します。
 正常終了した場合は、ENV構造体のMAJORにCORBA-NO-EXCEPTIONが設定されます。異常終了した場合は、ENV構造体のMAJORにCORBA-SYSTEM-EXCEPTIONが設定され、ENV構造体のIDに詳細情報が設定されます。
 システム例外の場合は、“メッセージ集”の“イベントサービスから通知される例外情報/マイナーコード”および“CORBAサービスから通知される例外情報/マイナーコード”を参照し、設定されたシステム例外およびマイナーコードに対する対処を行ってください。
| 目次
			索引    |