CBL_CTF_LEVEL

指定されたコンポネントで使用されるトレースレベルを指定する。一意のコンポネント名が指定されていない場合は、デフォルトのトレースレベルを指定する。

構文:

call "CBL_CTF_LEVEL" using by value     flags
                           by value     trace-level
                           by reference component-id
                              returning status-code

パラメタ:

	呼び出しプロトタイプ使用時 ( 説明の読み方)	PIC (32bitシステム)
flags	cblt-x4-comp5	pic x(4) comp-5
trace-level	cblt-x4-comp5	pic x(4) comp-5
component-id	pic x(n)	pic x(n)
status-code	説明の読み方参照

入力パラメタ:

flags

制御フラグ:

ビット	値	内容
0-29		今後の使用のために予約済み。値は0であること。
30	0	component-idはスペース終了。
	1	component-idはナル終了。ビット31が設定されていない場合は、無視される。
31	0	component-idはCBL_CTF_TRACER_GETへの呼出しから返されたpic x(4) comp-5 トレーサ処理。
	1	component-idはpic x(n)テキスト文字列。文字列の終了文字はビット30にて定義される。

component-id

プロパティ値が返されるコンポネント。フラグのビット31が設定されていなければpic x(4) comp-5 トレーサ処理(CBL_CTF_TRACER_GETより)、設定されていればpic x(n)テキスト一意名になる。

出力パラメタ:

status-code

以下のうちの1つ

78-CTF-RET-INVALID-COMPONENT-NAME
78-CTF-RET-INVALID-TRACE-HANDLE
78-CTF-RET-INVALID-TRACE-LEVEL
78-CTF-RET-NOT-ENOUGH-MEMORY
78-CTF-RET-SUCCESS

説明:

CBL_CTF_LEVELにはmftrace.levelおよびmftrace.level.component-name設定ファイルエントリへの等価機能がある。

例:

 copy "cbltypes.cpy".
 copy "mfctf.cpy".

*> 1) Set the default trace threshold level to be DEBUG

 ...
 call "CBL_CTF_LEVEL" using by value 0
                            by value 78-LEVFLGS-LEVEL-DEBUG
                            by reference " "
 ...

*> 2) Set the WARNING tracing threshold level for the MF.RTS component.
*>    Any component inheriting from the MF.RTS component (such as
*>    MF.RTS.ERR and MF.RTS.MEM) will also use the WARNING tracing
*>    threshold level. All other trace-enabled components will use the
*>    INFO tracing threshold level.

 ...
 call "CBL_CTF_LEVEL" using by value 0
                            by value 78-LEVFLGS-LEVEL-INFO
                            by reference " "

 call "CBL_CTF_LEVEL" using by value 0
                            by value 78-LEVFLGS-LEVEL-WARNING
                            by reference "MF.RTS "
 ...