Description
MergeValidate - step 3: Start real compare of the shared sets
Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program6/bsharedsetmerge.p)
/* =================================================================================================== */
/* Method : MergetValidateCompareInit */
/* STEP 4 */
/* Desc : This method starts validation of the shared sets */
/* =================================================================================================== */
assign oiReturnStatus = -98.
/* =================================================================================================== */
/* Compare validation rules with content of read data and complete validation rules about missing */
/* fields -> these fields are assumed as non-mandatory */
/* =================================================================================================== */
<M-60 run MergeValidateRuleValidateAndUpdate
(output viFcReturnSuper (oiReturnStatus)) in BSharedSetMerge>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then return.
/* =================================================================================================== */
/* Initial values */
/* =================================================================================================== */
assign viValidateResultDetailCount = 0.
/* =================================================================================================== */
/* Create main records in resulting temporary table */
/* =================================================================================================== */
create tSharedSetMergeValRes.
assign tSharedSetMergeValRes.tcInfoType = {&SHAREDSETMERGE-INFOTYPE-TOTAL}
tSharedSetMergeValRes.tcInfoDescription = #T-24'Number of elements to merge':255(63759)T-24#
tSharedSetMergeValRes.tiInfoValue = 0
tSharedSetMergeValRes.tc_Rowid = '1':U.
create tSharedSetMergeValRes.
assign tSharedSetMergeValRes.tcInfoType = {&SHAREDSETMERGE-INFOTYPE-MISS}
tSharedSetMergeValRes.tcInfoDescription = #T-42'Number of missing elements':255(63760)T-42#
tSharedSetMergeValRes.tiInfoValue = 0
tSharedSetMergeValRes.tc_Rowid = '2':U.
create tSharedSetMergeValRes.
assign tSharedSetMergeValRes.tcInfoType = {&SHAREDSETMERGE-INFOTYPE-ERROR}
tSharedSetMergeValRes.tcInfoDescription = #T-71'Number of errors':255(63761)T-71#
tSharedSetMergeValRes.tiInfoValue = 0
tSharedSetMergeValRes.tc_Rowid = '3':U.
create tSharedSetMergeValRes.
assign tSharedSetMergeValRes.tcInfoType = {&SHAREDSETMERGE-INFOTYPE-WARN}
tSharedSetMergeValRes.tcInfoDescription = #T-94'Number of warnings':255(64261)T-94#
tSharedSetMergeValRes.tiInfoValue = 0
tSharedSetMergeValRes.tc_Rowid = '4':U.
/* =================================================================================================== */
/* Construct query to go through all tables to be validated */
/* =================================================================================================== */
/* create queries to browse through all tables which should be merged/validated */
assign vcQuery = "for each tMergeValidateTable":U.
create query vhMergeValidateTableQuery in widget-pool "non-persistent".
vhMergeValidateTableQuery:add-buffer( temp-table tMergeValidateTable:handle:default-buffer-handle).
vhMergeValidateTableQuery:query-prepare(vcQuery).
vhMergeValidateTableQuery:query-open().
vhMergeValidateTableQuery:get-first().
/* =================================================================================================== */
/* Return */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.