method DefaultValuesSetStatutoryCurrency

Description

Retrieve Domain values based on DomainCode

Parameters

icDomainCode	input	character
ocBaseCurrencyCode	output	character
ocStatutoryCurrencyCode	output	character
olIsStatutory	output	logical
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program6/bdomain.p)

assign oiReturnStatus      = -98
       viLocalReturnStatus = 0.

DEFAULTBLOCK:
do:
    assign ocBaseCurrencyCode      = '':U
           olIsStatutory           = false
           ocStatutoryCurrencyCode = '':U.

    <Q-1 run DomainPropertyByDomainCodeID (all) (Read) (NoCache)
       (input icDomainCode, (DomainCode)
        input ?, (DomainID)
        output dataset tqDomainPropertyByDomainCodeID) in BDomainProperty >
    find tqDomainPropertyByDomainCodeID where
         tqDomainPropertyByDomainCodeID.tcDomainCode = icDomainCode
         no-lock no-error.
    if available tqDomainPropertyByDomainCodeID
    then assign ocBaseCurrencyCode      = tqDomainPropertyByDomainCodeID.tcCurrencyCode
                olIsStatutory           = tqDomainPropertyByDomainCodeID.tlDomainPropertyIsStatutory
                ocStatutoryCurrencyCode = tqDomainPropertyByDomainCodeID.tcStatutoryCurrencyCode.
end. /* DEFAULTBLOCK */

assign oiReturnStatus = viLocalReturnStatus.