project BLF > class BBaseDaemonProcessor > method MarkDaemonRunning

Description

Mark the daemon as running in the system.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method BBaseDaemonProcessor.StartDaemonProcessorInstance


program code (program1/bbasedaemonprocessor.p)

assign oiReturnStatus = -98.

/* ================================================================= */
/*  Tell the system that this daemon processor instance is active    */
/* ================================================================= */
<M-1 run ControlDaemon
   (input  viFcDaemonId (iiDaemonId), 
    input  {&DAEMONSTATUS-RUNNING} (icStatus), 
    output vcMessage (ocErrorMessage), 
    input  viFcDaemonProcessId (iiProcessId), 
    input  vcFcDaemonProcessHostName (icDaemonHostname), 
    output viFcReturnSuper (oiReturnStatus)) in BBaseDaemon>
if viFcReturnSuper <> 0
then do :
    assign oiReturnStatus = viFcReturnSuper.
    <M-3 run SetMessageInDaemonLog
       (input  'DaemonProcessor.MarkDaemonRunning; ':U + #T-91'Error when setting daemon status:':255(609257948)T-91# + vcMessage (icMessage), 
        output viFcReturnSuper (oiReturnStatus)) in BBaseDaemonProcessor>
    return.
end.

assign oiReturnStatus = 0.