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
| Bit | Value | Meaning |
|---|---|---|
| 0 | 0 | String value. Use bit 1 to determine string terminator |
| 1 | Integer value. Ignore bit 1. | |
| 1 | 0 | String value is space-terminated |
| 1 | String value is null-terminated | |
| 2-27 | Reserved for future use (must be 0) | |
| 28 | 0 | emitter-name is space-terminated |
| 1 | emitter-name is null-terminated | |
| 29 | 0 | property-name is space-terminated |
| 1 | property-name is null-terminated | |
| 30-31 | Reserved for future use (must be 0) |
Picture: pic x(n)
Picture: pic x(n)
Picture: pic x(n)
Set two property values associated with the "AUDITFILE" emitter: one a null-terminated string value, one an integer value.
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
...
Comments:
CBL_AUDIT_EMITTER_PROPERTY_SET is used to set a named property value for the emitter with name emitter-name. If a property with the same name already exists for the emitter, its value will be replaced with the new value.