call "CBL_CTF_COMP_PROPERTY_GET" using by value flags
by reference component-id
by reference property-name
by reference property-vallen
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-vallen | cblt-x4-comp5 | pic x(4) comp-5 |
| 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-len 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 length of prop-string to prop-len
call "CBL_CTF_COMP_PROPERTY_GET" using by value flags
by reference tracer-handle
by reference "prop1 "
by reference prop-len
by reference prop-string
...
compute flags = 78-CTF-FLAG-PROP-INT-VALUE
call "CBL_CTF_COMP_PROPERTY_GET" using by value flags
by reference tracer-handle
by reference "prop2 "
by value 0
by reference prop-integer
...