project BLF > class BBaseDaemonProcessor > method ValidateCurrentDaemonStatus

Description

Validate the current status of the daemon


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bbasedaemonprocessor.p)

assign oiReturnStatus = -98.

/* ================================================================= */
/*  Tell the system that this daemon processor instance is active    */
/* ================================================================= */
<M-3 run ApiValidateStatus  (output viFcReturnSuper (oiReturnStatus)) in BBaseDaemon>
if viFcReturnSuper > 0
then do :
    assign oiReturnStatus = viFcReturnSuper.
    <M-2 run SetMessageInDaemonLog
       (input  'DaemonProcessor.ValidateCurrentDaemonStatus; ':U + #T-68'Warning':25(4749)T-68# + ': ' + #T-72'Some running processes where not found.':255(583886876)T-72# (icMessage), 
        output viFcReturnSuper (oiReturnStatus)) in BBaseDaemonProcessor>
    return.
end.
else if viFcReturnSuper < 0
then do :
    assign oiReturnStatus = viFcReturnSuper.
    <M-4 run SetMessageInDaemonLog
       (input  'DaemonProcessor.ValidateCurrentDaemonStatus; ':U + #T-15'Error':100(39)T-15# + ': ' + #T-82'Some running processes where not found.':255(583886876)T-82# (icMessage), 
        output viFcReturnSuper (oiReturnStatus)) in BBaseDaemonProcessor>
    return.
end.

assign oiReturnStatus = 0.