CBL_CTF_EMITTER_PROPERTY_SET

Restriction: This routine is supported for native COBOL only.

Syntax:

call "CBL_CTF_EMITTER_PROPERTY_SET" using by value     flags
                                          by reference emitter-name
                                          by reference property-name
                                          by reference property-value
                                             returning 

Parameters:

  Using call prototype (see Key) 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)
status-code See Library Routines - Key  

On Entry:

flags
Control flags:
Bit 0
Value Meaning
0 String value. Use bit 1 to determine the string terminator.
1 Integer value. Ignore bit 1.
Bit 1
Value Meaning
0 String value is a space-terminated.
1 String value is a null-terminated.
Bits 2-27
Reserved for future use. Must be 0.
Bit 28
Value Meaning
0 emitter-name is space-terminated.
1 emitter-name is null-terminated.
Bit 29
Value Meaning
0 property-name is space-terminated.
1 property-name is null-terminated.
Bits 30-31
Reserved for future use. Must be 0.
emitter-name
Space- or null-terminated (depending on the setting of bit 28) case-insensitive emitter name.
property-name
Space- or null-terminated (depending on the setting of bit 29) case-insensitive property whose value is to be returned.
property-value
Buffer containing the 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:

status-code
One of:
  • 78-CTF-RET-EMITTER-NOT-FOUND
  • 78-CTF-RET-INVALID-EMITTER-NAME
  • 78-CTF-RET-INVALID-PROPERTY-NAME
  • 78-CTF-RET-NOT-ENOUGH-MEMORY
  • 78-CTF-RET-SUCCESS

Comments:

If a property with the same name already exists for the specified emitter, its value is replaced by the new value.

Example:

To set two property values associated with the "myemitter" emitter; one a null-terminated string value, one an integer value:

copy "cbltypes.cpy". 
copy "mfctf.cpy". 
01 emitter-name pic x(10) value "myemitter". 
01 flags        pic x(4) comp-5. 
01 prop-integer pic x(4) comp-5. 
01 prop-string  pic x(100). 
... 
compute flags = 78-CTF-FLAG-PROP-STRING-VALUE b-or 
                78-CTF-FLAG-PROP-NULL-TERM 
move "xxx" & x"00" to prop-string 
call "CBL_CTF_EMITTER_PROPERTY_SET" using by value flags 
                                          by reference emitter-name 
                                          by reference "prop1 " 
                                          by reference prop-string 
... 
compute prop-flags = 78-CTF-FLAG-PROP-INT-VALUE 
move 100 to prop-integer 
call "CBL_CTF_EMITTER_PROPERTY_GET" using by value flags 
                                          by reference emitter-name 
                                          by reference "prop2 " 
                                          by reference prop-integer 
...