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

 

Related topics: