Description
Initialize the daemon.
In this method everything is prepared for the proper functioning of the daemon.
Parameters
oiReturnStatus | output | integer | Return 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.