project QadFinancials > class BSharedSetMerge > method MergeValidateNormalize


Parameters


bcSharedSetTypeCodeinput-outputcharacter
bcMasterSharedSetCodeinput-outputcharacter
bcRedundantSharedSetCodeinput-outputcharacter
blIsReportDetailsinput-outputlogical
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BSharedSetMerge.MergeValidateInit


program code (program6/bsharedsetmerge.p)

/* =================================================================================================== */
/* Method      : MergeValidateNormalize                                                                */
/* Desc        : This method normalize input parameters passed to Validation procedure of merge        */
/* --------------------------------------------------------------------------------------------------- */
/* Params:  (B)  SharedSetyType         Shared set type of merged shared set                           */
/*          (B)  MasterSharedSetCode    Code of master shared set                                      */
/*          (B)  RedundnatSharedSetCode Code of redundant shared set                                   */
/*          (B)  IsReportDetails        Should be reported details about validation (if not memory safe*/
/* =================================================================================================== */

assign oiReturnStatus = -98.

/* =================================================================================================== */
/* Normalize input values                                                                              */
/* =================================================================================================== */
if bcSharedSetTypeCode      = "":U then assign bcSharedSetTypeCode      = ?.
if bcMasterSharedSetCode    = "":U then assign bcMasterSharedSetCode    = ?.
if bcRedundantSharedSetCode = "":U then assign bcRedundantSharedSetCode = ?.

if blIsReportDetails        = ?    then assign blIsReportDetails        = false.

/* =================================================================================================== */
/* Return                                                                                              */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.