project BLF > class PMfgPro > 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.