Set an audit emitter property value.
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
Typedef | Picture | |
---|---|---|
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) |
flags | Control flags
|
|||||||||||||||||||||||||||||||||
emitter-name | Space- or null-terminated (depending upon setting of bit 28) case-insensitive emitter name. | |||||||||||||||||||||||||||||||||
property-name | Space- or null- terminated (depending upon setting of bit 29) case-insensitive property name. | |||||||||||||||||||||||||||||||||
property-value | Buffer containing property value to be set. This is either a pic x(n) field for a value being specified as a string, or a pic x(4) comp-5 field for a value being set as an integer. |
Nothing
78-AUD-RET-SUCCESS |
78-AUD-RET-NOT-ENOUGH-MEMORY |
78-AUD-RET-EMITTER-NOT-FOUND |
78-AUD-RET-INVALID-EMITTER-NAME |
78-AUD-RET-INVALID-PROPERTY-NAME |
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.
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 ...
Related topics: