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

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 = "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.