Description
Set the debug level in the daemon configuration file.
Parameters
| icDaemonName | input | character | |
| iiDebugLevel | input | integer | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program3/bdaemonfunctions.p)
<M-23 run Main (input viSessionID (iiSessionId)) in TDaemonUtility>
<M-71 run SetDaemonDebugLevel
(input icDaemonName (icDaemonName),
input iiDebugLevel (iiDebugLevel),
output vcMessage (ocErrorMessage),
output viFcReturnSuper (oiReturnStatus)) in TDaemonUtility>
run gipr_DeleteProcedure in vhFcComponent.
delete procedure vhFcComponent.
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then do:
<M-93 run SetMessage
(input vcMessage (icMessage),
input '' (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'D' (icType),
input 3 (iiSeverity),
input '' (icRowid),
input 'qadfin-678358':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDaemonFunctions>
return.
end.
<Q-34 run DaemonInfoLimited (all) (Read) (NoCache)
(input 0, (DaemonId)
input icDaemonName, (DaemonName)
input '', (DaemonStatus)
input '', (DaemonStatusDiffersFrom)
output dataset tqDaemonInfoLimited) in BBaseDaemon>
find first tqDaemonInfoLimited where tqDaemonInfoLimited.tcDaemonName = icDaemonName no-error.
if available tqDaemonInfoLimited
then if tqDaemonInfoLimited.tcDaemonStatus = {&DAEMONSTATUS-RUNNING}
then do:
vcMessage = #T-14'The daemon is currently running.':255(128378216)T-14# + " "
+ #T-42'Debug Level will take effect after the daemon is restarted.':255(631061162)T-42#.
<M-70 run SetMessage
(input vcMessage (icMessage),
input '' (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'W' (icType),
input 5 (iiSeverity),
input '' (icRowid),
input 'qadfin-69015':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDaemonFunctions>
oiReturnStatus = 1.
end.