Get an audit emitter property value.
call "CBL_AUDIT_EMITTER_PROPERTY_GET" using by value flags by reference emitter-name by reference property-name by reference property-vallen 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-vallen | cblt-x4-comp5 | pic x(4) comp-5 |
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-vallen | Length of property-value buffer in which property value is to
be returned. The routine fails if this is too small for the value to be
returned.
Ignored if value is being returned as an integer. |
property-vallen | Length of returned string value in property-value buffer.
Length does not include termination character.
If property-value is null, or if the specified buffer length is too small for the value to be returned, property-vallen will be set to the required buffer length. Not set if the value is being returned as an integer. |
property-value | Buffer in which the property value is to be returned. This is
either a pic x(n) field for a value being returned as a string, or a pic x(4)
comp-5 field for a value being returned as an integer.
A null property-value may be specified to request that the API returns the required buffer length to hold the specified property value. |
78-AUD-RET-SUCCESS |
78-AUD-RET-NOT-ENOUGH-MEMORY |
78-AUD-RET-PROPERTY-NOT-FOUND |
78-AUD-RET-BUFFER-TOO-SMALL |
78-AUD-RET-VALUE-NOT-INTEGER |
78-AUD-RET-EMITTER-NOT-FOUND |
CBL_AUDIT_EMITTER_PROPERTY_GET is used to retrieve a named property value for the emitter with name emitter-name. The function would typically by used by an emitter during its initialisation to determine how it had been configured.
Get two property values associated with the "AUDITFILE" emitter: one a space-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-len pic x(4) comp-5. 01 prop-string pic x(100). ... compute flags = 78-AUD-FLAG-PROP-STRING-VALUE move length of prop-string to prop-len call "CBL_AUDIT_EMITTER_PROPERTY_GET" using by value flags by reference emitter-name by reference "location " by reference prop-len by reference prop-string ... compute flags = 78-AUD-FLAG-PROP-INT-VALUE call "CBL_AUDIT_EMITTER_PROPERTY_GET" using by value flags by reference emitter-name by reference "collectionsize " by value 0 by reference prop-integer ...
Related topics: