project QadFinancials > class BDaemonFunctions > method SetDaemonDebugLevel

Description

Set the debug level in the daemon configuration file.


Parameters


icDaemonNameinputcharacter
iiDebugLevelinputinteger
oiReturnStatusoutputintegerReturn 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.