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 (32bitシステム)
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
...

関連項目