method Calculate

Description

Add code here to initialize the calculated fields of the class temp-tables after loading existing records from the application database.

Parameters

oiReturnStatus

output

integer

Internal usage

unused

program code (program/beventdaemonqueue.p)

/* backwards compatibility */
if can-find (first tEventDaemonQueueSegment)
then for each tEventDaemonQueue where tEventDaemonQueue.tc_Status <> "D":
    vpConvert = tEventDaemonQueue.EventDaemonQueueLOB.
    for each tEventDaemonQueueSegment where
             tEventDaemonQueueSegment.tc_ParentRowid = tEventDaemonQueue.tc_Rowid and
             tEventDaemonQueueSegment.tc_Status <> "D"
             by tEventDaemonQueueSegment.EventDaemonQueueSegmentSeq:
        vpConvert = vpConvert + tEventDaemonQueueSegment.EventDaemonQueueSegmentTxt.
        tEventDaemonQueueSegment.tc_Status = "D".
    end.
    assign tEventDaemonQueue.EventDaemonQueueLOB = vpConvert 
           tEventDaemonQueue.tc_Status = "C".
end.

<ANCESTOR-CODE>