名前
OTS-TERM
形式
  DATA DIVISION.
    WORKING-STORAGE SECTION.
      COPY CONST IN CORBA.
      01 COPY OBJECT IN CORBA REPLACING CORBA-OBJECT BY OTS.
      01 COPY ORB IN CORBA REPLACING CORBA-ORB BY ORB.
      01 IMPL USAGE POINTER.
      01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV.
  PROCEDURE DIVISION. 
    CALL "OTS-TERM" USING
         OTS
         ENV.機能説明
サーバアプリケーションとOTSを切断します。
パラメタ
OTS:
CORBA-ORB-RESOLVE-INITIAL-REFERENCESメソッド (CORBA-ORB-OBJECTID-TRANSVR)で取得したOTSインタフェースのオブジェクトリファレンスを指定します。
ENV:
例外情報を獲得するためにCORBA-ENVIRONMENTオブジェクトを指定します。
復帰値
正常終了した場合は、ENV構造体のMAJORにCORBA-NO-EXCEPTIONが設定されます。
異常終了した場合は、ENV構造体のMAJORにCORBA-SYSTEM-EXCEPTIONまたはCORBA-USER-EXCEPTIONが設定され、ENV構造体のIDに詳細情報が設定されます。