method PostTransaction

Description

Actions to take after final commit of the transaction.

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

unused

program code (program/bdraftinstance.p)

<ANCESTOR-CODE>
if oiReturnStatus < 0
then return.

/* ================================================================= */
/* When deleting a draft instance, also delete the business object   */
/* (this must be done outside a progress transaction)                */
/* ================================================================= */
for each tDraftsToDelete:

    <M-1 run BusinessClassActions
       (input  tDraftsToDelete.tcFcComponentName (icClassShortname), 
        input  'STOP':U (icAction), 
        input  no (ilSubtransaction), 
        input-output viFcCount5 (biClassOpenCount), 
        input-output vhFcComponent (bhClassInstanceHandle), 
        input-output tDraftsToDelete.tiCurrentDraftInstanceId (biClassInstanceId), 
        input  '' (icDraftReference), 
        output viFcReturnSuper (oiReturnStatus)) in BDraftInstance>
end.