project QadFinancials > class BCubeDaemonProcessor > method ProcessAndDeleteQFRWCubeDIRECT


Parameters


iiFRWCube_IDinputinteger
ocErrorMsgoutputcharacter
ocWarningMsgoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BCubeDaemonProcessor.PerformWorkItem


program code (program1/bcubedaemonprocessor.p)

/* ================================================================== */
/* This method runs a plain progress program in lib/prog/FRWQDaemon.p */
/* ================================================================== */            
<I-17 {WRITEDIRECTDBACCESS
     &WRITETABLENAMES = "'QFRWCube'"}>
       
assign oiReturnStatus = -98.

run prog/FRWQDaemon.p
            (input iiFRWCube_ID,
             input {&TARGETPROCEDURE},
             output ocErrorMsg,
             output ocWarningMsg,
             output viFcReturnSuper).

if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then do:
    return.
end.

if oiReturnStatus = -98
then oiReturnStatus = 0.