CBL_AUDIT_EMITTER_PROPERTY_SET

Set an audit emitter property value.

Syntax:

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

Parameters:

	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)

On Entry:

flags

Control flags

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)

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.

On Exit:

Nothing

Return Codes:

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

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.

Examples:

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
...