method SetDecimalValue

Description

Store a decimal value in the cache, based on the name that is passed as input parameter. The cached data can be session dependent based on the value of the input parameter ilSessionData.

Parameters

icName	input	character	The name of the cached decimal type item for which the value needs to be stored in the cache.
idValue	input	decimal	The value of the cached decimal data item with the name specified in icDataItemName, that needs to get stored in the cache.
iiSessionID	input	integer	ID of the session to which the data item belongs. Zero when the data item to store is not session dependent.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

BLF

method Session.SetDecimalValue

program code (program1/cacher.p)

if iiSessionID = 0
or iiSessionID = viCachedSessionID
then do:
    find tCachedData where
         tCachedData.tcName = icName and
         tCachedData.tcDataType = "d"
         no-error.
    if not available tCachedData
    then do :
        create tCachedData.
        assign tCachedData.tcName = icName
               tCachedData.tcDataType = "d".
    end.
    assign tCachedData.tdDecValue    = idValue
           tCachedData.tlSessionData = (iiSessionID <> 0).
end.