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 POINTER | TSCWatchTimeのポインタ |
例外 | 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 | できます。 |
注意事項
01 WATCH-TIME-PTR USAGE POINTER.
01 WATCH-TIME PIC S9(9) COMP.
:
MOVE 180 TO WATCH-TIME.
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.
: //(1) 60秒経過
CALL 'TSCWatchTime-stop' USING
BY VALUE WATCH-TIME-PTR
BY REFERENCE CORBA-ENVIRONMENT.
: //(2)
CALL 'TSCWatchTime-start' USING
BY VALUE WATCH-TIME-PTR
BY REFERENCE CORBA-ENVIRONMENT.