CBL_CTF_EMITTER_PROPERTY_SET

エミッタの指定プロパティ値を設定する。

構文:

call "CBL_CTF_EMITTER_PROPERTY_SET" using by value     flags
                                          by reference emitter-name
                                          by reference property-name
                                          by reference property-value
                                             returning

パラメタ:

	呼び出しプロトタイプ使用時 ( 説明の読み方)	PIC (32bitシステム)
flags	cblt-x4-comp5	pic x(4) comp-5
emitter-name	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-27		今後の使用のため保留。値は0。
28	0	emitter-nameはスペース終了
	1	emitter-nameナル終了。
29	0	property-nameはスペース終了。
	1	property-nameはナル終了。
30-31		今後の使用のため保留。値は0。

emitter-name

スペースもしくはナル終了（ビット28の設定による）、大文字／小文字の区別があるエミッタ名

property-name

スペースもしくはナル終了（ビット29の設定による）、大文字／小文字の区別があるプロパティ名

property-value

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

出力パラメタ:

status-code

以下のうちの1つ

78-CTF-RET-EMITTER-NOT-FOUND
78-CTF-RET-INVALID-EMITTER-NAME
78-CTF-RET-INVALID-PROPERTY-NAME
78-CTF-RET-NOT-ENOUGH-MEMORY
78-CTF-RET-SUCCESS

説明:

同じ名称のプロパティが指定エミッタとして存在している場合、その値は新しい値に置き換わる。

例:

"myemitter"エミッタに関連付けられた2つのプロパティ値を設定する。1つはナル終了文字列、もう1つは整数値。

copy "cbltypes.cpy".
copy "mfctf.cpy".
01 emitter-name pic x(10) value "myemitter".
01 flags        pic x(4) comp-5.
01 prop-integer pic x(4) comp-5.
01 prop-string  pic x(100).
...
compute flags = 78-CTF-FLAG-PROP-STRING-VALUE b-or
                78-CTF-FLAG-PROP-NULL-TERM
move "xxx" & x"00" to prop-string
call "CBL_CTF_EMITTER_PROPERTY_SET" using by value flags
                                          by reference emitter-name
                                          by reference "prop1 "
                                          by reference prop-string
...
compute prop-flags = 78-CTF-FLAG-PROP-INT-VALUE
move 100 to prop-integer
call "CBL_CTF_EMITTER_PROPERTY_GET" using by value flags
                                          by reference emitter-name
                                          by reference "prop2 "
                                          by reference prop-integer
...