CBL_CTF_COMP_PROPERTY_SET

コンポネントのプロパティ値を指定する。

構文:

call "CBL_CTF_COMP_PROPERTY_SET" using by value     flags
                                       by reference component-id
                                       by reference property-name
                                       by reference property-value
                                          returning status-code

パラメーター：

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

入力パラメーター：

flags

制御フラグ:

ビット	値	内容
0	0	文字列値を指定する。ビット1を使用して文字列終了子を決定する。
	1	整数値を指定する。ビット1は無視すること。
1	0	文字列値はスペース終了。
	1	文字列値はナル終了。
2-28		今後の使用のために予約済み。値は0であること。
29	0	property-nameはスペース終了。
	1	property-nameはナル終了。
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)テキスト一意名になる。

property-name

スペースもしくはナル終了（ビット29の設定による）、大文字小文字の区別のない返された値をもつプロパティ。

property-value

設定するプロパティ値を含むバッファー。文字列として返されるpic x(n)フィールドか、整数値として返されるpic x(4) comp-5フィールドとなる。

出力パラメーター：

status-code

以下のうちの1つ

78-CTF-RET-INVALID-COMP-NAME
78-CTF-RET-INVALID-TRACE-HANDLE
78-CTF-RET-INVALID-PROP-NAME
78-CTF-RET-NOT-ENOUGH-MEMORY
78-CTF-RET-SUCCESS

説明:

CBL_CTF_COMP_PROPERTY_SETを使用して、component-idによって識別されたコンポネントの指定されたプロパティ値を設定する。同じ名前のプロパティがコンポネントにすでにある場合、新しい値に書き換えられる。本ルーチンにはmftrace.comp.component-name#property設定ファイルエントリへの等価機能がある。

例:

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

01 component-id    pic x(7) value "mycomp ".
01 flags           pic x(4) comp-5.
01 prop-integer    pic x(4) comp-5.
01 prop-string     pic x(100).
01 tracer-handle   pic x(4) comp-5.
...
call "CBL_CTF_TRACER_GET" using by value 0
                                by reference component-id
                                by reference tracer-handle
...
compute flags = 78-CTF-FLAG-PROP-STRING-VALUE b-or
                78-CTF-FLAG-PROP-NAME-NULL-TERM
move "xxxx" & x"00" to prop-string

call "CBL_CTF_COMP_PROPERTY_SET" using by value flags
                                       by reference tracer-handle
                                       by reference "prop1 "
                                       by reference prop-string
...
compute flags = 78-CTF-FLAG-PROP-INT-VALUE
move 100 to prop-integer

call "CBL_CTF_COMP_PROPERTY_SET" using by value flags
                                       by reference tracer-handle
                                       by reference "prop2 "
                                       by reference prop-integer
...