project QadFinancials > class BCubeDaemonProcessor > method Initialize

Description

Initialize the daemon.
In this method everything is prepared for the proper functioning of the daemon.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program/bcubedaemonprocessor.p)

<ANCESTOR-CODE>

/* Get all cubes in building status */
<Q-81 run GetCubesInBuildingStatus (all) (Read) (NoCache)  (output dataset tqGetCubesInBuildingStatus) in BCubeQuery>

find first tqGetCubesInBuildingStatus no-lock no-error.
if available tqGetCubesInBuildingStatus
then do:

    /* get all cube codes in building status */
    assign vcCubeCodes = '':U.
    for each tqGetCubesInBuildingStatus no-lock:
        assign vcCubeCodes = vcCubeCodes + tqGetCubesInBuildingStatus.tcFRWCubeCode + ',':U.
    end.

    /* set error message for the CubeDaemon */
    assign vcMessage2 = trim(substitute(#T-31'The Cube daemon cannot be started because the cube(s) <&1> has(have) a status indicating that it is being built.':200(31123319)T-31#,vcCubeCodes)).

    <M-67 run SetMessageInDaemonLog
       (input  vcMessage2 (icMessage), 
        output viFcReturnSuper (oiReturnStatus)) in BCubeDaemonProcessor>

    assign oiReturnStatus = -3.
    return.
end.