project BLF > class PMfgPro > method DefaultQadContextProperty

Description

Purpose: Default the value of a QAD-reserved session context property. This function wraps defaultContextProperty() in order to simplify its signature.


Parameters


icPropertyNameinputcharacter
icPropertyValueinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/pmfgpro.p)

assign oiReturnStatus = -98.

find first tContext where
           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 = "QAD":U
           tContext.tcPropertyName = icPropertyName
           tContext.tcPropertyValue = icPropertyValue.
end.

assign oiReturnStatus = 0.