method SetDaemonDebugLevel

Parameters

icDaemonName	input	character
iiDebugLevel	input	integer
ocErrorMessage	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BDaemonFunctions.SetDaemonDebugLevel

program code (program1/tdaemonutility.p)

<M-80 run GetAppserverConnection
   (input  icDaemonName (icDaemonName), 
    input  '' (icDaemonAppserverURL), 
    output vhAppserver (ohDaemonAppserver), 
    output ocErrorMessage (ocMessage), 
    output oiReturnStatus (oiReturnStatus)) in TDaemonUtility>
if oiReturnStatus < 0
then return.

if valid-handle(vhAppServer)
and vhAppServer:connected()
then do:
    /* run on appserver */
    run program/tdaemonutility.p persistent set vhFcComponent on vhAppserver (input viSessionID).
    run SetDaemonDebugLevelInternal in vhFcComponent
       (input icDaemonName,
        input iiDebugLevel).
    run gipr_DeleteProcedure in vhFcComponent.
    delete procedure vhFcComponent.
    vhAppServer:disconnect().
    delete object vhAppServer.
end.
else do:
    /* run locally */
    <M-86 run SetDaemonDebugLevelInternal
       (input  icDaemonName (icDaemonName), 
        input  iiDebugLevel (iiDebugLevel)) in TDaemonUtility>
end.