Description
This procedure retrieves basic informtion about ongoing merge. This should be called during startup of application and during startup of task Shared set merge.
Parameters
| olIsThereOngoingMerge | output | logical | |
| ocMasterSharedSetCode | output | character | |
| ocRedundantSharedSetCode | output | character | |
| ocSharedSetType | output | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program6/bsharedsetmerge.p)
/* =================================================================================================== */
/* Method : GetOngoingMergeInfo */
/* Desc : This procedure retrieves basic informtion about ongoing merge. This should be called */
/* during startup of application and during startup of task Shared set merge. */
/* --------------------------------------------------------------------------------------------------- */
/* Params: (O) IsThereOngoingMerge Flag indicating, whether there is any ongoing - not finished */
/* Merge */
/* (O) MasterSharedSetCode Code of master shared set (? if not ongoing) */
/* (O) RedundantSharedSetCode Code of redundant shared set (? if not ongoing) */
/* (O) SharedSetType Code of shared set type (? if not ongoing) */
/* =================================================================================================== */
assign oiReturnStatus = -98.
/* =================================================================================================== */
/* Call shared set merge log file for requested info */
/* =================================================================================================== */
assign viExternalReturnStatus = 0.
<I-1 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "false"
&CLASS = "BSharedSetMergeLog"}>
<M-4 run GetOngoingMergeInfo
(output olIsThereOngoingMerge (olIsThereOngoingMerge),
output ocMasterSharedSetCode (ocMasterSharedSetCode),
output ocRedundantSharedSetCode (ocRedundantSharedSetCode),
output ocSharedSetType (ocSharedSetType),
output viExternalReturnStatus (oiReturnStatus)) in BSharedSetMergeLog>
if viFcReturnSuper <> 0 then assign viExternalReturnStatus = viFcReturnSuper.
/* Close instance of BDomain component */
<I-7 {bFcCloseAndStopInstance
&CLASS = "BSharedSetMergeLog"}>
if viExternalReturnStatus < 0
then do:
assign oiReturnStatus = viExternalReturnStatus.
return.
end.
/* =================================================================================================== */
/* Return */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.