Description
MergeValidate - step 3: This method reads referenced profile data from all elements of merged shared sets.
Parameters
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program6/bsharedsetmerge.p)
/* =================================================================================================== */
/* Method : MergeValidateLoadRefProfData */
/* STEP 3 */
/* Desc : This method reads referenced profile data from all elements of merged shared sets. */
/* These data are later on validated, whether redundant element and master element */
/* points to the same profile element in the same shared set or one or both does not */
/* point to profile referenced element */
/* --------------------------------------------------------------------------------------------------- */
/* Params: (H) MergeValidateTable Temporary table with list of tables used for validation of SS */
/* =================================================================================================== */
assign oiReturnStatus = -98.
/* =================================================================================================== */
/* Default values */
/* =================================================================================================== */
empty temp-table tProfileSharedSetData.
empty temp-table tMasterProfileSharedSetData.
empty temp-table tRedundantProfileSharedSetData.
/* =================================================================================================== */
/* Read all refernced data by shared set */
/* =================================================================================================== */
for each tMergeValidateTable:
case tMergeValidateTable.tcTableName:
when 'CostCentre':U
then do:
<M-23 run MergeValidateLoadProfDataCostCentre
(input viMasterSharedSetId (iiMasterSharedSetId),
input viRedundantSharedSetId (iiRedundantSharedSetId),
output viFcReturnSuper (oiReturnStatus)) in BSharedSetMerge>
end.
when 'Creditor':U
then do:
<M-22 run MergeValidateLoadProfDataCreditor
(input viMasterSharedSetId (iiMasterSharedSetId),
input viRedundantSharedSetId (iiRedundantSharedSetId),
output viFcReturnSuper (oiReturnStatus)) in BSharedSetMerge>
end.
when 'Debtor':U
then do:
<M-21 run MergeValidateLoadProfDataDebtor
(input viMasterSharedSetId (iiMasterSharedSetId),
input viRedundantSharedSetId (iiRedundantSharedSetId),
output viFcReturnSuper (oiReturnStatus)) in BSharedSetMerge>
end.
when 'Division':U
then do:
<M-24 run MergeValidateLoadProfDataDivision
(input viMasterSharedSetId (iiMasterSharedSetId),
input viRedundantSharedSetId (iiRedundantSharedSetId),
output viFcReturnSuper (oiReturnStatus)) in BSharedSetMerge>
end.
when 'ExchangeRate':U
then do:
/* There is not profile field */
end.
when 'GL':U
then do:
<M-25 run MergeValidateLoadProfDataGL
(input viMasterSharedSetId (iiMasterSharedSetId),
input viRedundantSharedSetId (iiRedundantSharedSetId),
output viFcReturnSuper (oiReturnStatus)) in BSharedSetMerge>
end.
when 'Journal':U
then do:
/* There is not profile field */
end.
when 'Project':U
then do:
<M-26 run MergeValidateLoadProfDataProject
(input viMasterSharedSetId (iiMasterSharedSetId),
input viRedundantSharedSetId (iiRedundantSharedSetId),
output viFcReturnSuper (oiReturnStatus)) in BSharedSetMerge>
end.
end case.
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then return.
end.
/* =================================================================================================== */
/* Return */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.