CBL_CTF_EMITTER_PROPERTY

制約事項: このルーチンは現在、COBOL for JVM ではサポートされていません。

構文：

call "CBL_CTF_EMITTER_PROPERTY_GET" using by value     flags
                                          by reference emitter-name
                                          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
`emitter-name`	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`	「説明の読み方」を参照

入力パラメーター：

flags

制御フラグ：

ビット 0

値	意味
0	文字列値を返します。ビット 1 を使用して、文字列の終了文字を決定します。
1	整数値を返します。ビット 1 は無視してください。

ビット 1

値	意味
0	値を空白文字で終了する文字列として返します。
1	値を null で終了する文字列として返します。

ビット 2 から 27

将来使用するために予約されています。値は常に 0 です。

ビット 28

値	意味
0	`emitter-name` は空白文字で終了します。
1	`emitter-name` は null で終了します。

ビット 29

値	意味
0	`property-name` は空白文字で終了します。
1	`property-name` は null で終了します。

ビット 30 から 31

将来使用するために予約されています。値は常に 0 です。

emitter-name

空白文字または null (ビット 28 の設定で決まる) で終了するエミッター名。大文字と小文字は区別されません。

property-name

値を返す対象のプロパティの空白文字または null (ビット 29 の設定で決まる) で終了する名前。大文字と小文字は区別されません。

property-vallen

プロパティ値が返される property-value バッファーの長さ。バッファーが短すぎて値を返せない場合、ルーチンは失敗します。値が整数として返される場合、property-vallen は無視されます。

property-value

null に設定すると、property-name で指定されたプロパティを保持するために必要なバッファーの長さが property-vallen として返されます。

出力パラメーター：

property-vallen

property-value バッファーの返される文字列の長さ (終了文字は除く)。property-value が null の場合、または指定されたバッファー長が短すぎて値を返せない場合、property-vallen は必要なバッファー長に設定されます。値が整数として返される場合、property-vallen は設定されません。

property-value

プロパティ値が返されるバッファー。これは、文字列として返される値の pic x(n) フィールド、または整数として返される値の pic x(4) comp-5 フィールドのいずれかです。

status-code

次のいずれかになります。

78-CTF-RET-BUFFER-TOO-SMALL
78-CTF-RET-EMITTER-NOT-FOUND
78-CTF-RET-NOT-ENOUGH-MEMORY
78-CTF-RET-PROPERTY-NOT-FOUND
78-CTF-RET-SUCCESS
78-CTF-RET-VALUE-NOT-INTEGER

例：

「myemitter」エミッターに関連付けられた 2 つのプロパティの値 (null で終了する文字列値と整数値) を取得します。

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-len        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 length of prop-string to prop-len

call "CBL_CTF_EMITTER_PROPERTY_GET" using
                                    by value flags
                                    by reference emitter-name
                                    by reference "prop1 "
                                    by reference prop-len
                                    by reference prop-string
...
compute flags = 78-CTF-FLAG-PROP-INT-VALUE

call "CBL_CTF_EMITTER_PROPERTY_GET" using
                                    by value flags
                                    by reference emitter-name
                                    by reference "prop2 "
                                    by value 0
                                    by reference prop-integer
...