call "CBL_AUDIT_EMITTER_PROPERTY_SET" using by value flags
by reference emitter-name
by reference property-name
by reference property-value
returning status-code
"AUDITFILE" エミッターに関連付けられた 2 つのプロパティ値 (null で終了する文字列値、および整数値) を設定します。
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-string pic x(100).
...
compute flags = 78-AUD-FLAG-PROP-STRING-VALUE b-or
78-AUD-FLAG-PROP-NULL-TERM
move "xxx" & x"00" to prop-string
call "CBL_AUDIT_EMITTER_PROPERTY_SET" using
by value flags
by reference emitter-name
by reference "location "
by reference prop-string
...
compute prop-flags = 78-AUD-FLAG-PROP-INT-VALUE
move 10 to prop-integer
call "CBL_AUDIT_EMITTER_PROPERTY_GET" using
by value flags
by reference emitter-name
by reference "collectionsize "
by reference prop-integer
...
説明:
CBL_AUDIT_EMITTER_PROPERTY_SET は、名前が emitter-name のエミッターの名前付きプロパティの値を設定するために使用します。エミッターに同じ名前のプロパティが既に存在する場合、その値は新しい値に置き換えられます。