Description
Method executed after real validation is completed.
Parameters
| olIsCompatible | output | logical | Indication, whether two selected shared sets are compatible. |
| oiNumberOfRecordsToMerge | output | integer | Number of records to be merged |
| tSharedSetMergeValRes | output | temp-table | Result of the validation |
| tSharedSetMergeValResDet | output | temp-table | Result of the validation of the shared sets. |
| tSharedSetMergeValResMis | output | temp-table | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bsharedsetmerge.p)
/* =================================================================================================== */
/* Method : MergetValidateFinish */
/* STEP_6 */
/* Desc : This method is used to get validation result to UI */
/* --------------------------------------------------------------------------------------------------- */
/* Params: (O) MasterSharedSetId Id of master shared set */
/* (O) RedundantSharedSetId Id of redundant shared set */
/* (O) IsCompatible Value indicating, whether two shared sets can be merged */
/* (O) SharedSetMergeValRes Temporary table with overview of validation result */
/* (O) SharedSetMergeValResDet Temporary table with details of validation result */
/* =================================================================================================== */
assign oiReturnStatus = -98.
/* =================================================================================================== */
/* Check, whether both shared sets are compatible or not */
/* =================================================================================================== */
if can-find(first tSharedSetMergeValRes where
(tSharedSetMergeValRes.tcInfoType = {&SHAREDSETMERGE-INFOTYPE-ERROR} or
tSharedSetMergeValRes.tcInfoType = {&SHAREDSETMERGE-INFOTYPE-MISS}) and
tSharedSetMergeValRes.tiInfoValue > 0)
then assign olIsCompatible = false.
else assign olIsCompatible = true.
/* =================================================================================================== */
/* Get number of records to be merged */
/* =================================================================================================== */
find tSharedSetMergeValRes where
tSharedSetMergeValRes.tcInfoType = {&SHAREDSETMERGE-INFOTYPE-TOTAL} no-error.
if available tSharedSetMergeValRes
then assign oiNumberOfRecordsToMerge = tSharedSetMergeValRes.tiInfoValue.
/* =================================================================================================== */
/* Return */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.