Sets an audit configuration property value.
call "CBL_AUDIT_CONFIG_PROPERTY_SET" using by value flags by reference property-name by reference property-value returning status-code
Typedef | Picture | |
---|---|---|
flags | cblt-x4-comp5 | pic x(4) comp-5 |
property-name | pic x(n) | pic x(n) |
property-value | pic x(n) | pic x(n) |
flags | Control flags
|
|||||||||||||||||||||||||||
property-name | Space- or null- terminated (depending upon setting of bit 29)
case-insensitive property name. Recognised property names are:
Note: Other property names may be set, but they will be ignored by the facility. |
|||||||||||||||||||||||||||
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-INVALID-PROPERTY-NAME |
CBL_AUDIT_CONFIG_PROPERTY_SET is used to set a named property value for the audit facility's configuration for the current process. If a property with the same name already exists, its value will be replaced with the new value.
Supported properties are yet to be defined.
Set the audit facility's "system" property value.
copy "mfaudit.cpy ". 01 flags pic x(4) comp-5. 01 prop-string pic x(100). ... compute flags = 78-AUD-FLAG-PROP-STRING-VALUE move "ESDEMO" & x"00" to prop-string call "CBL_AUDIT_EMITTER_PROPERTY_SET" using by value flags by reference "system " by reference prop-string ...
Related topics: