CBL_CTF_LEVEL
Specifies the trace level to be used for a specific component, or the default
trace level if a component identifier is not specified.
Syntax:
call "CBL_CTF_LEVEL" using by value flags
by value trace-level
by reference component-id
returning status-code
Parameters:
|
Using call prototype (see Library Routines - Key) |
Picture (32-bit systems) |
flags |
cblt-x4-comp5 |
pic x(4) comp-5 |
trace-level |
cblt-x4-comp5 |
pic x(4) comp-5 |
component-id |
pic x(n) |
pic x(n) |
status-code |
See Library Routines - Key |
On Entry:
flags |
Control flags:
Bit |
Value |
Meaning |
0-29 |
|
Reserved for future use. Must be 0. |
30 |
0 |
component-id is space-terminated. |
|
1 |
component-id is null-terminated. This is ignored if bit 31 is unset. |
31 |
0 |
component-id is a pic x(4) comp-5 tracer handle returned from a call to
CBL_CTF_TRACER_GET. |
|
1 |
component-id is a pic x(n) text string. The termination character for
the string is defined by bit 30. | |
component-id |
Component whose property value is to be returned. This is either a pic x(4)
comp-5 tracer handle (from CBL_CTF_TRACER_GET) if bit 31 of flags is not
set, or a pic x(n) text identifier if bit 31 of flags is set. |
On Exit:
status-code |
One of:
- 78-CTF-RET-INVALID-COMPONENT-NAME
- 78-CTF-RET-INVALID-TRACE-HANDLE
- 78-CTF-RET-INVALID-TRACE-LEVEL
- 78-CTF-RET-NOT-ENOUGH-MEMORY
- 78-CTF-RET-SUCCESS
|
Comments:
CBL_CTF_LEVEL provides equivalent functionality to the mftrace.level and
mftrace.level.component-name configuration file entries.
Example:
copy "cbltypes.cpy".
copy "mfctf.cpy".
*> 1) Set the default trace threshold level to be DEBUG
...
call "CBL_CTF_LEVEL" using by value 0
by value 78-LEVFLGS-LEVEL-DEBUG
by reference " "
...
*> 2) Set the WARNING tracing threshold level for the MF.RTS component.
*> Any component inheriting from the MF.RTS component (such as
*> MF.RTS.ERR and MF.RTS.MEM) will also use the WARNING tracing
*> threshold level. All other trace-enabled components will use the
*> INFO tracing threshold level.
...
call "CBL_CTF_LEVEL" using by value 0
by value 78-LEVFLGS-LEVEL-INFO
by reference " "
call "CBL_CTF_LEVEL" using by value 0
by value 78-LEVFLGS-LEVEL-WARNING
by reference "MF.RTS "
...
Related Topics: