method SetMessage

Description

Write error messages. This method is defined so that the standard call to SetMessage from the rest of the component code can be used.

Parameters

icMessage	input	character	The actual message, can contain $1, $2, ... for values that are situation-dependent.
icArguments	input	character	chr(2) seperated list of values to replace $1, $2, ... in the message with. These values should not be translatable.
icFieldName	input	character	dummy parameter for keeping this method compatible with business.SetMessage
icFieldValue	input	character	dummy parameter for keeping this method compatible with business.SetMessage
icType	input	character	dummy parameter for keeping this method compatible with business.SetMessage
iiSeverity	input	integer	dummy parameter for keeping this method compatible with business.SetMessage
icRowid	input	character	dummy parameter for keeping this method compatible with business.SetMessage
icFcMsgNumber	input	character
icFcExplanation	input	character
icFcIdentification	input	character
icFcContext	input	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/housekeeping.p)

/* replace the non-translatable arguments */
do viCnt = 1 to 9:
    if num-entries(icArguments,chr(2)) < viCnt
    or entry(viCnt,icArguments,chr(2)) = ?
    then assign icMessage = replace (icMessage,
                                      "$":U + string(viCnt),
                                      "").
    else assign icMessage = replace (icMessage,
                                      "$":U + string(viCnt),
                                      entry(viCnt,icArguments,chr(2))).
end.

output to value (session:temp-dir + "Housekeeping-errors.txt":U) append.
put unformatted string(now) "    " icMessage skip.
output close.