method DefaultContextProperty

Description

Purpose: Set the value of a given session context property only if it is not already present in dsSessionContext.

Parameters

icPropertyQualifier	input	character
icPropertyName	input	character
icPropertyValue	input	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/pmfgpro.p)

assign oiReturnStatus = -98.

find first tContext where
           (tContext.tcPropertyQualifier = icPropertyQualifier or
            (icPropertyQualifier = ? and tContext.tcPropertyQualifier <> "QAD":U)) and
           tContext.tcPropertyName = icPropertyName no-error.

/* Reset ERROR-STATUS handle */
assign viCnt = 0 no-error.

if not available tContext
then do:
    if icPropertyValue = ? then return. /* Nothing to delete */
    create tContext.
    assign tContext.tcPropertyQualifier = icPropertyQualifier
           tContext.tcPropertyName = icPropertyName
           tContext.tcPropertyValue = icPropertyValue.
end.
    
assign oiReturnStatus = 0.