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 | |
---|---|---|
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 | 「説明の読み方」を参照 |
「mycomp」コンポーネントのイベントをトレースするためのトレーサー ハンドルを取得し、「mycomp」の 2 つのプロパティの値 (null で終了する文字列値と整数値) を設定します。
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 ...
説明:
CBL_CTF_COMP_PROPERTY_SET は、component-id で識別されるコンポーネントの指定したプロパティの値を設定する場合に使用します。コンポーネントに同じ名前のプロパティがすでに存在する場合は、その値が新しい値に置き換えられます。このルーチンは、構成ファイルの mftrace.comp.component-name#property エントリと同等の機能を提供します。