call "CBL_AUDIT_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
| property-vallen | property-value バッファーに返される文字列値の長さ。長さに終了文字は含まれません。 property-value が null の場合、または指定されたバッファー長が短すぎて値を返せない場合、property-vallen は必要なバッファー長に設定されます。 値が整数として返される場合は設定されません。 |
| property-value | プロパティ値が返されるバッファー。これは、文字列として返される値の pic x(n) フィールド、または整数として返される値の pic x(4) comp-5 フィールドのいずれかです。 property-value を null に指定すると、指定されたプロパティ値を保持するために必要なバッファー長が API から返されるように要求できます。 |
"AUDITFILE" エミッターに関連付けられた 2 つのプロパティ値 (空白文字で終了する文字列値、および整数値) を取得します。
copy "mfaudit.cpy ".
01 emitter-name pic x(10) value " AUDITFILE".
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-AUD-FLAG-PROP-STRING-VALUE
move length of prop-string to prop-len
call "CBL_AUDIT_EMITTER_PROPERTY_GET" using
by value flags
by reference emitter-name
by reference "location "
by reference prop-len
by reference prop-string
...
compute flags = 78-AUD-FLAG-PROP-INT-VALUE
call "CBL_AUDIT_EMITTER_PROPERTY_GET" using
by value flags
by reference emitter-name
by reference "collectionsize "
by value 0
by reference prop-integer
...
説明：
CBL_AUDIT_EMITTER_PROPERTY_GET は、名前が emitter-name のエミッターの名前付きプロパティの値を取得するために使用します。この関数は、通常、エミッターがどのように構成されているかを確認するために初期化中にエミッターによって使用されます。