method GetClosingMaskDetail

Description

get basic details about closing mask

Parameters

biCMask_ID	input-output	integer
bcCMaskCode	input-output	character
ocCMaskDescription	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program6/bperiod.p)

/* normalise input parameters */
if biCMask_ID     = 0    then assign biCMask_ID     = ?.
if bcCMaskCode    = '':U then assign bcCMaskCode    = ?.

/* Precondition */
if biCMask_ID  = ? and
   bcCMaskCode = ?
then return.

/* get details of the closing mask */
<Q-52 run CMaskPrim (all) (Read) (NoCache)
   (input viCompanyId, (CompanyId)
    input biCMask_ID, (CMask_ID)
    input bcCMaskCode, (CMaskCode)
    output dataset tqCMaskPrim) in BCMask>

find first tqCMaskPrim no-error.
if available tqCMaskPrim
then assign biCMask_ID         = tqCMaskPrim.tiCMask_ID
            bcCMaskCode        = tqCMaskPrim.tcCMaskCode
            ocCMaskDescription = tqCMaskPrim.tcCMaskDescription.