TSCWatchTime(COBOL)

TSCWatchTimeはシステム提供クラスです。

TSCWatchTimeは,TSCWatchTime-startが発行されてからTSCWatchTime-stopが発行されるまでの時間を監視するクラスです。時間監視が終了する前に指定された監視時間が経過するとエラーメッセージを出力して,プロセスを異常終了します。この機能は,サーバアプリケーションのTSCAdm-initServer発行後からTSCAdm-endServerを発行するまでの間有効です。

形式

CALL 'TSCWatchTime-NEW' USING
          BY VALUE       WATCH-TIME
          BY REFERENCE   CORBA-ENVIRONMENT
       RETURNING         WATCH-TIME-PTR.

CALL 'TSCWatchTime-start' USING
          BY VALUE       WATCH-TIME-PTR
          BY REFERENCE   CORBA-ENVIRONMENT.

CALL 'TSCWatchTime-stop' USING
          BY VALUE       WATCH-TIME-PTR
          BY REFERENCE   CORBA-ENVIRONMENT.

CALL 'TSCWatchTime-reset' USING
          BY VALUE       WATCH-TIME-PTR
          BY REFERENCE   CORBA-ENVIRONMENT.

副プログラム

●CALL 'TSCWatchTime-NEW' USING

           BY VALUE      WATCH-TIME
           BY REFERENCE  CORBA-ENVIRONMENT
        RETURNING        WATCH-TIME-PTR.

項目型・(入出力の区別)意味
引数BY VALUE WATCH-TIME PIC S9(9) COMP(入力)監視時間(秒)
BY REFERENCE CORBA-ENVIRONMENT(出力)例外情報集団項目
戻り値WATCH-TIME-PTR USAGE POINTERTSCWatchTimeのポインタ
例外TSCBadInvOrderException
TSCBadParamException
TSCInternalException
TSCNoMemoryException

TSCWatchTimeを生成します。

引数に"0"を指定した場合,サーバアプリケーションの開始時にコマンドオプション引数-TSCWatchTimeで指定した監視時間(秒)が適用されます。

●CALL 'TSCWatchTime-start' USING

           BY VALUE      WATCH-TIME-PTR
           BY REFERENCE  CORBA-ENVIRONMENT.

項目型・(入出力の区別)意味
引数BY VALUE WATCH-TIME-PTR USAGE POINTER(入力)TSCWatchTimeのポインタ
BY REFERENCE CORBA-ENVIRONMENT(出力)例外情報集団項目
戻り値ありません。
例外TSCInternalException
TSCNoPermissionException

時間監視を開始します。または,TSCWatchTime-stopで中断した時間監視を再開します。

●CALL 'TSCWatchTime-stop' USING

           BY VALUE      WATCH-TIME-PTR
           BY REFERENCE  CORBA-ENVIRONMENT.

項目型・(入出力の区別)意味
引数BY VALUE WATCH-TIME-PTR USAGE POINTER(入力)TSCWatchTimeのポインタ
BY REFERENCE CORBA-ENVIRONMENT(出力)例外情報集団項目
戻り値ありません。
例外TSCInternalException
TSCNoPermissionException

時間監視を中断します。TSCWatchTime-startを発行したスレッドと異なるスレッドでは,TSCWatchTime-stopを発行できません。

●CALL 'TSCWatchTime-reset' USING

           BY VALUE      WATCH-TIME-PTR
           BY REFERENCE  CORBA-ENVIRONMENT.

項目型・(入出力の区別)意味
引数BY VALUE WATCH-TIME-PTR USAGE POINTER(入力)TSCWatchTimeのポインタ
BY REFERENCE CORBA-ENVIRONMENT(出力)例外情報集団項目
戻り値ありません。
例外TSCInternalException
TSCNoPermissionException

監視時間をこのクラスの生成時に指定した値に戻します。TSCWatchTime-startの発行以降TSCWatchTime-stopの発行までの間は発行できません。

●CALL 'TSCWatchTime-DELETE' USING

           BY VALUE      WATCH-TIME-PTR
           BY REFERENCE  CORBA-ENVIRONMENT.

項目型・(入出力の区別)意味
引数BY VALUE WATCH-TIME-PTR USAGE POINTER(入力)TSCWatchTimeのポインタ
BY REFERENCE CORBA-ENVIRONMENT(出力)例外情報集団項目
戻り値ありません。
例外TSCBadParamException
TSCInternalException

TSCWatchTimeクラスのインスタンスを削除します。

マルチスレッド環境でのメソッド呼び出し規則

マルチスレッド環境で,TSCWatchTimeクラスのインスタンスの副プログラムを呼び出す規則を次に示します。

メソッド複数のスレッド上からの同時呼び出し
TSCWatchTime-NEWできます。
TSCWatchTime-startできます。
TSCWatchTime-stopできます。
TSCWatchTime-resetできます。
TSCWatchTime-DELETEできます。
注※
必ずTSCWatchTime-startと同一のスレッドで発行してください。

注意事項