method CheckDaemonStatusInternal

Parameters

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

Internal usage

BLF

method TDaemonUtility.StartDaemonInternal

program code (program1/tdaemonutility.p)

do viretries = 1 to 6:
    
    pause 5 no-message.

    <Q-59 run DaemonLoginInfo (all) (Read) (NoCache)
       (input icDaemonName, (DaemonName)
        output dataset tqDaemonLoginInfo) in BBaseDaemon>
    find first tqDaemonLoginInfo no-error.
    if available tqDaemonLoginInfo
    then do:
        /* the daemon started successfully */
        if  tqDaemonLoginInfo.tcDaemonStatus = {&DAEMONSTATUS-RUNNING}
        and tqDaemonLoginInfo.tiDaemonRunningProcesses = iiStarted
        then return.
        
        /* the daemon stopped with an error */
        if tqDaemonLoginInfo.tcDaemonStatus = {&DAEMONSTATUS-INACTIVE}
        then do:
            oiReturnStatus = -3.
            return.
        end.
    end.
end.

oiReturnStatus = -3.